¿Cómo ingresar automáticamente la fecha cuando los datos ingresados en una columna?
Al trabajar en una hoja de trabajo, desea que la fecha y hora actuales se ingresen en una columna B automáticamente al ingresar datos en la columna A, como se muestra en la siguiente captura de pantalla. En Excel, ¿cómo podría intentar resolver este trabajo con una solución fácil y rápida?
Ingrese automáticamente la fecha cuando los datos ingresados en una columna con código VBA
Ingrese automáticamente la fecha cuando los datos ingresados en una columna con código VBA
Tal vez, no hay una forma directa de que podamos lidiar con este trabajo en Excel, pero el siguiente código de VBA puede ayudarlo, haga lo siguiente:
1. Seleccione la pestaña de la hoja en la que desea insertar la fecha automáticamente, luego haga clic con el botón derecho y elija Ver código en el menú de texto, luego en eh apareció Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el módulo:
Código de VBA: ingrese automáticamente la fecha al ingresar datos en otra columna:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
With Target(1, 2)
.Value = Date & " " & Time
.EntireColumn.AutoFit
End With
End If
End Sub
2. Luego guarde y cierre esta ventana de código, vuelva a la hoja de trabajo, ahora, cuando ingrese datos en la Columna A, la celda correspondiente en la Columna B ingresará la fecha y hora actual automáticamente de una vez.
Note: En el código anterior, A2: A15 son las celdas en las que desea ingresar valores.
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!