Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Impressão de conteúdo filtrado

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Victorzoomg1



Mensagens : 2
Data de inscrição : 23/09/2015

MensagemAssunto: Impressão de conteúdo filtrado   Qua Set 23, 2015 11:06 pm

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.

Obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Impressão de conteúdo filtrado   Qua Set 23, 2015 11:45 pm

Boa tarde!!

Consegue adaptar...?
Código:
Option Explicit
 
Sub AleVBA_1076()
   
    Dim ws As Worksheet
    Dim lastrow As Long
   
    Application.ScreenUpdating = False
   
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .Name Like "*GuiaPrincipal" Then
                lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
                .AutoFilterMode = False
                .Range("A2:A" & lastrow).AutoFilter field:=1, Criteria1:=">0" 'Filtra na col A maior que Zero
                .PageSetup.PrintArea = ""
                .PageSetup.PrintArea = .Range("A2:J" & lastrow).Address 'Até a coluna J
            End If
        End With
    Next ws
   
    Application.ScreenUpdating = True
   
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Victorzoomg1



Mensagens : 2
Data de inscrição : 23/09/2015

MensagemAssunto: Re: Impressão de conteúdo filtrado   Qui Set 24, 2015 7:56 pm

alexandrevba escreveu:
Boa tarde!!

Consegue adaptar...?
Código:
Option Explicit
 
Sub AleVBA_1076()
    
    Dim ws As Worksheet
    Dim lastrow As Long
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .Name Like "*GuiaPrincipal" Then
                lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
                .AutoFilterMode = False
                .Range("A2:A" & lastrow).AutoFilter field:=1, Criteria1:=">0" 'Filtra na col A maior que Zero
                .PageSetup.PrintArea = ""
                .PageSetup.PrintArea = .Range("A2:J" & lastrow).Address 'Até a coluna J
            End If
        End With
    Next ws
    
    Application.ScreenUpdating = True
    
End Sub

Att


Cara. Não manjo muito de VBA. Mas vou ver o q consigo fazer com o q vc me passou. de qqr forma vlw.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Impressão de conteúdo filtrado   Qui Set 24, 2015 11:42 pm

Boa tarde!!!

Se não consegui, faça um cadastro em:
http://gurudoexcel.com/forum/index.php?sid=deffe57b789ed3fa67a2122beb549fc4

Depois poste seu arquivo modelo repleto de detalhe, com o antes e depois.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Impressão de conteúdo filtrado   Hoje à(s) 10:13 pm

Voltar ao Topo Ir em baixo
 
Impressão de conteúdo filtrado
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Código jquery para ocultar conteúdo de acordo com a página.
» Tag selecionar conteúdo
» Propriedade intelectual, pirataria nos fóruns e conteúdos ilícitos
» Copiar conteúdo de outros fóruns
» [TUTORIAL] Widget com conteúdos aleatórios

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: