Excel criar macro para gerar pdf e salvar em pasta específica

[sezcarv]

Prezados,

Necessito de uma ajuda na criação de uma macro, utilizando VBA, que salve uma planilha em formato pdf e armazene em uma pasta específica.

Pormenorizando:

Tenho um documento em excel, com várias planilhas (plan1, plan2, plan3, etc) na planilha 1 eu entro com dados de preenchimento, os quais geram automaticamente um documento na planilha 3. O meu objetivo é criar uma macro que quando eu rodar, salve o conteúdo da planilha 3 (somente) no formato pdf, com o nome constante em uma célula da planilha 1 e em uma pasta específica, tipo C:\Users\Formulários.

 

Exemplo: 

- Entro com os dados de cadastro na planilha 1

- Na célula D2 da planilha 1 um texto é preenchido automaticamente por meio da função concatenar

- com os dados preenchidos na planilha 1, o documento existente na planilha 3 é consequentemente preenchido

- Aio executar a macro, o documento da planilha 3 deverá ser salvo no formato pdf, com o nome constante na célula D2 da planilha 1 e na pasta C:\Users\Formulários.

 

Já tentei várias formas mas nenhuma surtiu o resultado esperado.

 

Espero que possam me ajudar.

 

Desde já agradeço.

 

[LaerteB]

Bom dia, @sezcarv

 

Bem vindo ao Fórum , como você é novo por aqui, não deve

ter lido as regras... desta forma por gentileza ler as regras deste

Fórum para ficar ciente ...

 

Antes de qualquer coisa leia o texto abaixo:

"Como todos aqui, temos compromissos e não temos muito tempo para criar um arquivo do zero, pois
ajudamos somente no nosso tempo livre... é muito importante você anexar uma planilha de
exemplo com dados (fictícios) e que não seja o projeto inteiro ; explicando com as informações
necessárias para alcançar o seu objetivo, desta forma poderemos ajudá-lo com maior rapidez e
eficácia (a maioria nem olharia este Tópico sem um arquivo exemplo, pois existe muitas
"variáveis" que podem impossibilitar o sucesso parcial ou total da solução proposta,se não tiver um
arquivo exemplo que for disponibilizado) .."

 

Estou passando o código abaixo que fará o que solicitou no post #1 (sua mensagem acima),

que seria criar PDF do conteúdo existente na "Planilha3", com o nome deste PDF conforme

texto da célula "D2" da "Planilha1" e na pasta específica que tu mencionou acima

"C:\Users\Formulários"; coloque este código em um módulo e você pode executá-lo com

um botão que criares ou outra forma que achar melhor ...

Sub CriarPdf()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Worksheets("Planilha3").Activate

'ActiveSheet.ListObjects("Tabela1").Range.Select 'descomente se for Tabela _
                                                  alterando para o nome da _
                                                  Tabela que criastes
ActiveSheet.Range("B2:E8").Select 'comente se for usar a linha a acima

ChDir "C:\Users\Formulários"

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Sheets("Planilha1").Range("D2"), _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

Application.ScreenUpdating = True
Application.DisplayAlerts = True

 Range("G1").Select

MsgBox "Criado arquivo PDF.", vbOKOnly

End Sub

 

Por gentileza verificar, testar e ver se funciona de acordo com o seu projeto...

 

OBS: nos próximos Tópicos que abrir, por gentileza anexar um arquivo exemplo .

 

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha" do Botão Curtir

 

LaerteB