macro che cancella una determinata cella se un'altra cella contiene testo

Anonimo
2020-02-26T21:34:57+00:00

Buona sera

dovrei fare una macro che cancella una cella determinata, se un 'altra cella di altra colonna contiene un valore. 

Faccio un esempio pratico: se nella colonna C nel range da C2 a C50000 ci sono dei valori ogni 20 righe, questi valori possono essere "vero" o "falso". La macro dovrebbe leggere tutta la colonna e ogni volta che incontra il valore "vero" deve cancellare la cella che si trova esattamente nella colonna b 20 righe dopo la cella con il valore "vero"

spero di essere stato chiaro, volendo posso allegare un file di esempio

grazie

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2020-02-27T22:06:59+00:00

Ciao Giuseppe,

Grazie

ma purtroppo non funziona, da un errore di debug su questa istruzione:

Set rFoundCell = myRange.Find( _

                     What:=bSearchString, _

                     After:=ActiveCell, _

                     LookIn:=xlFormulas, _

                     LookAt:=xlWhole, _

                     SearchOrder:=xlByRows, _

                     SearchDirection:=xlNext, _

                     MatchCase:=False, _

                     SearchFormat:=False)

Il codice funziona a me senza alcun problema. Cancella le righe vyote tra le istruzioni.

Postscriptum:

Potresti scaricare il mio file di prova Giuseppe20200227.xlsm

===

Regards,

Norman

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

9 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2020-02-27T19:53:37+00:00

    Grazie

    ma purtroppo non funziona, da un errore di debug su questa istruzione:

    Set rFoundCell = myRange.Find( _

                         What:=bSearchString, _

                         After:=ActiveCell, _

                         LookIn:=xlFormulas, _

                         LookAt:=xlWhole, _

                         SearchOrder:=xlByRows, _

                         SearchDirection:=xlNext, _

                         MatchCase:=False, _

                         SearchFormat:=False)

    La risposta è stata utile?

    0 commenti Nessun commento