Excel ao salvar o arquivo atera o nome

[GENECIOFICIAL]

Boa tarde!

 

Pergunta posta em outro fórum.

 

Conforme o anexo, solicito a sua ajuda.

 

Grato.

CODIGOS.xlsx

[Midori]

Atribua o nome do arquivo seguindo esse padrão e antes de salvar verifique se ele já existe. Em loop você pode incrementar a variável Rev/Contador até chegar no nome de arquivo que ainda não existe, p.ex,

 

Nome = "Codigo - Rev " & Format(Rev, "00") & " - " & Data & ".xlsm"

 

[GENECIOFICIAL]

Boa tarde! Midori

Não entendo absolutamente nada de VBA, por favor pode implementar e disponibilizar o código em um arquivo.

Aproveito a oportunidade para perguntar o Sr. ministra algum curso de VBA?

 

Muito obrigado.

 

Grato.

 

 

[Scofieldgyn]

@GENECIOFICIAL

 

veja se te atende:

obs.: Considerando que o dia 16/12 é o marco zero, na celua [B2] insira essa fórmula para que o código funcione.

 

Sub RenameExport()

    Dim NomArq As String
    Dim vbCom As Object
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    NomArq = ("Codigo ") & [B2] & " - " & Format(Now, "dd-mm-yyyy") 'Na célula [B2] Cole a fórmula ="Rev "&SE(HOJE()+1-A2<10;"0"&HOJE()+1-A2;HOJE()+1-A2)

    ActiveWorkbook.Activate
    stArqName = "C:\Users\Usuario\" & NomArq & ".xlsx" 'Não esqueça de definir o endereço para o local que o arquivo será salvo
    ActiveWorkbook.SaveAs Filename:=stArqName _
        , FileFormat:=51, CreateBackup:=False
    
    ActiveWorkbook.Activate
    ActiveWorkbook.Save
    Planilha1.Select
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Arquivo Salvo com Sucesso", vbInformation
   
End Sub

 

[GENECIOFICIAL]

Bom dia! Scofieldgyn e Midori

pelas soluções apresentadas.

 

Grato.