Ir ao conteúdo
  • Cadastre-se

Excel Excel - Macro para salvar em PDF de diferentes abas


Ir à solução Resolvido por Visitante,

Posts recomendados

Olá boa tarde,

 

Eu preciso criar uma macro que salve a informação de duas abas diferentes da mesma planilha em um único PDF.

Eu comecei utilizando a macro abaixo, mas não sei como faço para acrescentar a informação da segunda aba da planilha, alguém consegue me ajudar?

 

Sub SalvarIntervaloPDF()

Dim LocalPDF As String

Dim intervalo As Range

LocalPDF = "W:\14. Projeto Gestão à Vista\02. Banco de Dados\06. Aging List\Nova Proposta\02. Aging List\Aging List.pdf"

Set intervalo = Sheets("Aging List").Range("B2:AJ84")

intervalo.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=LocalPDF

End Sub

Link para o post
Compartilhar em outros sites
  • Solução
Visitante

Experimente:

Sub SalvaIntervalosEmPDF()
 Dim LocalPDF  As String
  LocalPDF = "W:\14. Projeto Gestão à Vista\02. Banco de Dados\06. Aging List\Nova Proposta\02. Aging List\Aging List.pdf"
  Sheets("Aging List").Activate
  ActiveSheet.Range("B2:AJ84").Select
  Sheets("NomeDaOutraPlanilha").Activate
  ActiveSheet.Range("IntervaloDaOutraPlanilha").Select
  Sheets(Array("Aging List", "NomeDaOutraPlanilha")).Select
  Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LocalPDF, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

  • Curtir 4
Link para o post
Compartilhar em outros sites

Boa tarde, @Aline Ramos Borges

 

O código informado pelo amigo @osvaldomp é excelente 🙂, mas gostaria de dar

minha contribuição (eu sei que este código abaixo não é "enxuto" como do "expert"

@osvaldomp , mas funciona direitinho), já tinha este comigo e estava adaptando 

para este "Tópico", quando fui responder, já havia uma resposta (que é ótimo, sempre

aprendemos com isso)..

 

Abaixo os códigos que podem ser colocados em um módulo:

Sub geraPDF()

Dim guia1 As Range
Dim guia2 As Range
Dim linh As Long
   
   Application.ScreenUpdating = True
   Application.DisplayAlerts = False
   Application.Calculation = xlCalculationManual
   
 linh = Sheets("Planilha3").Cells(Rows.Count, 1).End(xlUp).Row

Set guia1 = Sheets("Planilha1").Range("B2:AJ84")
Set guia2 = Sheets("Planilha2").Range("B2:AJ84")

guia1.Copy
 Sheets("Planilha3").Select
Sheets("Planilha3").Range("A" & linh).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
 linh = Sheets("Planilha3").Cells(Rows.Count, 1).End(xlUp).Row + 1
       
guia2.Copy
 Sheets("Planilha3").Select
Sheets("Planilha3").Range("A" & linh).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
 Call salvaPDF
 
 Sheets("Planilha3").UsedRange.ClearContents
 
 Set guia1 = Nothing
 Set guia2 = Nothing
 
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   Application.Calculation = xlCalculationAutomatic

End Sub

Sub salvaPDF()

   Application.ScreenUpdating = False

Sheets("Planilha3").Select

pas = "W:\14. Projeto Gestão à Vista\02. Banco de Dados\06. Aging List\Nova Proposta\02. Aging List\Aging List.pdf"

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=pas, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            
   Application.ScreenUpdating = True

End Sub

Faça as alterações pertinentes em relação aos nomes das Sheets do seu projeto.

 

Espero que seja também útil...

 

OBS: Para podermos ajudá-la com maior rapidez e eficácia é necessário (na próxima abertura de um novo

Tópico) tu anexar uma planilha de exemplo com dados (fictícios) e que não seja o projeto inteiro (com o

trecho que está com dificuldades); explicando com as informações necessárias para alcançar o seu

objetivo (se necessário incluir imagens elucidativas), pois a maioria nem olharia este Tópico sem um

arquivo exemplo, por existe muitas "variáveis" que podem impossibilitar o sucesso parcial ou total

da solução proposta, caso não tenha anexado o arquivo exemplo😉...

 

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha"

 

LaerteB🙂

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

907618_67f7_4.jpg

PROMOÇÃO RELÂMPAGO!

Curso "Arquitetura de Redes", de Gabriel Torres, por apenas R$ 22,90. Só até as 23h59min desta sexta-feira 23/10/2020!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!