Per l' azzeramento delle convalide dipendenti, prova questa macro in sostituzione della tua:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "D22:F1000" '<<< Adattare, ma almeno 2 COLONNE
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
On Error GoTo Esci
Application.EnableEvents = False
CkA = Split(CheckArea, ":")
If Target.Column < Range(CkA(1)).Column Then Range(Target.Offset(0, 1), Cells(Target.Row, 6)).ClearContents
Esci:
Application.EnableEvents = True
End Sub
Devi adattare l' istruzione marcata <<<, indicando quali sono le righe/colonne su cui hai impostato la convalida, tenendo presente che la colonna piu' a destra (F, nell' esempio), essendo l' ultima della catena, non innesca nessun azzeramento.
Ciao