Excel Excel - Macro para salvar em PDF de diferentes abas

Aline Ramos Borges · 21 de setembro de 2020

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

22 de setembro de 2020

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

LaerteB · 22 de setembro de 2020

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