TRASPASAR FILAS DE UNA HOJA A OTRA CON DOS CONDICIONES

[Lydia]

Buenos días.

He realizado esta macro que  lo que hace es si en la columna "revisión " de la hoja "facturación servicer"  pone "no se remite" se traspase a la hoja "NO SE REMITE".

Si sólo pongo esa condición la macro funciona perfectamente y rápido pero si añado  que si en la columna "vendidas" de la hoja "facturación servicer"  sea distinto a "no vendidas" con la sentencia 

If REVISIÓN = "NO SE REMITE" Or VENDIDAS <> "NO VENDIDAS" Then , para que también lo mueva a la hoja " no se remite" se me queda muy tostado el fichero y no es viable.

He probado a hacerlo en dos partes, incluso en dos módulos pero seguro que hay algo mucho más eficaz.

Ambas hojas tienen las mismas columnas y en el mismo orden.

¿Alguien me puede ayudar?

Muchas gracias de antemano.

También os facilito el fichero ejemplo.

 

MODELO_FACTURACION_REVISION_PROYECTOS -PRUEBA3.xlsm

[JSDJSD]

Hola Lydia  , prueba el adjunto y comenta si es lo que necesitas

MODELO_FACTURACION_REVISION_PROYECTOS -PRUEBA4.xlsm

[JSDJSD]

Mejor prueba este, lo mismo pero con menos código

MODELO_FACTURACION_REVISION_PROYECTOS -PRUEBA5.xlsm

[Antoni]

También valdría, o eso creo:

Sub ExtraerDatosNOfacturar()
Dim Fila As Long
For Fila = 3 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
   If Hoja1.Range("AA" & Fila) = "NO SE REMITE" And _
      Not Hoja1.Range("AF" & Fila) = "NO VENDIDAS" Then
      Hoja1.Rows(Fila).Copy _
      Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(FilalUp).Row + 1)
      Hoja1.Rows(Fila).Delete
      Fila = Fila - 1
   End If
Next
End Sub