Borrado de filas que NO cumplen varios criterios

[miguel.sme]

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

 

[miguel.sme]

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

[Haplox]

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

[miguel.sme]

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

[Haplox]

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

 

[miguel.sme]

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

[Gerson Pineda]

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

[miguel.sme]

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.

[miguel.sme]

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

[Gerson Pineda]

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