Excel Gerando Vários Arquivos PDF a partir de uma planilha

[rafafguima]

Tenho uma planilha com uma validação de dados no formato de lista que em cada seleção modifica diversos campos da planilha que estão associados ao dado selecionado.

 

Os dados da lista estão na planilha “Base De Dados” na coluna A e começam na linha 4.

 

Preciso gravar um arquivo pdf para cada dado selecionado, salvando o arquivo no “C:\temp” com um nome específico que obedeça a seguinte regra de formação: “dado_da_caixa_de_seleção”_Posição e Movimentação_"Mês anterior"_"ano".pdf

Tenho feito isso na mão, mas como são mais de 300 arquivos seria bom automatizar...

 

Alguém consegue me dar uma luz, propondo uma macro ou outra solução para automatizar a geração dos PDFs?

 

[Patropi]

Boa noite @rafafguima

 

Seja bem-vindo ao fórum!

 

Se não postar uma planilha de exemplo, dificilmente alguém irá te ajudar.

Não existe macro genérica, depende da estrutura da planilha.

 

[]s

[rafafguima]

15 horas atrás, Patropi disse:

Boa noite @rafafguima

 

Seja bem-vindo ao fórum!

 

Se não postar uma planilha de exemplo, dificilmente alguém irá te ajudar.

Não existe macro genérica, depende da estrutura da planilha.

 

[]s

Pessoal,

 

Segue uma planilha de exemplo.

Gero um PDF de cada vez, utilizando o código:

 

        ChDir "C:\temp"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A10"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

 

 

Quero fazer todos os pdfs de uma única vez sem precisar ficar alterando manualmente os valores da célula A10 da planilha "Carta".

 

Obrigado pela ajuda.

exemplo.xls

[Visitante]

19 horas atrás, rafafguima disse:

Os dados da lista estão na planilha “Base De Dados” na coluna A e começam na linha 4.

Não encontrei no seu arquivo a planilha “Base De Dados” . 

 

Tenho feito isso na mão, mas como são mais de 300 arquivos seria bom automatizar...

No seu exemplo encontrei 73 códigos na coluna A da planilha "Dados" e não 300. É isso?

 

 

Experimente o código abaixo.
 

Sub GeraPDFs()
 Dim cod As Range
  For Each cod In Sheets("Dados").Range("A4:A" & Sheets("Dados").Cells(Rows.Count, 1).End(3).Row)
   [A10] = cod
   
    ChDir "C:\temp"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A10"), Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

 
  Next cod
End Sub

 

[rafafguima]

21 horas atrás, osvaldomp disse:

 

Experimente o código abaixo.
 

Sub GeraPDFs()
 Dim cod As Range
  For Each cod In Sheets("Dados").Range("A4:A" & Sheets("Dados").Cells(Rows.Count, 1).End(3).Row)
   [A10] = cod
   
    ChDir "C:\temp"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A10"), Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

 
  Next cod
End Sub

 

Perfeito!!!!

 

Muito Obrigado!