Página 1 de 1
Dar Baixa com um só clique.
Enviado: 14 Nov 2015 às 22:07
por 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?
Re: Dar Baixa com um só clique.
Enviado: 15 Nov 2015 às 14:08
por alexandrevba
Boa tarde!!!
Considerando que na guia
Pagos, o cabeçalho come em
A1..então
Código: Selecionar todosSub 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
Dar Baixa com um só clique.
Enviado: 16 Nov 2015 às 10:13
por 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?
Re: Dar Baixa com um só clique.
Enviado: 16 Nov 2015 às 14:59
por alexandrevba
Boa tarde!!
Veja o anexo...
Att
Re: Dar Baixa com um só clique.
Enviado: 17 Nov 2015 às 07:16
por 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