Jump to content
Lydia

TRASPASAR FILAS DE UNA HOJA A OTRA CON DOS CONDICIONES

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

 

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