Borrar Filas Vacias

Borrar Filas Vacias

Código Macro

Macros para formato de estilos...

'Este código borra las filas vacias del rango utilizado en la hoja activa...

Sub Borrar_Filas_Vacias()
Dim TotalFila As Integer
Dim Fila As Integer
    TotalFila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For Fila = TotalFila To 1 Step -1
        If Application.CountA(Rows(Fila)) = 0 Then Rows(Fila).Delete
    Next Fila
End Sub
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...