Criação planilha ordem cronológica

Professor Hamilton T.

Identidade verificada

• CPF verificado
• E-mail verificado

Respondeu há 1 semana

Bom dia Denner,

O jeito mais simples seria:

1. Salve uma cópia do RDO em branco no seu equipamento.

2. Vá em uma das células da data e digite a fórmula =HOJE(). Salve e feche.
A partir deste momento, essa cópia passará a ser o seu modelo padrão diário.

3. Diáriamente, abra este arquivo, vá na célula onde você inseriu a data e aperte CTRL+C (copiar)
Em seguida, clique nas 3 células (inclusive na que contém a fórmula) com o botão CTRL apertado para demarcá-las
Depois, na barra de ferramentas, clique em Página Inicial/ Colar/ Colar Especial/ Demarque a opção "Valores"/ OK.
Pronto, a data do dia será colada nos três campos de datas.

4. No final, clique em Arquivo/ Salvar como e informe o novo nome, que seria a data do dia conforme você mencionou.

5. O Excel assumirá o novo arquivo, que você acabou de salvar, mantendo o anterior que você criou (com a fórmula) do jeito que estava.

Há muitas outras maneiras, até mais rápidas, mas envolveria macro.
Espero ter ajudado.

Att.
Prof. Hamilton

Professor Carlos T.

Identidade verificada

• CPF verificado
• E-mail verificado

Respondeu há 1 semana

Informo que já realizei a tarefa no excel de forma automatizada, caso tenha interesse, favor entrar em contato pelo telefone em meu perfil.

Atenciosamente,

Carlos S. Toledo Junior

Professor Leonardo S.

Identidade verificada

• CPF verificado
• E-mail verificado

Respondeu há 4 dias

Oi Dener!

1) cria uma coluna onde você pode calcular todas as datas..dia 1,2,3 e assim até o final do mês;

2) a primeira aba, com o documento original, você precisa digitar a primeira data, 01/01/2024, por exemplo...

No VBA, escreve o seguinte código:

Sub Criar_Abas()
    
Range(" 'coloca aqui a célula que vai a primeira data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))
Range(" 'coloca aqui a célula que vai a segunda data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))

Range(" 'coloca aqui a célula que vai a terceira data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))

Planilha1.Activate '(essa é a aba que tem o documento principal)' 

ContaLinhas = 7 '(segunda data da sequencia do mês, algo como 2/1/2024)'

While Planilha1.Range("A" & ContaLinhas).Value <> Empty
    
    
    Nome = Planilha1.Range("A" & ContaLinhas).Text
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = Nome

Range(" 'coloca aqui a célula que vai a primeira data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))
Range(" 'coloca aqui a célula que vai a segunda data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))

Range(" 'coloca aqui a célula que vai a terceira data'  ").Value = CDate(Format(ActiveSheet.Name, "dd/mm/yyyy"))

    Range("B1").Select

ContaLinhas = ContaLinhas + 1

Wend

End Sub

Pronto!! Qualquer coisa, faço pra você....