Seleccionar una columna y eliminar filas completas según criterio

Como puedo seleccionar la columna G y seleccionar todas las filas con valor 0

Y eliminarlas todas a lavez

Ya que si elimino por el criterio valor 0 elimina de una en una colapsando la pc

Seria :

Seleccionar columna G desde G6 hasta el ultimo dato

Seleccionar todas las filas que contengan valor 0 y eliminarlas

Espernado sus comentarios

1 Respuesta

Respuesta
Sub EliminarFilas()
    Dim i As Integer
    Dim UltimaFila as Long
    Dim col as String
    col = "G"
    UltimaFila = Cells(Rows.Count, col).End(xlUp).Row
    For i = 6 To UltimaFila
        If Cells(i, col).Value = 0 Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas