Eliminar filas que no contengan valores concretos

[k.lorenz]

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

[Gerson Pineda]

Hola [uSER=222624]@k.lorenz[/uSER]

Necesito un macro que permita eliminar de forma automática aquellas filas que no contengan ni X ni !

Revisa, prueba la macro y nos comentas

Saludos

Eliminar Filas_GP.rar

[evillegas271]

No es la Respuesta....!!!!!

[Gerson Pineda]

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 

[k.lorenz]

Me aparece un archivo que se llama extraer días de la semana y no encuentro macro en el.

 

 

[Gerson Pineda]

No se que ha pasado, lo subo de nuevo

Revisa y nos comentas

 

Saludos 

Eliminar Filas_GP.rar

[John Jairo V]

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!