eliminar filas vacias

09/04/2007 - 17:06 por cochi | Informe spam
hola, necesito el codigo para agregar un macro que elimine todas las filas
vacías de una hoja.

saludos

Cochi
 

Leer las respuestas

#1 Manuel Maza
23/04/2007 - 16:56 | Informe spam
Hola,

te envio la macro

Sub EliminaFilasVacias()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

"cochi" wrote in message
news:
hola, necesito el codigo para agregar un macro que elimine todas las filas
vacías de una hoja.

saludos

Cochi

Preguntas similares