Excel Macro para Salvar arquivo em PDF, definindo nome e local numa célula

[J. Goloberto]

Bom dia pessoal!

 

Estava dando uma olhada nos tópicos parecidos, porém por não ter muito conhecimento em VBA não consegui adaptar para a minha necessidade kkkk.

Todos os dias no trabalho precisamos criar um relatório sobre os trabalhos realizados e salvá-los numa pasta.

Eu queria criar uma macro que usaria o valor de uma célula X como nome e uma célula Y como o local para salvar.

Desde já agradeço quem puder ajudar ai!  

[Basole]

Veja um exemplo.

 

Dim Caminho As String
Dim nomePdf As String

Caminho = Range("A1").Value
Caminho = VBA.IIf(VBA.Right(Caminho, 1) = "\", Caminho, Caminho & "\")
nomePdf = Range("A2").Value

ActiveSheet.ExportAsFixedFormat xlTypePDF, Caminho & nomePdf & ".pdf"