Página 1 de 2
Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 15:08
por 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.
Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 15:24
por Victorzoomg1
Não estou conseguindo anexar a planilha.
Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 16:38
por Vidal
use algo como winrar ou winzip para compactar a planilha e somente depois conseguirá anexar aqui, ok?! abraço!
Re: Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 16:59
por alexandrevba
Boa tarde!!
Já tentou gravar uma macro usando filtro avançado?
Att
Re: Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 17:40
por Victorzoomg1
alexandrevba escreveu: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.
Re: Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 17:41
por Victorzoomg1
alexandrevba escreveu:Boa tarde!!
Já tentou gravar uma macro usando filtro avançado?
Att
Obrigado Pela dica. Sou novo no forum.
Re: Impressão de conteúdos filtrados separadamente
Enviado: 02 Out 2015 às 22:49
por alexandrevba
Boa noite!!!
Seria algo assim?
Att
Re: Impressão de conteúdos filtrados separadamente
Enviado: 05 Out 2015 às 10:31
por Victorzoomg1
alexandrevba escreveu: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
Re: Impressão de conteúdos filtrados separadamente
Enviado: 05 Out 2015 às 13:43
por alexandrevba
Boa tarde!!
Não há senha!!!
obs: Geralmente eu não uso senha em anexo, acabei de testar!
Att
Impressão de conteúdos filtrados separadamente
Enviado: 05 Out 2015 às 14:21
por 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.
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 10:01
por lfgomes
Bom dia Vitor...
Veja se dessa forma pode te ajudar...
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 13:28
por alexandrevba
Boa tarde!!
Não testado!
Código: Selecionar todosOption 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
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 13:40
por Victorzoomg1
lfgomes escreveu: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
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 13:49
por alexandrevba
Boa tarde!!
Você meu exemplo, talvez fique mais claro de como manipular o critério...
Att
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 13:58
por Victorzoomg1
alexandrevba escreveu: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
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 14:30
por 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
Re: Impressão de conteúdos filtrados separadamente
Enviado: 06 Out 2015 às 15:13
por 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...
Re: Impressão de conteúdos filtrados separadamente
Enviado: 07 Out 2015 às 13:53
por Victorzoomg1
lfgomes escreveu: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.
Impressão de conteúdos filtrados separadamente
Enviado: 13 Out 2015 às 16:50
por Victorzoomg1
E ai gente? Não tem como mesmo?? Vlw.
Re: Impressão de conteúdos filtrados separadamente
Enviado: 14 Out 2015 às 12:21
por 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
