Este fórum está sendo desativado

[GENECI]

Boa noite!

Solicito a sua ajuda, conforme o arquivo anexo.

Grato.

[mucascosta]

Veja se ajuda...

Código: Selecionar todos

Sub SalvarComo()
    ActiveWorkbook.SaveAs (CurDir & "\" & Format(Now(), "DD-MM-YYYY") & ".xlsm")
End Sub

[GENECI]

Bom dia! mucascosta

Acredito que fiz algo errado, que não retornou o resultado esperado.
Copiei o código, colei e salvei como pasta habilitada para macro excel.
Retornou: Dados - xlsm
Por favor, pode disponibilizar o arquivo com o código instalado.
Grato.

[mucascosta]

Em anexo...

[osvaldomp]

Código: Selecionar todos

Sub SalvarComo()
 ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & Format(Date, " dd-mm-yyyy") & ".xlsm")
End Sub

[GENECI]

Boa tarde!
mucascosta e osvaldomp, muito obrigado pelo código vba, problema resolvido.

Grato.