assim e bem mais complicado pois o endereço da pasta tem que ser fixo. o caminho tem que ser especifico se você mudar a pasta o código não funciona mais. mais para fazer da maneira que você quer seria esse aqui.

Sub SalvarPDF()
ChDir “C:\Users\hevelin.SUPERAR\Desktop” tem que mudar o caminho da pasta
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
“C:\Users\hevelin.SUPERAR\Desktop\Pasta1.pdf”, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range(“A1”).Select
End Sub

William obrigado. Funcionou. Se eu quiser salvar de forma automática.. Como irei juntar esse código com o que você me passou? Ao invés de abrir uma caixa para escolher onde vou salvar.

ActiveWorkbook.SaveAs (“C:UsersTiagoDesktop TESTE ” & Format(Now(), “DD-MMM-YYYY hh mm “) & “.xlsm”)

Tiago,

Segue código corrigido:

Public Sub GerarPDF()
Dim Nome As String
Nome = ActiveSheet.Name

Application.ScreenUpdating = False
Sheets(“Orcamento”).Select ‘Seleciona a planilha para gerar o PDF
Range(“B2:F3”).Select ‘Intervalo da área de impressão
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.GetSaveAsFilename(InitialFileName:=Nome), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True
End Sub

Esse codigo ele vai te perguntar a pasta onde deseja salvar.

me envia sua rotina por e-mail a que está usando.
meu e-mail: william.aedu@gmail.com

William, eu to tentando usar o código aqui só que da um erro: “Método ou membro de dados não encontrado” e seleciona o trecho .AcroPDF1 ; acredito ser um problema de referência, tem como me ajudar?

e sobre juntar esse VBA com o meu, como ficaria ao certo? Se puder ajudar, ficarei grato.

ActiveWorkbook.SaveAs (“C:Users TESTE ” & Format(Now(), “DD-MMM-YYYY hh mm “) & “.xlsm”)

É só substituir na sua macro para funcionar o mesmo sistema?

ActiveWorkbook.SaveAs (“C:Users TESTE ” & Format(Now(), “DD-MMM-YYYY hh mm “) & “.xlsm”)

É só substituir na sua macro para funcionar o mesmo sistema?

Tiago,

Sim você vai criar uma Sub e vai adicionar o código.

olá, deu certo a planilha?