Cancellare una cella su modifica di un'altra

[Marco75CT]

Ciao,
non riesco a trovare una soluzione.
Devo fare in modo che, se nella cella B11 c'è un valore più basso di 2, allora le celle B19, B21 E B23, devono essere cancellate.
Ho provato così, ma non funziona

Codice: Seleziona tutto

Private Sub WorkSheet_Change(ByVal Target As Range)
If "b11" < 2 Then
Range("b19").Clear
Range("b21").Clear
Range("b23").Clear
End If
End Sub


Dove sbaglio?
Grazie

[alfrimpa]

Ciao Marco

Potresti provare così:

Codice: Seleziona tutto

Private Sub WorkSheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Intersect(Target, Range("b11")) Is Nothing Then
        If Range("b11") < 2 Then
            Range("b19").Clear
            Range("b21").Clear
            Range("b23").Clear
        End If
    End If
Application.EnableEvents = True
End Sub

Alfredo

[Marco75CT]

Ciao Alfredo,
grazie per la risposta veloce.
Purtroppo non fuziona.
Il codice l'ho copiato nel codice del foglio per far si che si aggiorni automaticamente.
Sbaglio io?

[alfrimpa]

Ciao Marco

Io ho provato e mi sembrava funzionasse.

Hai inserito il codice nel modulo del foglio interessato e non in un modulo standard?

Puoi spiegare cosa non va?

Alfredo

[Marco75CT]

Ciao,
io ho aperto il codice del foglio interessato e copiato il tuo codice.
Non va che non accade nulla: dovrebbe cancellare il contenuto delle celle B19, B21, B23, mentre le celle rimangono popolate.

[alfrimpa]

Non saprei che dire.

A me se B11 è minore di 2 le celle B19, 21 e 23 si cancellano.

Prova ad allegare il file con Filedropper in modo che possa vederlo.

Alfredo

[Marco75CT]

Strano.
Ho provato il codice su un altro file e funziona :-(
Non capisco...

[alfrimpa]

Infatti......

Se vuoi allegare il file che non funziona giusto per curiosità e per capire.

Alfredo

[Marco75CT]

Non capisco...ora funziona...mah? non ho fatto nulla!!!
Comunque, come faccio a cancellare solo i valori e non anche la formattazione?
Grazie

[alfrimpa]

Al posto di .Clear devi mettere .ClearContents

Clear cancella anche i formati
ClearContents solo il contenuto

Alfredo

[Marco75CT]

Ok. Grazie 1000.