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.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
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ê....
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
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
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.