- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Cdati = "C5:I5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "UnaCosa" & Target.Value
Exit Sub
End If
Cdati = "J5:O5"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "AltraCosaAA" & Target.Value
Exit Sub
End If
Cdati = "P:R"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "AltraCosaBB" & Target.Value
Exit Sub
End If
Cdati = "P:R"
If Not Application.Intersect(Target, Range(Cdati)) Is Nothing Then
If Target <> "" Then Run "AltraCosaBB" & Target.Value
Exit Sub
End If
'
'altri blocchi simili a piacere
'
End Sub
Ti raccomando di applicare ai codici che pubblichi il "tag" Code (selezioni il testo completo, premi il pulsante Code che trovi in testa al textbox del messaggio).
Ciao