Excel Criar nova aba com data automática

[JorgeSouza]

Olá, pessoal!

 

Seguinte, tenho uma planilha com várias abas renomeadas com o mês atual e ela tem várias informações dentro. Preciso que, ao criar uma nova aba (na verdade eu duplico a aba anterior e altero algumas informações), ela puxe a data atual em alguma célula que eu escolher. Só isso.

 

Essa é a célula que iria abrir a data automaticamente, assim que duplicar a aba anterior.

 

Qualquer coisa, só perguntar que eu tento esclarecer melhor minha dúvida.

 

Pasta1.xlsx

[JorgeSouza]

Para complementar, sempre que eu duplicar a aba, ela deverá puxar o mês seguinte, independente se criou duas no mês. E a data sempre deverá ser fixa dos meses que se passaram.

 

Por exemplo, a data que está nas abas de junho para trás, não deverão mexer, elas permaneceram as mesmas.

[Edson Luiz Branco]

Favor esclarecer esse ponto do primeiro Post...:

 

17 horas atrás, JorgeSouza disse:

Preciso que, ao criar uma nova aba..., ela puxe a data atual...

 

 

Com relação a esse do segundo Post:

 

4 horas atrás, JorgeSouza disse:

Para complementar, sempre que eu duplicar a aba, ela deverá puxar o mês seguinte, independente se criou duas no mês. 

 

Na célula vai a "data atual", ou seja, a data com dia/mês/ano do momento em que foi criada a nova planilha, ou a data na forma mês/ano referente ao mês + 1? Ou é o mesmo dia e ano só que mês + 1?...

 

[JorgeSouza]

@Edson Luiz Branco

Citação

Na célula vai a "data atual", ou seja, a data com dia/mês/ano do momento em que foi criada a nova planilha, ou a data na forma mês/ano referente ao mês + 1? Ou é o mesmo dia e ano só que mês + 1?...

 

Então. Vou dar um exemplo, entendo que ficou confuso o que eu falei.

 

Estamos no mês 07. Quando eu duplicar a planilha do mês de julho, no lugar da data, vai ser 21/08/2022 (isso na nova planilha que foi criada), vai somar +1 no mês sempre que eu duplicar, independentemente do mês que estamos.

 

A questão do dia. Para mim não faz diferença, o negócio é o mês mesmo.

[Edson Luiz Branco]

@JorgeSouza, isso só é possível ser feito através de VBA (macro), não por fórmulas.

 

No VBA, insira o seguinte código na classe "EstaPastaDeTrabalho":

 

Dim númPlans

Private Sub Workbook_Open()
  númPlans = Me.Worksheets.Count
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Me.Worksheets.Count > númPlans Then
    Sh.[F5].Value = DateAdd("m", 1, Date)
  End If
  númPlans = Me.Worksheets.Count
End Sub

 

Não esqueça de habilitar macros ao abrir o anexo.

 

Dúvida @JorgeSouza-ClubeDoHardware(EdsonBR).zip

[JorgeSouza]

@Edson Luiz Branco Funcionou perfeitamente!

 

Mais uma coisinha, eu vou deixar ele Personalizado, então ficaria agosto/2022. Minha dúvida é o seguinte, consigo deixar esse texto todo maiúsculo?

[Edson Luiz Branco]

41 minutos atrás, JorgeSouza disse:

...consigo deixar esse texto todo maiúsculo?

 

Sim, ficaria então AGOSTO/2022, sem o dia, correto? Só é necessário que a célula seja formatada como texto antes de aplicar o maiúsculo.

Altere a segunda rotina incluindo a linha e alterando a outra, ficando assim:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Me.Worksheets.Count > númPlans Then
    Sh.[F5].NumberFormat = "@"
    Sh.[F5].Value = UCase(Format(DateAdd("m", 1, Date), "mmmm/yyyy"))
  End If
  númPlans = Me.Worksheets.Count
End Sub

 

[JorgeSouza]

@Edson Luiz Branco Perfeito demais!

 

Quando o mês virar a data vai ficar fixa nas abas que já foram criadas né? Ela não vai ser alterada, correto?

 

Exemplo: Estamos no mês 11, a aba que eu criar hoje ainda ficará com a mesma data quando estivermos em novembro?

[Edson Luiz Branco]

Sim, ela não mexe no conteúdo de outras: não é volátil, pois não contém fórmula.

[JorgeSouza]

Muito Obrigado!