ciao
metti questa sul foglio
elaborazione
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Settore As Range
Set Settore = Range("B5:B10")
If Not Application.Intersect(Settore, Range(Target.Address)) _
Is Nothing Then
ActiveCell.Offset(0, 1).Select
Selection = ""
End If
End Sub
ciao Konki
va benissimo ma devi gestire l'errore
ora per esempio
se cambia il settore la convalida
a fianco risulta vuota
perciò le celle danno #N/D
un bel SE.ERRORE non ci starebbe male