Ciao a tutti,
@GioCC
il codice che ti ha proposto Federico (un saluto) fa il suo dovere nel file allegato prima.
Tu come hai adattato il codice per il tuo foglio?
Da quello che hai scritto, dovresti modificarlo in questo modo:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Settore As Range
Set Settore = Range("C5:C255")
If Not Application.Intersect(Settore, Range(Target.Address)) _
Is Nothing Then
ActiveCell.Offset(0, 2).Select
Selection = ""
End If
End Sub
se non funziona nemmeno cosi e non sei in grado di adattare da solo il codice, allega un file d'esempio che sia strutturalmente uguale al tuo file originale.
[Modificato da cromagno 29/07/2016 23:27]
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."