Eliminar filas vacias

Prueba poniendo datos en las celdas A1, C3, E5 y corriendo las rutinas y me cuentas como funcionan.
Además puedes resetear la última celda agregando una línea y quedaría de esta manera:

Sub QuitarFilasVacias()
'
' QuitarFilasVacias Macro
' Macro creada el 12/04/2005 por William Posada C.
'

'
Dim Fila As Integer
ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Fila = ActiveCell.SpecialCells(xlLastCell).Row To 1 Step -1
If Application.CountA(Rows(Fila)) = 0 Then Rows(Fila).Delete
Next
End Sub

"" escribió en el mensaje news:

Con lo que siempre tendrás la última fila o una posterior. Lo que ocurre con tu rutina es que si en la primera columna hay
blancos, pero en las otra columnas hay datos y filas vacías estas no se eliminarán ya que solo busca la última fila de la columna
uno; acambio de eso prefiero eliminar algunas filas vacías innecesarias para que la rutina siempre funcione, claro que son mis
gustos. Chao



"KL" escribió en el mensaje news:

Hola chicos,

Yo personalmente no recomendaria el uso de SpecialCells(xlLastCell) por dos razones fundamentales:

1) si hay formatos de por medio, se devolvera la ultima celda que tiene datos o la que tiene algun formato dostinto al formato
por defecto.

2) el fallo conocido de la propiedad .UsedRange y de SpecialCells(xlLastCell) en actualizarse al eliminar filas en la hoja.

Saludos,
KL


"" wrote in message news:%

Si mezclamos el anterior y el de KL, creo que queda mejor

Sub QuitarFilasVacias()

Application.ScreenUpdating = False
For Fila = ActiveCell.SpecialCells(xlLastCell).Row To 1 Step -1
If Application.CountA(Rows(Fila)) = 0 Then Rows(Fila).Delete
Next
End Sub

"Xames" escribió en el mensaje news:%

Como puedo hacer para que me busque dentro de una tabla todas las filas vacias y me las elimine?

Gracias

no es lo que buscaba pero funcionar funciona de vicio
gracias


"" escribió en el mensaje
news:%

Puedes probar esta macro y me cuentas como te va:

Option Explicit

Sub QuitarFilasVacias()
'
' QuitarFilasVacias Macro
' Macro creada el 12/04/2005 por William Posada C.
'

'
Dim Fila As Integer

Application.ScreenUpdating = False
For Fila = ActiveCell.SpecialCells(xlLastCell).Row To 1 Step -1
If Cells(Fila, 1).Value = "" And Cells(Fila, 1).End(xlToRight).Column =
256 Then
Cells(Fila, 1).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub


"Xames" escribió en el mensaje
news:%

Como puedo hacer para que me busque dentro de una tabla todas las filas
vacias y me las elimine?

Gracias