¿Cómo completar automáticamente la fecha en la celda cuando la celda adyacente se actualiza en Excel?
A veces, al actualizar una celda en una columna determinada, es posible que desee marcar la fecha más reciente sobre la actualización. Este artículo recomendará un método VBA para resolver este problema. Cuando se actualiza la celda, la celda adyacente se completará automáticamente con la fecha actual inmediatamente.
Completar automáticamente la fecha actual en la celda cuando la celda adyacente se actualiza con el código VBA
Suponiendo que los datos que necesita actualizar se ubican en la columna B, y cuando se actualice la celda en la columna B, la fecha actual se completará en la celda adyacente de la columna A. Ver captura de pantalla:
Puede ejecutar el siguiente código VBA para resolver este problema.
1. Haga clic con el botón derecho en la pestaña de la hoja que necesita para completar automáticamente la fecha en función de la celda actualizada adyacente, y luego haga clic en Ver código desde el menú contextual.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en la ventana Código.
Código de VBA: rellene automáticamente la fecha actual en una celda cuando se actualice la celda adyacente
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. Prensa otro + Q teclas al mismo tiempo para cerrar el Microsoft Visual Basic para aplicaciones ventana.
De ahora en adelante, al actualizar las celdas en la columna B, la celda adyacente en la columna A se completará con la fecha actual inmediatamente. Ver captura de pantalla:
Artículos relacionados:
- ¿Cómo rellenar automáticamente otras celdas al seleccionar valores en la lista desplegable de Excel?
- ¿Cómo autocompletar al escribir en la lista desplegable de Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!