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

#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:
https://youtu.be/fJmckj-92gA?si=txip8KhXASYZ9Tpa

👉🏻 Como configurar página para impressâo no excel:
https://youtu.be/okDoyeY1fGU?si=TZUcz6l4sGpd9m80

Se ainda não é inscrito, inscreva-se no @Canal Deadline
Link: https://www.youtube.com/channel/UCRfjUnDFmcG54OFL1x87CxQ?sub_confirmation=1

Contato:
e-mail: joaomarcos.n.q@gmail.com
Instagram: https://www.instagram.com/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

Видео Excel VBA: Como Gerar Vários PDFs Automáticos com Macros | Relatórios Rápidos no Excel! AVANÇADO канала João Marcos