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 de Isaac Reyes
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 SubS@lu2
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
