[Excel 2003] Eliminare righe completamente vuote

[enrico43]

Buongiorno e benritrovati,
in un file Excel ricavato da un programma di contabilità ci sono molte righe completamente vuote che il programma inserisce tra le molteplici voci. Anticamente avevo fatto una macro che però non mi funziona più.
Sub DelRigheVuote()
Dim i As Long, iLimit As Long
iLimit = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = iLimit To 1 Step -1
If Application.CountA(Cells(i, 1).EntireRow) = 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Vi sarei grato se poteste dargli un aggiustata.
Un saluto
Enrico

[ricky53]

Ciao,
cosa ottieni dopo l'esecuzione della macro?

Va in errore?
Non cancella qualche riga vuota?
Cancella righe che non devono essere cancellate?

Leggendo il codice dovrebbe fare quello che chiedi !!!

Ho una perplessità su questa istruzione

Codice: Seleziona tutto

iLimit = ActiveSheet.UsedRange.Rows.Count

Io avrei utilizzato la seguente

Codice: Seleziona tutto

    iLimit = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Facendo l'ipotesi che la colonna "A" sia quella di riferimento per i dati del tuo foglio

[enrico43]

Cancella solo le prime 2 righe, vuotissime perchè ci sono i pulsanti di attivazione di altre macro, poi si ferma senza nessun errore.
Anche con la tua istruzione. La colonna A contiene i codici degli articoli, con riga completamente vuota tra un articolo e l'altro (vedi allegato del mio 3d precedente). E non è che non funziona perchè la feci con Excel 2010 su un portatile che poi mi hanno rubato, perchè almeno 2 righe le cancella.
Un saluto
Enrico

[ricky53]

Ciao
esegui il codice con "F8" e verifica l'istruzione per istruzione cosa contengono le variabili e quali istruzioni esegue.
Per terminare l'esecuzione "F5".

Se possibile invia un file di esempio così lo proviamo anche noi

[enrico43]

Eccolo
http://www.filedropper.com/j_3
e grazie.
Saluti
Enrico

[Flash30005]

Scaricato il file e provata la macro e toglie tutte le righe non aventi alcun dato
dov''è il problema?

ciao

[Anthony47]

Come e' poco noto, le celle contenenti formule non sono "vuote"; questo porta ad avere, dopo l' esecuzione della macro, numerose righe visualmente vuote ma tecnicamente contenente dei dati.
Mi pare che il controllo possa limitarsi alle colonne A:I (le altre contengono valori correlabili a queste colonne), modificando la riga
If Application.CountA(Cells(i, 1).EntireRow)) = 0 Then
in
If Application.CountA(Application.Intersect(Cells(i, 1).EntireRow, Range("A:I"))) = 0 Then

Ovviamente e' da provare su una copia del tuo foglio....

Ciao

[enrico43]

Chiedo scusa, la macro funzionava perfettamente ma non elimina righe dove ci sono formule, anche senza risultato.
Grazie comunque dell'interessamento, continuerò a rinfrescarmi il VBA.
Un saluto
Enrico

PS Mi sono accorto che in coda alla macro di quel file c'è quella che sto usando per la richiesta di cui all'altro 3d (accodamento verticale fogli). Poi con altre macrine sposto le colonne.

[Anthony47]

Non ho capito se ora e' tutto ok o se e' sempre come prima anche dopo aver applicato quanto suggerito qui:
viewtopic.php?f=26&t=102779&p=596934#p596932

Ciao

[enrico43]

Funziona, funziona, sia come l'ho compilata io che con il tuo suggerimento.
Un saluto
Enrico