Eliminazione righe

Hai un problema con Excel?

Nuova discussione

Eliminazione righe
di Gugluca (utente non iscritto) data: 02/05/2011
Ciao a tutti.
ho creato una macro con dei cicli, con i quali in base al valore trovato di una cella mi eliminano l'intera riga.
qui di sotto ho inserito il codice che utilizzo.
nella colonna 'c', vado a selezionare l'ultima riga piena (in modo da non far scorrere al ciclo tutto il foglio excel).
vorrei eliminare tutte le righe che hanno una cella vuota nella colonna 'e'. questo ciclo qua sotto me lo fa abbastanza bene. in realtà, se trovo più celle bianche di fila nella colonna 'e', la macro non mi cancella tutte le righe. per farle fare il suo lavoro la devo ricopiare e gliela devo far rifare. (per esempio, se ho 20 righe consecutive con la cella in colonna 'e' bianca, devo ricopiare il ciclo 10 volte). diventa piuttosto lenta e macchinosa.
come posso fare per migliorarla?

grazie in anticipo.
luca
Sub pulisci_excel() ultimariga = Range("c65356").End(xlUp).Row For i = 1 To ultimariga If Range("e" & i) = "" Then Range("e" & i).Select Selection.EntireRow.Delete End If Next i

di Locate (utente non iscritto) data: 02/05/2011
Ciao
la macro in questione e' sempre la tua con una
modifica alla colonna di ricerca c, e in questo caso si parte sempre dal basso verso l'alto
vedi ciclo for

ciao da locate
excel 2003

Sub pulisci_excel()
ultimariga = Range("C" & Rows.Count).End(xlUp).Row
For i = ultimariga To 1 Step -1
If Range("e" & i) = "" Then
Range("e" & i).Select
Selection.EntireRow.Delete
End If
Next i
End Sub

Eliminazione righe
di Gugluca (utente non iscritto) data: 02/05/2011
Grazie infinite.
ora funziona tutto bene

ciao!
buona giornata

luca

Vuoi Approfondire?