
Private Sub Worksheet_Change(ByVal Target As Range)
(le celle che devono avere un valore >0 sono dalla T9 alla T18)
If Intersect(Range([C9], [C18]), Target) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Me.Shapes("finestra").DrawingObject.Formula = "$AQ$100" & Target.Value
End If
End Sub |
