Jump to content
k.lorenz

Eliminar filas que no contengan valores concretos

Recommended Posts

Buenos días,

Después de estar intentando solucionar este tema por mi cuenta no me queda más salida que pedir ayuda.

Caso: Tengo una base de datos que contiene unas sección donde refleja con "X" o "!" errores de cumplimentación de datos. Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni ! (está todo correcto). para poder aislar las que tengan errores. Digo eliminar ya que es la única manera que se me ocurre pero quizá uds conocen otra manera de llegar al mismo resultado.

A B C D

1 !

2

3 X !

4 X

Adjunto un archivo a modo de ejemplo que también contiene explicación.

Muchas gracias por vuestra ayuda

Caso1.rar

Share this post


Link to post
Share on other sites
En 20/3/2016 at 12:53 , k.lorenz dijo:

Caso: Tengo una base de datos que contiene unas sección donde refleja con "X" o "!" errores de cumplimentación de datos. Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni ! (está todo correcto). para poder aislar las que tengan errores. Digo eliminar ya que es la única manera que se me ocurre pero quizá uds conocen otra manera de llegar al mismo resultado.

k.lorenz por favor comenta si te ha funcionado

 

Saludos 

Share this post


Link to post
Share on other sites

Hola @k.lorenz y @Gerson Pineda

Otra opción es como sigue:

Sub ElimFilas()
   Dim R As Range, C As Range, Rfin As Range, a&
   
   With Application
      .ScreenUpdating = False
      Set R = Range("D5:D15")
      For Each C In R
         a = .Sum(.CountIf(Range("D" & C.Row, "S" & C.Row), [{"x", "!"}]))
         If a =  Then
            If Rfin Is Nothing Then
               Set Rfin = Range("D" & C.Row)
            Else
               Set Rfin = Union(Rfin, Range("D" & C.Row))
            End If
         End If
      Next C
      Rfin.EntireRow.Delete
      Set R = Nothing: Set C = Nothing: Set Rfin = Nothing
      .ScreenUpdating = True
   End With
End Sub

¡Bendiciones!

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

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5