Excel azione su cambio elenco

[Marco75CT]

Ciao a tutti,
su un foglio che chiameremo "home" dovrei far cancellare una serie di celle (J30:J36;N30:N36;R30:R36) al variare della cella "G30".
Come faccio?
Grazie

[ricky53]

Ciao,
come te la cavi con il VBA?

Quali sono le regole per cancellare le celle?
Scrivele.
Esempio :
se "G30" contiene ".." allora cancella la cella "nn" o l'intervallo "nn:nn"

[Marco75CT]

Ciao Ricky,
in effetti, con un po' di sforzo, ho risolto da solo.
Mi dici se ho seguito la strada corretta?
In Questa_cartella_di_lavoro ho inserito il seguente codice:

Codice: Seleziona tutto

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("G30")) Is Nothing Then Exit Sub
    Range("I30:I36").Select
    Selection.ClearContents
    Range("L30:L36").Select
    Selection.ClearContents
    Range("O30:O36").Select
    Selection.ClearContents
End Sub

Il risultato è proprio quello voluto.

Grazie

[ricky53]

Ciao,
bene per aver provato e trovato una soluzione.
Domande:
il codice lo hai scritto in "ThisWorkbook"?
In questo modo viene attivo su tutti i fogli e si attiva ad "OGNI" cambiamento o cancellazione di dati fatta ing "G30".
Tu volvei proprio questo ?

Inoltre avendo utilizzato ".Select" il codice viene richiamato tre volte, una per Select, te ne puoi accorgere se metti un punto di interruzione all'inizio del codice (con "F9", posizionandoti sull'IF).
Occorre disabilitare gli eventi del foglio.


Io ti consiglio questo codice da mettere in un foglio, quello dove tu operi:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("G30")) Is Nothing Then
        Application.EnableEvents = False
        Range("I30:I36,L30:L36,O30:O36").ClearContents
        Application.EnableEvents = True
    End If
End Sub

E' più semplice ...
Se invece vuoi che il codice si attivi su ogni foglio allora utilizza questa versione

Codice: Seleziona tutto

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   
    If Not Intersect(Target, Range("G30")) Is Nothing Then
        Application.EnableEvents = False
        Range("I30:I36,L30:L36,O30:O36").ClearContents
        Application.EnableEvents = True
    End If
End Sub

[Marco75CT]

Ciao Ricky,
sia che inserisca il primo codice nel worksheet che il secondo nel workbook, al variare della cella G30 non succede niente.
Come si spiega?

[ricky53]

Ciao,
strano, molto strano.

Tu hai copiato in un foglio il primo codice e poi hai cambiato il valore della cella G30?
Le celle I30:36, L30:L36 e O30:O36 contengono dei dati?

Per verificare come lavora il codice metti una "interruzione" (con i tasto "F9") sull'If e poi cambia il valore di G30, vai avanti con F8 e segui le istruzioni evidenziate in giallo.
Dicci quali istruzioni vengono eseguite.



P.S.: hai fatto le prove che ti avevo detto di fare sul tuo codice ???

[Anthony47]

Marco, il problema l'hai poi risolto?

[Marco75CT]

Ciao Anthony e Ricky,
vi chiedo scusa per il ritardo, ma a causa del lavoro sono stato fuori città.
Questo w-end ci studio e vi faccio sapere.
Grazie