Este fórum está sendo desativado

[tonilanis]

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?

[alexandrevba]

Boa tarde!!!

Considerando que na guia Pagos, o cabeçalho come em A1..então

Código: Selecionar todos

Sub AleVBA_918()
    Application.ScreenUpdating = 0
        Range("B2:J" & Range("B" & Rows.Count).End(3)(1).Row).AutoFilter 9, "PAGO"
        Range("B3:J" & Range("B" & Rows.Count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).Copy _
        Worksheets("Pagos").Cells(Rows.Count, "A").End(xlUp).Offset(1)
        Range("B3:J" & Range("B" & Rows.Count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
        ActiveSheet.AutoFilterMode = False
        Worksheets("Pagos").Columns("I").Delete
    Application.ScreenUpdating = 1
End Sub

Att

[tonilanis]

Testei sua sugestão. Ela segue a lógica esperada de dar baixa sem apagar ou sobrepor a linha 3. O código que está no arquivo que enviei eu tentei adaptar de um outro arquivo onde este código funciona corretamente. Minha adaptação erra onde?

[alexandrevba]

Boa tarde!!

Veja o anexo...

Att

[Edcronos]

pelo visto ele colocou a mesma duvida em todos os foruns

respondido aqui,
http://forum.clubedohardware.com.br/top ... B3-clique/

pelo menos ele colocou como resolvido