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.

  En 17/2/2020 at 11:19 , 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.xlsxUnavailable

  En 17/2/2020 at 20:23 , 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 20: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.xlsxUnavailable

Adjunto mi versión, para eliminar las filas

 

Saludos

Borrar filas Vba_GP.zipUnavailable

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

  En 20/2/2020 at 21:39 , 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