Saltar al contenido

Cortar filas que cumplan 2 condiciones

publicado

Hola

He leído varios temas muy similares, mi nivel en Excel es escaso y en macros nulo. No encuentro un caso similar.

Necesito que cuando K y L ambas contenga TERMINADO.  

Cortar la fila,  pegarlas en FINALIZADOS.

Eliminar la fila

¿Podéis ayudarme?

Gracias de antemano

TEST_PENDIENTES_MACRO.xlsm

Featured Replies

publicado
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

 

publicado

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

publicado
  • Autor

Uauu mil gracias!! Funciona!! Para mi es como hacer magia, muchas gracias, seguro que continua dando la tabarra. 

Archivado

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