Como preencher automaticamente a data na célula quando a célula adjacente é atualizada no Excel?
Às vezes, ao atualizar uma célula em uma determinada coluna, você pode querer marcar a última data sobre a atualização. Este artigo recomendará um método VBA para resolver esse problema. Quando a célula é atualizada, a célula adjacente será preenchida automaticamente com a data atual imediatamente.
Preencher automaticamente a data atual na célula quando a célula adjacente for atualizada com o código VBA
Supondo que os dados que você precisa atualizar sejam localizados na coluna B, e quando a célula na coluna B for atualizada, a data atual será preenchida na célula adjacente da coluna A. Veja a captura de tela:
Você pode executar o seguinte código VBA para resolver esse problema.
1. Clique com o botão direito na guia da planilha necessária para preencher automaticamente a data com base na célula atualizada adjacente e clique em Ver código no menu do botão direito.
2. Na janela Microsoft Visual Basic for Applications, copie e cole o código VBA abaixo na janela Code.
Código VBA: preencher automaticamente a data atual em uma 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 Sub
Notas:
3. Pressione outro + Q chaves ao mesmo tempo para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao atualizar células na coluna B, a célula adjacente na coluna A será preenchida com a data atual imediatamente. Veja a imagem:
Artigos relacionados:
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel?
- Como autocompletar ao digitar na lista suspensa do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!