Eliminacion de filas en excel

[Antonio8688]

Hola Alejandro.

En realidad no eres muy explícito en tu consulta. Por ejemplo, no informas en qué columnas están las celdas con valor "0". De todas formas, prueba con esta macro:


'Elimina filas según una condición

Option Explicit

Sub ElimFila()
' Macro grabada el 27/02/08 por Toño

Dim Celda As String
Celda = "0"

'se evalúa la col F
Range("F1").Select

While ActiveCell.Value <> ""
If ActiveCell.Value = Celda Then
ActiveCell.EntireRow.Delete
Else

ActiveCell.Offset(1, 0).Select
End If

Wend

End Sub


Fíjate que en esta rutina yo evalúo la columna F. Debes modificarla de acuerdo con tus necesidades. Te sugiero sacar un backup de tu fichero antes de ejecutar la macro. Espero haberte ayudado.

_____________________________________________
Un saludo desde Barranquilla, la Puerta de Oro de Colombia