Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

miguel.sme

ANSWERED Borrado de filas que NO cumplen varios criterios

Recommended Posts

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

 

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
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 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png