Condividi:        

[Excel 2003] Eliminare righe completamente vuote

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel 2003] Eliminare righe completamente vuote

Postdi enrico43 » 19/09/14 13:17

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
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Sponsor
 

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi ricky53 » 19/09/14 14:36

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi enrico43 » 20/09/14 08:42

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
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi ricky53 » 20/09/14 09:54

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi enrico43 » 20/09/14 13:58

Eccolo
http://www.filedropper.com/j_3
e grazie.
Saluti
Enrico
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi Flash30005 » 21/09/14 00:28

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

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi Anthony47 » 21/09/14 23:17

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi enrico43 » 22/09/14 06:33

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.
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi Anthony47 » 22/09/14 16:38

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel 2003] Eliminare righe completamente vuote

Postdi enrico43 » 23/09/14 07:11

Funziona, funziona, sia come l'ho compilata io che con il tuo suggerimento.
Un saluto
Enrico
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino


Torna a Applicazioni Office Windows


Topic correlati a "[Excel 2003] Eliminare righe completamente vuote":


Chi c’è in linea

Visitano il forum: Nessuno e 108 ospiti