Buenos días,

intento borrar filas metiendo varios criterios (texto) situados en una sóla columna mediante este código pero no consigo meter varios. Agradecería cualquier ayuda. Muchas Gracias de antemano:

Sub ElimarFilaxCriterio()

u = Cells(Rows.Count, 1).End(xlUp).Row

qColumna = "x"
qCriterio = "XXX", "YYY", "ZZZ"

For i = u To 2 Step -1
Cells(i, qColumna).Select
If Cells(i, qColumna) = qCriterio Then
    ActiveCell.EntireRow.Select
    Selection.Delete
End If
Next
End Sub

 

Hola de nuevo, en realidad, me interesa no borrar las filas que cumplan varios criterios. ¿Se puede fácilmente? Gracias.

Hace 8 horas, miguel.sme dijo:

en realidad, me interesa no borrar las filas que cumplan varios criterios. ¿Se puede fácilmente?

Hobre, poder se puede... lo que no podemos es adivinar qué necesitas o quieres. Si subes tu archivo ejemplo explicando lo que quieres hacer, se puede mirar

Sí, la verdad es que sin ejemplo debe ser difícil... os lo adjunto y describo con más detalle.

Se trataría de filtrar y borrar a partir de la linea 3 que es la que clasifica lo que viene a continuación. 

Autofilter y borrar las localidades que no son ni albacete ni roma ,por ejemplo , desde la columna encabezada con Localidad.

Gracias de antemano.

Libro1.xlsx

Hace 21 horas, miguel.sme dijo:

Se trataría de filtrar y borrar a partir de la linea 3 que es la que clasifica lo que viene a continuación

Prueba con este código a ver si es  lo que buscas
 

Sub borrar_filas()
Dim uF&, i&

uF = Range("B" & Rows.Count).End(xlUp).Row

For i = uF To 3 Step -1
    If Cells(i, "B") Like "Roma*" Or Cells(i, "B") Like "Albacete*" Then
        
    Else
        Cells(i, "B").EntireRow.Delete
    End If
Next i

End Sub

 

Funciona y es rápida. Muchas gracias José.

Hola a ambos

En 17/2/2020 at 14:23 , miguel.sme dijo:

Sí, la verdad es que sin ejemplo debe ser difícil... os lo adjunto y describo con más detalle.

Se trataría de filtrar y borrar a partir de la linea 3 que es la que clasifica lo que viene a continuación. 

Autofilter y borrar las localidades que no son ni albacete ni roma ,por ejemplo , desde la columna encabezada con Localidad.

Gracias de antemano.

Libro1.xlsx 9 kB · 2 descargas

Adjunto mi versión, para eliminar las filas

 

Saludos

Borrar filas Vba_GP.zip

Muchas gracias Gerson, la pruebo también. Si algún día tienes un rato, me gustaría saber si esto se puede mejorar en términos de tiempo ya que al ir caracter a caracter se bloquea el ordenador:

Gracias de antemano.

Acabo de probarla, es la manera más veloz de eliminarlas de entre las varias macros que he ido probando. Muchas gracias Gerson.

Editado el el 20 de febrero5 años por miguel.sme

Hace 21 horas, miguel.sme dijo:

Acabo de probarla, es la manera más veloz de eliminarlas de entre las varias macros que he ido probando. Muchas gracias Gerson.

La ventaja de trabajar en memoria, es precisamente tratar con miles de filas

 

Saludos