A função HOJE() é amplamente utilizada no Excel para exibir automaticamente a data atual, atualizando-se sempre que a planilha é aberta ou alterada. Mas, em determinadas situações, especialmente com automações no VBA (Visual Basic for Applications), é importante “fixar” a data de hoje, ou seja, registrar o valor da data atual sem que ela se altere depois.
Neste artigo, você vai aprender como utilizar o equivalente da função HOJE no VBA, e como fixar a data em células de forma simples e eficaz.
Abaixo você encontra 4 folders de demonstração dos conteúdos que existem em nossos Pacotes Completos que você pode adquirir.
No Excel:=HOJE()
atualiza automaticamente todos os dias.
No VBA:
Você pode capturar a data do momento em que executa a macro e mantê-la fixa em uma célula, sem atualizações futuras.
No VBA, a função equivalente a HOJE() é a Date. Ela pega a data do sistema no momento em que a macro é executada.
Sub FixarDataHoje()
Range("A1").Value = Date
End Sub
🟢 Com isso, a data atual será registrada na célula A1 como valor fixo.
Se você quiser incluir também a hora (como uma “foto” exata do momento), pode usar a função Now:
Sub FixarDataHora()
Range("A1").Value = Now
End Sub
🟢 Resultado: a célula A1 mostrará data e hora fixas.
Registrar a data de preenchimento de formulário
Marcar data de movimentação de estoque
Criar logs automáticos em planilhas
Preencher relatórios sem risco de data se alterar
A função Date captura a data uma única vez, no momento da execução.
Após executada, o valor da célula não muda como a fórmula =HOJE()
.
Isso é útil para registros históricos ou comprovações de data.
Sub RegistrarDataEmLinha()
Dim ultimaLinha As Long
ultimaLinha = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(ultimaLinha, 1).Value = Date
End Sub
🟢 Essa macro localiza a última linha da coluna A e insere a data do dia na próxima linha disponível.
Ao usar o Date no VBA, você ganha controle total sobre o registro da data na sua planilha. Ideal para situações em que a data não deve mudar, mesmo ao reabrir o arquivo. Essa prática é essencial para automatizar rotinas no Excel com mais segurança e organização.
Escolha o melhor pacote para você:
sem mensalidade
Parcelado no cartão de crédito, ou
R$ 97,00 à vista!
+ de 400 DASHBOARDS + SUPER BÔNUS + BÔNUS PREMIUM
Parcelado no cartão de crédito, ou
R$ 237,00 à vista!
sem mensalidade
+ de 1000 DASHBOARDS + SUPER BÔNUS + BÔNUS PREMIUM + 15.000 PLANILHAS + PACOTE EXCLUSIVO
Parcelado no cartão de crédito, ou
R$ 487,00 à vista!
sem mensalidade