Guru do Excel e Power BI

Boa Tarde pessoal, Tudo bem?

Bom, estou tendo um pequeno problema com meu código VBA.
Esse código e basicamente uma programação que faz com que os dados inseridos nos campos da planilha sejam salvos em PDF. Mas, acontece que quando o arquivo é salvo em um mesmo nome, automaticamente subscreve por cima do arquivo já salvo, assim perdendo o arquivo anterior.
Preciso que o arquivo não salve por cima do outro já salvo.

Estou disponibilizando o código VBA, abaixo:

Sub SALVAR_ORÇAMENTO()

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "C:\Users\Nathally\Desktop\OneDrive\FICHA DE VENDA (LOJA) 2018\"

Nome = Range("H9").Value

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub

Caso precise de mais informações estou disponível!

Mude esta linha no seu codigo.


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyLocal & Nome & " - " & Format(Date, "DD-MM-YYYY") & ".pdf"


Acrescentei a data no nome do arquivo. Mas sugiro que vc coloque no nome o numero do orçamento, isso vai evitar com certeza a duplicidade, uma vez que a mesma empresa/pessoa pode fazer mais de um orçamento por dia. Entao o numero do orçamento no nome do arquivo acaba com o problema.

Veja se ajuda

Obrigado pessoal, com a dica de vocês resolvi facilmente o problema do arquivo sobrepor o já salvo.
Para a solução foi feito a seguinte programação:

Sub SALVAR_ORÇAMENTO()

Dim Nome1 As String

Dim Nome2 As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "C:\Users\Nathally\Desktop\OneDrive\FICHA DE VENDA (E-COMMERCE) 2018\"

Nome1 = Range("H9").Value

Nome2 = Range("BD8").Value

SDate = Now

If Nome1 <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyLocal & Nome1 & " - " & Nome2 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "O arquivo " & Nome1 & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub

Assim acabando com o grande problema. Agora a ficha de orçamento salva da seguinte maneira. Salvando o nome/empresa no arquivo mais número de orçamento.

Mais uma vez muito obrigado a vocês que tiraram um tempo para ajudar me!