Página 1 de 1
Adicionar a data quando salvar o arquivo.
Enviado: 16 Jul 2021 às 19:37
por GENECI
Boa noite!
Solicito a sua ajuda, conforme o arquivo anexo.
Grato.
Re: Adicionar a data quando salvar o arquivo.
Enviado: 17 Jul 2021 às 10:04
por mucascosta
Veja se ajuda...
Código: Selecionar todosSub SalvarComo()
ActiveWorkbook.SaveAs (CurDir & "\" & Format(Now(), "DD-MM-YYYY") & ".xlsm")
End Sub
Re: Adicionar a data quando salvar o arquivo.
Enviado: 17 Jul 2021 às 11:11
por 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.
Re: Adicionar a data quando salvar o arquivo.
Enviado: 17 Jul 2021 às 12:58
por mucascosta
Em anexo...
Re: Adicionar a data quando salvar o arquivo.
Enviado: 17 Jul 2021 às 13:52
por osvaldomp
Código: Selecionar todosSub SalvarComo()
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & Format(Date, " dd-mm-yyyy") & ".xlsm")
End Sub
Re: Adicionar a data quando salvar o arquivo.
Enviado: 19 Jul 2021 às 14:42
por GENECI
Boa tarde!
mucascosta e osvaldomp, muito obrigado pelo código vba, problema resolvido.
Grato.