
'in foglio1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
With Sheets("foglio2")
Set c = .[A1:A10].Find(Target)
c.Offset(, 1) = c.Offset(, 1) + 1
.Select
End With
End Sub |
