Excel - Eliminar Filas en Blanco

 
Vista:

Eliminar Filas en Blanco

Publicado por Cecilia (3 intervenciones) el 09/07/2008 17:54:17
Buenas

Quisiera pedirle su ayuda. Dentro de una macro.Como podria eliminar filas en blanco.
Asi se veria en la hoja excel, los espacios en blanco serian las filas que quiero que no aparezcan. Pero algunas tienen datos y otras no. Y quiero que desaparezcan las filas que no tiene datos.
Por ejemplo. Esta seria la hoja de excel.
Y digame en que parte del codigo de la macro pondria para eliminar dichas filas en blanco.

N Clientes S.S. Cliente S.S. Empresa. Total S.S.
1)CTlL - NS - CIAL - CIAL 3 0.00 0.00 0.00
2)CTIL - NS - CIAL - OF 4 0.00 0.00 0.00
3)
4)
5)CTIL - NS - CIAL - OR 2 0.00 0.00 0.00
6)
7)
8)CTIL - NS - CIAL - OG 4 0.00 0.00 0.00
9)
10)CTIL - NS - CIAL - TR 1 0.00 0.00 0.00

...... y asi sucesivamente. Y el numero de filas en total son de la fila 2 hasta la fila 150

Espero contrar con su ayuda.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar Filas en Blanco

Publicado por Hugo Ylaqta (3 intervenciones) el 10/07/2008 00:12:49
Saludos Cecilia.
Algo de codigo que pueda darte una idea sobre la solucion que estas buscando, debo aclarar algunas cosas.
- El rango sobre el que se ejecuta la aplicacion sera de la fila 1 a la fila 150
- se evalua la columna 1 o A.
- se ocultaran las filas que en la columna A esten vacias

Sub OcultarFilas()
' una variable fil para recorrer las filas dentro del rango
Dim hj As Worksheet
Dim rango As Range
Dim fil As Range
Dim a As Integer, fi As Integer, fn As Integer
fi = 1: fn = 150
Set hj = ThisWorkbook.ActiveSheet
' estoy añadiendo Rows al final, asi me aseguro que recorra solo filas
Set rango = hj.Range(Cells(fi, 1), Cells(fn, 1)).Rows
' Para Cada Fila dentro del Rango
For Each fil In rango
If fil.Value = "" Then
fil.Hidden = True
End If
Next
End Sub

Espero sea de utilidad
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Eliminar Filas en Blanco

Publicado por Cecilia (3 intervenciones) el 10/07/2008 19:10:19
Muchas gracias en verdad!!!! Era lo que queria.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Eliminar Filas en Blanco

Publicado por Luis Fernando (803 intervenciones) el 11/07/2008 03:17:31
Algo como esto te puede servir si te paras sobre la primera celda con datos de la columna que vas a mirar si hay o no información

Sub Borrar_Fila_()


For i = 1 To 11
If ActiveCell = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Eliminar Filas en Blanco

Publicado por Miguel (1 intervención) el 25/10/2011 17:46:26
Gracias por el aporte, muy bueno. Fácilmente le gané más de 40 minutos a un proceso que se hizo como en 5.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar