Hola Eduardo:
Fijate en esto a ver si te funciona.
En la planilla Excell donde estas trabajando, creá una nueva macro, asignale la letra "a" para que despues puedas llamarla presionando simultáneamente las teclas "Ctrl +A", una vez hecho esto, graba la macro, y abrela con el editor de Visual Basic.
Dentro de dicho macro copia este código, que hicimos especialmente para ti, y que esta suficientemente explicado:
-----------------------------------------------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'
' Acceso directo: CTRL+a
'
'Declaramos variables para los bucles for para recorrer filas y columnas
Dim filas As Long, columnas As Long
'Declaramos variable del tipo integer para determinar si la fila esta vacía
Dim filavacia As Integer
'Declaramos variables para establecer el total de columnas y filas actuales
Dim totalcolumnas As Long, totalfilas As Long
'asignamos a la variable totalcolumnas, el total de columnas de la hoja activa
totalcolumnas = ActiveCell.SpecialCells(xlLastCell).Columns.Column
'lo mismo para la variable total filas
totalfilas = ActiveCell.SpecialCells(xlLastCell).Rows.Row
'Iniciamos los bucles for
'Este es para recorrer todas las filas hasta el valor establecido en la variable totalfilas
'Porque comenzamos en 2?. Porque se supone que la primera fila si o si está escrita
'dado que tendrían que estar los títulos o referencias.
For filas = 2 To totalfilas
'establecemos el valor de la variabloe filavacia a cero.
filavacia = 0
'una vez en cada fila iniciamos el bucle for para recorrer cada columna
For columnas = 1 To totalcolumnas
'si el valor de la celda recorrida en esta instancia es nulo
'se incrementa la variable filavacía en mas uno.
If Cells(filas, columnas).Value = "" Then
filavacia = filavacia + 1
End If
'dentro de la misma fila, vamos a la siguiente columna.
Next columnas
'Si la variable filavacia es 0 a el total de columnas que se encuentra establecido
'en la variable totalcolumnas, entonces...
If filavacia = totalcolumnas Then
'Seleccionamos esa celda
Cells(filas, columnas).Select
'De la celda activa, seleccionamos la fila entera
ActiveCell.EntireRow.Select
'Borramos dicha fila, donde previamente hemos establecido, que ninguna de las
'celdas contiene información.
ActiveCell.EntireRow.Delete
End If
'avanzamos para examinar la siguiente fila.
Next filas
End Sub
'De esta manera evitamos borrar una fila que pueda contener en algunas de sus
'celdas información valiosa.
-----------------------------------------------------------------------------------------------------------
Finalmente en la hoja primera de Excell, nosotros pusimos información mas o menos de esta manera:
Apellido Nombres Teléfono Localidad
Méndez Luis 25632 Bragado
Castro Jorge 56552 Bragado
Santellan Anibal 745454 Capital
12544 Chivilcoy
Alberti
-----------------------------------------------------------------------------------------------------------
Observarás que en esta hoja excell hay lineas vacías, y lineas que en algunas celdas tienen información.
Observa que cuando ejecutas la macro, solo las filas totalmente vacías se eliminan, y las que en algunas celdas tienen información permanecen inalterables.
-----------------------------------------------------------------------------------------------------------
Bueno un abrazo, en la esperanza que nuestra ayuda te haya sido util.
A tu disposición ante cualquier consulta.
Luis
----------------------------
Webs
----------------------------
www.bragadomas.com.ar
www.bragadomas.com
http://bragadohoy.blogspot.com/
----------------------------
Mail
----------------------------
info@bragadomas.com
----------------------------
Foros:
----------------------------
http://www.foroswebgratis.com/foro-foro_de_programacion_en_general-152776.htm
http://www.bragadomas.com/forodeprogramacion/index.php
----------------------------
