Página 1 de 1

macro para salvar um log com data atual

Enviado: 26 Nov 2016 às 17:20
por walber
Quero criar uma macro para poder salvar a planilha 8 de 10 com o nome da data atual.
Se não for possível que gere um arquivo de texto com o nome seja a data atual
A planilha a ser salva tem as seguintes informações:
Código
Descrição
Quantidade
Valor

Desde já agradeço

Re: macro para salvar um log com data atual

Enviado: 26 Nov 2016 às 19:32
por gfranco
Boa noite.
Veja se ajuda.
At
Gfranco
Código: Selecionar todos
Sub macro_salvar()
Dim dia As Long, mes As Long, ano As Long
Dim nome As String, conta As Long
conta = ThisWorkbook.Sheets.Count
If conta > 7 Then

dia = Day(Date)
mes = Month(Date)
ano = Year(Date)

nome = dia & "-" & mes & "-" & ano

ThisWorkbook.Worksheets(8).Name = nome

Else
MsgBox "Esse workbook não possui uma sheet nº 8", vbOKOnly

End If

End Sub