Eliminar Filas
Tengo una lista de datos con filas vacías en el intermedio de toda la lista, necesito saber como eliminar todas las filas vacías de una sola vez con alguna rutina condicionante o macro, les agradezco de antemano su ayuda.
Mis mails:
[email protected]
[email protected]
Saludos desde Nicaragua
Mis mails:
[email protected]
[email protected]
Saludos desde Nicaragua
2 Respuestas
Respuesta de tavopz
1
Me parece que la manera más fácil es ordenando los datos de tal manera que desaparezcan las celdas vacías (o mejor, que estas queden al final).
También podría hacerse mediante una rutina que se repita por todas las celdas y que elimine las que aparezcan vacías, pero es un poco más complejo.
Dime si esta opción te sirve, sino te envío un ejemplo de la rutina.
También podría hacerse mediante una rutina que se repita por todas las celdas y que elimine las que aparezcan vacías, pero es un poco más complejo.
Dime si esta opción te sirve, sino te envío un ejemplo de la rutina.
Gracias Tavopz, muy ágil y oportuna tu ayuda, pensá estaba más difícil el asunto, lo resolví Ordenación de Datos, podría obtener tú mail para consultas directas, Gracias nuevamente y Saludos desde Nicaragua, [email protected]
Respuesta de anders
1
Esta macro elimina filas vacías. Entra el editor VBA (Alt+F11). A la izquierda ves las hojas del libro (si no CTRL+R). Dobleclick en la hoja de la lista de filas vacías. Aquí pegas el código. Cierra el editor.
Herramientas, Macro, Macros. Ejecuta la macro.
Importante: Recuerda hacer una copia de seguridad antes de aplicar esta macro.
Saludos
Anders
xltoday.net
Sub SuprimirFilasVacias()
Dim intUltimaFila As Long
intUltimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
For r = intUltimaFila To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Herramientas, Macro, Macros. Ejecuta la macro.
Importante: Recuerda hacer una copia de seguridad antes de aplicar esta macro.
Saludos
Anders
xltoday.net
Sub SuprimirFilasVacias()
Dim intUltimaFila As Long
intUltimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
For r = intUltimaFila To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub