Excel VBA: Como Gerar Vários PDFs Automáticos com Macros | Relatórios Rápidos no Excel! AVANÇADO

Описание: 📊 Automatize seus relatórios no Excel e gere múltiplos arquivos PDF de forma automática!

Você já precisou criar vários relatórios individuais no Excel e salvar cada um como PDF manualmente? Isso acaba agora! Neste vídeo, eu te ensino como usar Macros e VBA para gerar múltiplos arquivos PDF automaticamente, economizando tempo e evitando erros.

✅ O que você vai aprender?
🔹 Criar uma Macro em VBA para exportar PDFs automaticamente
🔹 Filtrar dados para gerar um arquivo PDF por vendedor, cliente ou qualquer critério desejado
🔹 Automatizar o Excel para gerar múltiplos relatórios em segundos

Aulas Particulares de Excel (Mentoria) - 05 Aulas online
https://go.hotmart.com/W101420976H

Produtividade Máxima com Excel: Canal Deadline

e-Book Amazon | Kindle:
https://a.co/d/eWqDbbD
Hotmart:
https://go.hotmart.com/B101418578C

#Excel #VBA #MacrosExcel #ExcelVBA #GerarPDFExcel #AutomaçãoNoExcel #ExportarPDF #RelatóriosAutomáticos #ExcelAvançado #dicasdeexcel


CONHEÇA:
https://linktr.ee/canaldeadline

👉🏻 10 dicas incríveis para aumentar a sua produtividade no excel:
   • TOP 10 ATALHOS E DICAS ESSENCIAIS PARA EXC...  

👉🏻 Como configurar página para impressâo no excel:
   • Como configurar página de impressão no Exc...  

Se ainda não é inscrito, inscreva-se no @Canal Deadline
Link:    / @joaomarcosexcel  

Contato:
e-mail: [email protected]
Instagram:   / joaomarcosnobrega  
CURTA, COMENTE, COMPARTILHE & INSCREVA-SE!
Muito Obrigado!

👉🏻 INÍCIO DA MACRO

Sub GERAR_PDF()

Linhas = Sheets("AUXILIAR").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To Linhas

vendedor = ThisWorkbook.Sheets("AUXILIAR").Range("A" & i).Value
Pasta = ThisWorkbook.Sheets("AUXILIAR").Range("B" & i).Value

ThisWorkbook.Sheets("RELATÓRIO").Range("C5").Value = vendedor

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

ThisWorkbook.Sheets("RELATÓRIO").ListObjects("Dados").Range.AutoFilter field:=2, Criteria1:=vendedor

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic

End With

Dim seuPdfCaminho As String
Dim seuPdfNome As String

seuPdfCaminho = ThisWorkbook.Path & "\" & "\" & Pasta & "\"
seuPdfNome = "RELATÓRIO DO VENDEDOR " & vendedor & ".pdf"

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
seuPdfCaminho & seuPdfNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next

MsgBox ("ARQUIVOS GERADOS COM SUCESSO"), vbOKCancel

End Sub

👉🏻 FIM DA MACRO