Ciao
nel vb del foglio (quindi non in un modulo):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D4")) Is Nothing Then
Application.EnableEvents = False
Range("H1") = Range("H1") + Target.Value
Application.EnableEvents = True
End If
End Sub
Con questo codice basta che selezioni con il mouse una delle celle del range A1:D4 e in H1 troverai la somma. Ti ricordo che se devi aggiungere la stessa cella, prima ne devi selezionare una vuota e poi quella contenente il numero.
----------------------------------------------------------------------------------------------
Se sbagli a cliccare cella e vuoi sottrarre un numero aggiunto, sempre nel vb del foglio aggiungi:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:D4")) Is Nothing Then
Application.EnableEvents = False
Range("H1") = Range("H1") - Target.Value
Application.EnableEvents = True
End If
Cancel = True
End Sub
MA DOVRAI USARE IL DOPPIO CLICK in modo che excel capisca che deve sottrarre il numero e non aggiungerlo.
Come vedi i due codici sono pressocchè identici.
saluti
[Modificato da dodo47 25/04/2018 11:53]
Domenico
Win 10 - Excel 2016