- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
[J2] = ""
[K2] = ""
[L2] = ""
End If
If Target.Address = "$J$2" Then
[K2] = ""
[L2] = ""
End If
If Target.Address = "$K$2" Then
[L2] = ""
End If
End Sub
L’unico problema è che lo dovrei usare su diverse celle. Ho provato a fare in questo mio:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2: $I$1000" Then
[J2:J1000] = ""
[K2:K1000] = ""
[L2:L1000] = ""
End If
If Target.Address = "$J$2: $J$1000" Then
[K2:K1000] = ""
[L2:L1000] = ""
End If
If Target.Address = "$K$2: $K$1000" Then
[L2:L1000] = ""
End If
End Sub
Purtroppo non funziona. Qualcuno potrebbe darmi una mano?
Grazie anticipatamente e buona giornata.