Olá, sou estagiário em engenharia civil, e tenho que fazer um relatório diário de obra(RDO). A questão é que temos a planilha modelo, e a cada dia tenho que copiar a planilha modelo, colar, renomear (o nome é a data do dia), e em cada planilha atualizo a data em 3 locais diferentes. É possível automatizar este processo? Criar automaticamento, 30 planilhas, a diferença entre elas é o nome, (que é a data do dia e segue ordem cronologia de 1 ao 30), e data de cada uma delas que fica em 3 celúlas diferentes. Desde já agradeço. Anexei um modelo da planilha que utilizo.
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ê....
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
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