Excel Gerar PDF com VBA em tabela

[RayGabriel]

Caros,
bom dia ! tudo bem?

Gostaria da ajuda de vocês com uma solução em vba.
Tenho um arquivo que tem uma tabela "base" que contem uma lista de nomes e IDs, na outra guia "pdf" tenho um modelo de impressão para pdf exemplar.

Gostaria que o excel tivesse um botão para varrer a lista toda e imprimir pdf de todas as linhas da "base", lembrando que a base pode conter N quantidades de linhas.

E o PDF salvo deve conter como nome o ID referencia.. exemplo 775465.pdf, 775466.pdf

 

Excel no anexo

 

Ajuda PDF.xlsx

[Midori]

Use ExportAsFixedFormat, p.ex.

 

Call [A1:G16].ExportAsFixedFormat(xlTypePDF, "C:\Teste\" & [B4] & ".pdf")

 

Para salvar todos os IDs, chame a função no seu loop enquanto altera o código na célula B3 da planilha pdf.

[RayGabriel]

@Midori bom dia obrigado pela resposta! eu queria que tivesse só um botão no excel para que ja faça essa tratativa via vba. Esse código ai que você comentou não funcionou

[Midori]

Depois de criar a macro você pode desenhar o botão na planilha e fazer a atribuição. Pode ser um Shape ou botão de formulário no menu Desenvolvedor > Inserir.

[RayGabriel]

Bom dia! eu não sei criar macros, você poderia criar essa macro / função / loop / botão? 

[Midori]

@RayGabriel A macro vai salvar os arquivos no mesmo diretório em que a planilha foi salva,

 

Sub ExportaPDF()
    Dim Base        As Worksheet
    Dim Exemplar    As Worksheet
    Dim Codigo      As Range
    
    Set Base = ThisWorkbook.Sheets("base")
    Set Exemplar = ThisWorkbook.Sheets("pdf")
    Set Codigo = [A2]
    
    While Codigo <> ""
        Exemplar.[B4] = Codigo.Value
        Call Exemplar.[A1:G16].ExportAsFixedFormat(xlTypePDF, _
            ThisWorkbook.Path & "\" & Codigo.Value & ".pdf")
        Set Codigo = Codigo(2)
    Wend
End Sub

 

Para criar o botão, desenhe o controle na planilha pode ser o botão do Form Controls que já vai abrir a opção de atribuir a macro,