[Excel] Eliminare le righe vuote

[luca2002for]

Stavolta ho da sottoporre alle menti del forum un problema banale, dal quale però non riesco ad uscire.

Ho cercato in rete e per la verità trovato delle macro teoricamente perfette per questo scopo, ma quando le copio nel mio foglio di lavoro....non eliminano niente.... :-(

In sintesi il problema è:

Come faccio ad eliminare tutte le righe prive di contenuto all'interno del foglio1 in un range che vada dalla riga 1 alla riga 300?

Un grazie anticipato e salutoni a Verona ed Ivrea.

Luca :-)

[Alexsandra]

Codice: Seleziona tutto

Sub eliminarighevuote()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

cambia il range con quello che ti serve
ciao

[luca2002for]

Ciao e saluti al Veneto.

Grazie per la risposta, ma c'è qualcosa che mi sfugge. Non funziona.

Ho un foglio che si chiama ANALISI DATI e che contiene 4 colonne e circa 300 righe di numeri e testo.

Molte di queste righe sono vuote, quindi l'effetto che vorrei ottenere è quello di "accorpare" le righe piene, favorendo la leggibilità e stampabilità dei dati.

Ho provato a scrivere il codice

Codice: Seleziona tutto

Sub eliminarighevuote()
Application.ScreenUpdating = False
Sheets("ANALISI DATI").Select
Range("A1:D300").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Ma quando faccio partire la macro mi dice che non ha trovato celle vuote.

Quindi la macro funziona ma non fa quello che mi servirebbe. Il foglio rimane invariato.

Dove sbaglio, secondo te?

Un saluto Alex, sei sempre gentile :-)

Luca

[Alexsandra]

Non ho visto che avevi il range su più colonne, pensavo volessi puntare ad una colonna, in questo caso metti questo codice, ho tralasciato il nome del foglio che se è attivo non ti serve

Codice: Seleziona tutto

Sub eliminarighevuote()
With ActiveSheet.UsedRange
alex = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = alex To 1 Step -1
If Application.Count(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Prova così

[luca2002for]

Grande Alex!, funziona alla perfezione.

Ho aggiunto solo un

Codice: Seleziona tutto

 Sheets("ANALISI").Activate

per evitare che per distrazione io faccia partire la macro su un altro foglio ;-)

Come sempre sei mitica, buon fine settimana :-)

Luca

[By Sal]

Ciao, non era più facile fare un ordinamento è le righe scomparivano, andavano alla fine dell'elenco. Ciao

[Alexsandra]

Certo che era più facile Salvatore.
Il problema è che in un campo così vasto in questo applicativo (vba + excel) ogni utente fa una richiesta e non viene mostrato l'effettivo bisogno, o meglio, il contesto in cui viene utilizzato il codice proposto.

sarebbe bella cosa creare una regola di postare un esempio del programma che uno sta facendo e così si potrebbe suggerire la soluzione più ideale e semplice

[thunder78]

Ciao a tutti. Anch' io ho utilizzato la macro sopra ma togliendo lo screen updating, perchè ho accorpato l'istruzione a una macro più grande. la macro funziona ma mi toglie anche le intestazioni di colonna.
Perchè?

Grazie. Marco.

[Anthony47]

Ciao,
pprova a usare questa istruzione al posto di quella originale:

Codice: Seleziona tutto

For r = alex To 2 Step -1

Ciao.

[thunder78]

Come sempre puntuale, preciso e soprattutto RISOLUTIVO!

Grazie.