Eliminar filas con macro
Hola, estoy tratando de eliminar filas con una macro, tengo una base la cual contiene ciertas filas que debo eliminar EJM 12511-0 es una operación que se repite varias veces y debo elimimar toda la fila.. EJM 44511-1 es una operación que se repite varias veces y debo elimimar toda la fila..
Actualmente lo estoy realizando con autofiltro y luego elimino, pero deseo automatizar esto, ¿puedes ayudarme?
Actualmente lo estoy realizando con autofiltro y luego elimino, pero deseo automatizar esto, ¿puedes ayudarme?
1 Respuesta
Respuesta de pitcher_
1
Agrega este código. Lo tienes que ejecutar sin autofiltro :
Sub Eliminar_Filas()
For Filas = 1 To Range("A65535").End(xlUp).Row
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Then
Range(Filas & ":" & Filas).Select
Selection.Delete Shift:=xlUp
Filas = Filas - 1
End If
Next Filas
End Sub
Tome como ejemplo que los datos están en la columna A.
Sub Eliminar_Filas()
For Filas = 1 To Range("A65535").End(xlUp).Row
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Then
Range(Filas & ":" & Filas).Select
Selection.Delete Shift:=xlUp
Filas = Filas - 1
End If
Next Filas
End Sub
Tome como ejemplo que los datos están en la columna A.
Pitcher, Gracias por responder
Copie lo que me enviaste y quedo perfecto, puedes indicarme como ingresar más elementos para borrar, en total son 10 que están dentro de la base y necesite borrarlos, te agradecería mucno la ayuda
Copie lo que me enviaste y quedo perfecto, puedes indicarme como ingresar más elementos para borrar, en total son 10 que están dentro de la base y necesite borrarlos, te agradecería mucno la ayuda
Este es comando de consulta :
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Then
Se puede agregar de la siguiente manera :
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Or Cells(Filas, 1) = "nuevo Criterio" Then
Se debe copiar : Or Cells(Filas, 1) = "" y lo que esta entre comillas es el nuevo criterio.
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Then
Se puede agregar de la siguiente manera :
If Cells(Filas, 1) = "12511-0" Or Cells(Filas, 1) = "44511-1" Or Cells(Filas, 1) = "nuevo Criterio" Then
Se debe copiar : Or Cells(Filas, 1) = "" y lo que esta entre comillas es el nuevo criterio.
