Como preencher automaticamente uma data numa célula quando a célula adjacente for atualizada no Excel?
Por vezes, ao atualizar uma célula numa determinada coluna, poderá querer registar automaticamente a data mais recente dessa alteração. Este artigo apresenta uma solução em VBA que, assim que uma célula for modificada, preenche imediatamente a célula adjacente com a data atual.
Preencher automaticamente a data atual numa célula quando a célula adjacente for atualizada com código VBA
Suponha que os dados que pretende atualizar estejam na coluna B e que, sempre que uma célula nessa coluna for modificada, a data atual seja automaticamente inserida na célula adjacente da coluna A. Veja a imagem:
Pode executar o seguinte código VBA para resolver este problema.
1. Clique com o botão direito do rato no separador da folha onde pretende preencher automaticamente a data com base na célula adjacente atualizada e, em seguida, clique em Ver Código no menu de contexto.
2. Na janela do Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela de código.
Código VBA: preencher automaticamente a data atual numa célula quando a célula adjacente for atualizada
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End SubNotas:
3. Prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.
A partir de agora, sempre que atualizar uma célula na coluna B, a célula adjacente na coluna A será preenchida automaticamente com a data atual. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como preencher automaticamente outras células ao selecionar um valor numa lista pendente do Excel?
- Como ativar o preenchimento automático ao digitar numa lista pendente do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos