DAR BAIXA COM UM SÓ CLIQUE

[Antonio Lanis]

Estou com dificuldade em fazer com que a macro criada para dar baixa execute o comando para todos os casos em que a palavra "PAGO" é encontrada. A macro atual executa o comando um por vez, mas tem algo errado. Ideal é que faça com um único clique. Poderiam me ajudar?Dar baixa com um clique.rar

[edcronos]

VEJA SE É ISSO
 

não testei completamente , para falar a verdade nem sei se entendi

Sub Baixa2()    Application.ScreenUpdating = False    With Sheets("Registro")    c = Cells(1, "J").Column    lf = .Cells(Rows.Count, c).End(xlUp).Row    l2 = Sheets("Pagos").Cells(Rows.Count, "b").End(xlUp).Row + 1    For L = lf To 3 Step -1        If .Cells(L, c).Value2 = "PAGO" Then            Sheets("Pagos").Range("B" & l2, "i" & l2).Value2 = .Range("B" & L, "i" & L).Value2           .Rows(L).EntireRow.Delete            l2 = l2 + 1        End If    Next    End With   MsgBox "Baixa de Pagamentos Realizada Com Sucesso", vbOKOnly, "Atenção"    Application.ScreenUpdating = True    'ActiveWorkbook.SaveEnd Sub

[Antonio Lanis]

Super obrigado, amigo! Testei várias vezes e funcionou como desejo.