
Sub Calcola()
[A3] = [A1] - [A2]
[A1] = [A3]
End Sub |
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
Dim Risultato As Variant
On Error Resume Next
If Target.Value = "" Then
Risultato = ""
Else
Calcola1
End If
End Sub
|
