Excel criar planilha e nomear com a data atual

JorgeSouza · 20 de maio de 2016

Gostaria de saber como posso criar uma planilha automática no excel com data.

Exemplo: Assim que eu abro o excel, é criado uma planilha(mas é criada apenas 1 planilha por dia) com o dia de hoje (dessa forma: 20-05-16). Apenas isso!

Porém como tenho várias planilhas criadas a cada nova planilha aberta ela deve estar no terceiro lugar.

É isso! =D

-------------------------------------Explicando melhor--------------------------------------------

1º Abri o trabalho em excel, uma planilha é criada(apenas cria uma planilha por dia)

2º Ela deve ser criada sempre em 3º lugar das planilhas já existentes.

3º Ela deve conter o dia atual. Ex: 20/05/16

4º Só hihi

Até mais!

Sennin Kakashi · 20 de maio de 2016

@JorgeSouza Não entendo muito de Excel, mas não sei se entendi muito bem. Eu sei que todo novo arquivo de planilha contém 3 abas, porém você começa sempre na aba 1. Você quer começar na aba 3? Não sei se é possível.

CasaDoHardware · 20 de maio de 2016

Pode ser assim

Sub NovaGuia()
Dim Nome As String
Nome = Format(Date, "DD-MM-YYYY")
    Sheets("Plan1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Nome
    
End Sub

Sennin Kakashi · 20 de maio de 2016

@CasaDoHardware Não achei que quisesse algo tão técnico (e de programação). Então (ainda) não sei, desculpe.
Boa sorte

JorgeSouza · 20 de maio de 2016

@CasaDoHardware o código que você me passou não deu em nada

@Sennin Kakashi é o seguinte. Sempre que eu abrir o trabalho no excel quero que automaticamente crie uma planilha com a data de hoje, só isso.

Exatamente como você disse quando abre o excel ela tem 3 planilhas padrão, mas como eu tenho muitas planilhas já, quero que essa criada esteja, sempre no 3 lugar !

CasaDoHardware · 20 de maio de 2016

Se é pra funcionar quando abrir o arquivo, cole o codigo no evento workbook_open

Copie tudo que esta entre criar nova guia e end sub e cole no evento.

Se nao conseguir disponibilize o arquivo que você pretende usar

JorgeSouza · 20 de maio de 2016

Amigo, esta ficando dessa forma:

Private Sub Workbook_Open()
Sub NovaGuia()
Dim Nome As String
Nome = Format(Date, "DD-MM-YYYY")
    Sheets("Plan1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Nome

End Sub
End Sub

E está dando erro. Poderia me mostrar ?

CasaDoHardware · 20 de maio de 2016

Apague essas duas linhas

Sub NovaGuia()

End Sub

E como eu disse se nao conseguir disponibilize seu arquivo

JorgeSouza · 20 de maio de 2016

@CasaDoHardware agora deu, mas têm duas coisas ainda que não quero.

Ela foi criada como a última aba, tem como ser a 3ª ?

Ela pegou todos os dados da "Plan1", tem como ser criada em branco ?

Toda vez que eu abro ela, ela quer criar uma nova planilha, tem como isso acontecer apenas uma vez ? E ser criada apenas uma vez por dia ?

CasaDoHardware · 20 de maio de 2016

então use esse

Private Sub Workbook_Open()
Dim Nome As String
Nome = Format(Date, "DD-MM-YYYY")
    Sheets.Add After:=Sheets(2)
    ActiveSheet.Name = Nome
End Sub

JorgeSouza · 20 de maio de 2016

Deu certo, mas ele ainda continua querendo criar mais outra planilha com a data, e mostra um errinho, clique em OK e é criado uma planilha chamada "Plan1".

Tem como criar apenas 1 vez por dia ?

CasaDoHardware · 20 de maio de 2016

Estava ajustando justamente isso antes de você postar

Private Sub Workbook_Open()
Dim Nome As String
On Error GoTo Erro
Nome = Format(Date, "DD-MM-YYYY")
    Sheets.Add After:=Sheets(2)
    ActiveSheet.Name = Nome
    Exit Sub
    
Erro:
Application.DisplayAlerts = False
MsgBox "Ja Existe Uma Planilha Criada Nesta Data...", vbCritical, "Planilha Ja Criada"
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Se nao quiser o aviso que ja existe uma planilha com a data atual apague a msgbox