inserisci nel codice Foglio dove hai l'elenco dei nomi (non nel modulo) questo codice
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "A2:A2"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Selection.Value = "Automatico" Then
Selection.Value = "Manuale"
Else
Selection.Value = "Automatico"
End If
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Poi all'inizio della macro principale (che dovrebbe essere nel modulo) metterai questo codice
- Codice: Seleziona tutto
If [A2] = "Manuale" then Exit Sub
Ora clicca sulla cella A2... dovrebbe funzionare
Fai sapere
Ciao