Necesito crear una macro que me ayude a eliminar filas si el valor de una celda es igual a cero.
Esto lo necesito hacer varias veces ya que la hoja tiene cerca de 10,000 filas.
ENTRE A 4969 EXPERTOS Y VI ESTA MACRO :
Sub Eliminar_filas()
' Ultima fila de datos
uf = Range("A" & Rows.Count).End(xlUp).Row
' Recorremos el bucle desde la última fila con datos, hasta la fila 6'
For f = uf To 6 Step -1
' Si la celda de la columna "E" de la fila examinada'
' Es igual a 0 o no está en blanco'
If Cells(f, "E") = 0 Or Cells(f, "E") = "" Then
' Borra la fila'
Rows(f).Delete
End If
Next
End Sub
Nada mas que se queda en el "end if", y no termina el ciclo, me manda a depurar.
Respuesta de Elsa Matilde
3
1 respuesta más de otro experto
Respuesta de Dante Amor
3