Este fórum está sendo desativado

[Victorzoomg1]

Olá. Trabalho com uma planilha onde todos os dias imprimo varias listagens. Ocorre que todo dia preciso filtrar o dia, filtrar a situação (interno/externo) e depois filtrar as áreas e imprimir conforme cada filtro.
O que preciso saber é se tem como, usando VBA, Imprimir automaticamente todas as áreas, referente ao ultimo filtro de uma vez só, porém em folhas separadas, ja que para isso, tenho que filtrar e imprimir uma a uma.

Estou anexando um modelo da planilha para poder ajudar.


Obrigado.

[Victorzoomg1]

Não estou conseguindo anexar a planilha.

[Vidal]

use algo como winrar ou winzip para compactar a planilha e somente depois conseguirá anexar aqui, ok?! abraço!

[alexandrevba]

Boa tarde!!

Já tentou gravar uma macro usando filtro avançado?


Att

[Victorzoomg1]

Boa tarde!!

Já tentou gravar uma macro usando filtro avançado?


Att

Não sei se tem como. Cada dia são áreas diferentes. Basicamente o que quero é q imprima o q tiver nos filtros disponíveis de uma coluna após eu filtrar outras duas. Só que uma folha pra cada filtro.

[Victorzoomg1]

Boa tarde!!

Já tentou gravar uma macro usando filtro avançado?


Att

Obrigado Pela dica. Sou novo no forum.

[alexandrevba]

Boa noite!!!

Seria algo assim?



Att

[Victorzoomg1]

Boa noite!!!

Seria algo assim?



Att

Qual a senha pra descompactar o zip? Ja agradeço aki de uma vez. se for o q preciso aviso. Obrigado

[alexandrevba]

Boa tarde!!

Não há senha!!!

obs: Geralmente eu não uso senha em anexo, acabei de testar!

Att

[Victorzoomg1]

Alexandrevba. Não entendi muito bem aqui. O que eu preciso é que imprima as listagens de acordo com meus filtros. E se pudesse sem mudar a ordem das colunas do modelo q eu postei. O que o modelo que vc fez ta separando as listagens por abas, e todos os dias tenho novas entradas na planilha, portanto seria inviavel separar meus conteúdos por abas. Eu preciso que imprima de acordo com o filtro q estiver visivel.

[lfgomes]

Bom dia Vitor...

Veja se dessa forma pode te ajudar...

[alexandrevba]

Boa tarde!!

Não testado!

Código: Selecionar todos

Option Explicit
 
Sub AleVBA_703()
     
    Dim ws As Worksheet
    Dim lastrow As Long
     
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
        With ws
            lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="INTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="INTERNO 1"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="INTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="INTERNO 2"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="INTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="INTERNO 3"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="EXTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="EXTERNO 1"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="EXTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="EXTERNO 2"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
            .AutoFilterMode = False
            .Range("A4:H" & lastrow).AutoFilter field:=8, Criteria1:="EXTERNO"
            .Range("A4:H" & lastrow).AutoFilter field:=2, Criteria1:="EXTERNO 3"
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address
        End With
    Application.ScreenUpdating = True
     
End Sub

Obs: Use o comando PrintOut após...

Código: Selecionar todos

 .PageSetup.PrintArea = .Range("A4:H" & lastrow).Address

Att

[Victorzoomg1]

Bom dia Vitor...

Veja se dessa forma pode te ajudar...

Cara. É isso mesmo que quero. O único detalhe é que na coluna de áreas imprime os externos e internos junto. Não sei se falei. Mas são dois momentos diferentes, então preciso que imprima de acordo com o filtro da ultima coluna. Quando filtra internos, imprimir só internos e a mesma coisa para externos.
Inclusive na coluna de áreas não vão ser usados os nomes externos e internos, mas isso acho que consigo modificar.
Mas Obrigado pelo que já fez. É isso mesmo, só com o detalhe de imprimir externos e internos separados. Se puder ajudar mais um pouquinho. .. Vlw

[alexandrevba]

Boa tarde!!

Você meu exemplo, talvez fique mais claro de como manipular o critério...

Att

[Victorzoomg1]

Boa tarde!!

Você meu exemplo, talvez fique mais claro de como manipular o critério...

Att

Boa tarde. Eu vi la. Fez a mesma coisa. Imprime tanto o externo quanto o interno junto.
Só uma duvida. Quando eu for realmente utilizar a planilha, vou incluir vários itens(localidades e áreas) na coluna B que não estão no modelo. Vou ter que ajustar a macro para os itens que entrar posteriormente? vlw

[alexandrevba]

Boa tarde!!

Quando eu for realmente utilizar a planilha, vou incluir vários itens(localidades e áreas) na coluna B que não estão no modelo. Vou ter que ajustar a macro para os itens que entrar posteriormente?

Sim!!

Mas o código verificar Externo e Externo 1,2,3 depois Interno e Interno1,2,3 ou vice versa....não seria isso?

Att

[lfgomes]

Vitor...

Se eu entendi bem, quando selecionado INTERNO, imprime todos os INTERNOS juntos e o mesmo com os EXTERNOS...

É isso ???

Se for, segue a correção...

[Victorzoomg1]

Vitor...

Se eu entendi bem, quando selecionado INTERNO, imprime todos os INTERNOS juntos e o mesmo com os EXTERNOS...

É isso ???

Se for, segue a correção...

Quase isso. Ao selecionar interno quero que imprima todos internos, porem cada interno em uma folha diferente. O mesmo para os externos.

[Victorzoomg1]

E ai gente? Não tem como mesmo?? Vlw.

[lfgomes]

Boa tarde Vitor...

Desculpe pela demora para responder... é que o seu pedido é um pouco complexo para mim...

Mas espero que eu tenha chegado no resultado que você procura...

Abraço