Macro que elimina filas vacías

La presente es para solicitarles muy respetuosamente ayuda con lo que presento a continuación:

Necesito que me ayuden a crear una macro que al darle clic me permita eliminar las filas vacías.

1 respuesta

Respuesta
1

H0la Yeison:

Prueba con esto (Nombre_hoja es el nombre de la hoja en la que deseas eliminar filas vacías)

Sub EliminarVacios()
    'Por GP'
    i = 4 'Número de la fila en que comienza a buscar'    
    fin = Sheets("Nombre_hoja").UsedRange.Rows.Count
    Do Until (i > fin)
        'Valida en columnas B a D (se puede modificar a gusto)'
        If WorksheetFunction.CountA(Range("B" & i & ":" & "D" & i)) = 0 Then
            Rows(i & ":" & i).Delete Shift:=xlUp
            fin = fin - 1
        Else
            i = i + 1
        End If
    Loop
End Sub

[email protected]

Hola Isaac, la macro no funciona, mira lo que sale cuando la activo

¿En qué línea aparece el error?

¿Reemplazaste el nombre de la hoja? ¿El nombre de la hoja es idénditico al que aparece en la etiqueta de la hoja?

Coméntame luego de hacer esas validaciones

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas