Saltar al contenido

Cortar filas que cumplan 2 condiciones


Recommended Posts

Sub FINALIZADOS()
Dim Fila As Long, x As Long
Application.ScreenUpdating = False
With Sheets("ESTADO")
   For x = 3 To .Range("A" & Rows.Count).End(xlUp).Row
      If .Range("K" & x) = "TERMINADO" And _
         .Range("K" & x) = "TERMINADO" Then
         Fila = Sheets("FINALIZADOS").Range("A" & Rows.Count).End(xlUp).Row + 1
         .Rows(x).Copy
         Sheets("FINALIZADOS").Range("A" & Fila).PasteSpecial xlValues
      End If      
   Next
   For x = .Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
      If .Range("K" & x) = "TERMINADO" And _
         .Range("K" & x) = "TERMINADO" Then
         .Rows(x).Delete
      End If
   Next
End With
Application.CutCopyMode = False
End Sub

 

Enlace a comentario
Compartir con otras webs

Buenas ,  no  puedo ver el archivo adjunto , pero por lo que dices . . .  , el codigo de Antoni tiene error . ( decir que es muy bueno ? )

If .Range("K" & x) = "TERMINADO" And _
         .Range("K" & x) = "TERMINADO" Then

tiene que ser

If .Range("K" & x) = "TERMINADO" And _
         .Range("L" & x) = "TERMINADO" Then

 cambialo en las dos intrucciones

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.