Excel Macro para salvar arquivo PDF

[marcospires1]

Boa tarde,

Gostaria muito da ajuda de vocês, estou precisando criar uma macro que salve o arquivo em PDF, porém ele deve salvar no mesmo local onde o arquivo do Excel está e o nome do arquivo conforme 3 células (exemplo as células A1, K2 e G5), e somente um determinado pedaço da planilha.

Estou me aventurando a pouco tempo com macros e estou me batendo com está.

Agradeço desde já pela ajuda.

[marcospires1]

23 horas atrás, marcospires1 disse:

Boa tarde,

Gostaria muito da ajuda de vocês, estou precisando criar uma macro que salve o arquivo em PDF, porém ele deve salvar no mesmo local onde o arquivo do Excel está e o nome do arquivo conforme 3 células (exemplo as células A1, K2 e G5), e somente um determinado pedaço da planilha.

Estou me aventurando a pouco tempo com macros e estou me batendo com está.

Agradeço desde já pela ajuda.

 

Boa tarde

Até o momento estou com o código abaixo, mas ainda não consegui fazer com que ele salve com o nome das outras células.

 

Sub SalvarArquivoPDF()

LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & ActiveSheet.Range("A5").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LOCALNOME, Quality:=xlQualityStandar, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "O arquivo foi salvo corretamente.", vbOKOnly, "Arquivo Salvo"
   
End Sub

[Basole]

@marcospires1tente isso: 

 

 

with ActiveSheet

LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & [A1] & [K2] & [G5] & ".pdf"

end with

 

[marcospires1]

@Basole Não funcionou. Ele salva somente com o nome "Pedido".

Não puxa nenhuma informação.

[Basole]

Desculpe faltou uns detalhes: 

 

With ActiveSheet

LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & .[A1] & .[K2] & .[G5] & ".pdf"

End With

 

* Certifique-se que nas celulas A1, K2 e G5,  tenham dados referentes ao nome do arquivo que será salvo.

 

[marcospires1]

@Basole Muito obrigado, funcionou perfeitamente. Só adicionei espaço entre as informações.

Sem querer abusar, um dos campos é data e causa erro na macro, sabe como posso corrigir?

Visto que a data vai ser inserida por outras pessoas utilizando este arquivo.

Obrigado

[Basole]

2 horas atrás, marcospires1 disse:

Sem querer abusar, um dos campos é data e causa erro na macro, sabe como posso corrigir?

Visto que a data vai ser inserida por outras pessoas utilizando este arquivo.

 

@marcospires1 bom considerando que a data esteja na celula A1 segue exemplo: 

 

With ActiveSheet

LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & VBA.Format(.[A1], "dd-mm-yyyy") & .[K2] & .[G5] & ".pdf"

End With

 

 

Pode-se tambem alterar a formatação da data colocando ao contrario, ou seja ano-mes-dia 

 

LOCALNOME = ThisWorkbook.Path & "\Pedido" & "_" & VBA.Format(.[A1], "yyyy-mm-dd") & .[K2] & .[G5] & ".pdf"

 

 

[marcospires1]

@Basole perfeito, muito obrigado pela ajuda 

Abraço