Ir ao conteúdo
  • Cadastre-se
JorgeSouza

Excel criar planilha e nomear com a data atual

Recommended Posts

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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


 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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 !

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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 ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Como eu disse amigo no youtube tem muita coisa boa....

 

E so dar uma pesquisada la pois isso é pessoal, cada um tem um jeito de ensinar e um jeito de aprender.

 

So isso 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Perfeito. Muito obrigado @CasaDoHardware

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×