Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 01/21/2022 in all areas

  1. Janlui

    Calendario mes

    TE SIRVE ESTO? Calendario.xlsx
    1 point
  2. njnsp

    Función buscar

    Te dejo dos opciones; hay unas cuantas mas. Buscar.xlsx
    1 point
  3. 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
    1 point
  4. 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
    1 point
×
×
  • Create New...

Important Information

Privacy Policy