Inserte rápida y automáticamente Insertar fecha y marca de tiempo en Excel

En Excel, insertar fecha y marca de tiempo es una operación habitual. En este tutorial, presento varios métodos para insertar de forma manual o automática la fecha y la marca de tiempo en celdas de Excel mediante distintos casos prácticos.

Insertar fecha y marca de tiempo con atajos

Insertar fecha y marca de tiempo con fórmula

Fórmula para insertar automáticamente una marca de tiempo al introducir datos en otra columna

VBA para insertar automáticamente una marca de tiempo al introducir datos en otra columna

---

Si solo necesita insertar la fecha y la marca de tiempo en unas pocas celdas, puede hacerlo manualmente mediante atajos de teclado.

Insertar fecha actual:Control+:

Insertar hora actual:Mayús+Control+:

Vea la captura de pantalla:

Consejos:

1. Puede dar formato a los resultados con los formatos de fecha u hora que necesite en el cuadro de diálogo Establecer formato de celda.

2. Si dispone de Kutools para Excel, puede insertar la fecha actual u otras fechas en el formato de fecha específico que desee mediante su función Insertar fecha. Haga clic para descargar gratis

---

Si desea insertar una fecha o marca de tiempo que se actualice automáticamente, utilice las siguientes fórmulas.

Insertar fecha actual

=HOY()

Pulse la tecla Intro y se insertará la fecha actual en la celda.

Insertar hora actual：

=AHORA()

Pulse la tecla Intro y se insertará la fecha y hora actuales en la celda.

Consejos:

1. Puede dar formato a los resultados con los formatos de fecha u hora que necesite en el cuadro de diálogo Establecer formato de celda. Por ejemplo, si solo desea mostrar la hora actual, aplique el formato de Hora a la celda tras utilizar la fórmula =AHORA().

2. Si desea insertar la fecha y la hora actuales en el encabezado o pie de página de la hoja de cálculo, puede utilizar la función Insertar información del libro de Kutools para Excel para realizar esta tarea rápidamente.Haga clic para descargar gratis

---

Supongamos que tiene dos columnas, la Columna A y la Columna B, y desea que se inserte automáticamente la marca de tiempo actual en la Columna B cada vez que introduzca datos en la Columna A. ¿Cómo puede lograrlo?

Insertar automáticamente una marca de tiempo al introducir datos

1. En primer lugar, haga clic en Archivo > Opciones para abrir el cuadro de diálogo Opciones de Excel, seleccione Fórmulas en el panel izquierdo y active la casilla Habilitar cálculo iterativo en el grupo Opciones de cálculo. A continuación, haga clic en Aceptar.

2. En la columna B, por ejemplo, en la celda B1, introduzca esta fórmula.

=IF(A1<>«»,IF(B1<>«»,B1,NOW()),«»)

y arrastre el controlador de autorrelleno hacia abajo hasta las celdas que desee.

3. A continuación, formatee las celdas con fórmula aplicando el formato de fecha y hora que necesite en el cuadro de diálogo Establecer formato de celda: mantenga seleccionadas las celdas con fórmula, haga clic con el botón derecho para abrir el menú contextual y seleccione Establecer formato de celda, lo que hará que aparezca el cuadro de diálogo Establecer formato de celda. En la sección Personalizada, ubicada en la pestaña Número, introduzca el formato deseado en el cuadro de texto Tipo y haga clic en Aceptar.

Ahora, al introducir datos en la columna A, se insertará automáticamente la fecha y hora actuales en la columna B.

Insertar y actualizar automáticamente una marca de tiempo cuando cambie una celda en otra columna

Si desea insertar automáticamente una marca de tiempo al introducir datos y, al mismo tiempo, que dicha marca de tiempo se actualice si se modifica la entrada, puede utilizar la siguiente fórmula:

=IF(A1<>«»,IF(AND(B1<>«»,CELL(«address»)=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL(«address»)<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),«»)

A1 es la celda en la que introducirá los datos; B1 es la celda con la fórmula donde desea insertar la marca de tiempo.

Arrastre el controlador de autorrelleno hacia abajo hasta las celdas que vaya a usar.

A continuación, formatee las celdas con fórmula aplicando el formato de fecha y hora que necesite en el cuadro de diálogo Establecer formato de celda: mantenga seleccionadas las celdas con fórmula, haga clic con el botón derecho para abrir el menú contextual y seleccione Establecer formato de celda, lo que hará aparecer el cuadro de diálogo Establecer formato de celda. En la sección Personalizada, ubicada en la pestaña Número, introduzca el formato deseado en el cuadro de texto Tipo y haga clic en Aceptar.

---

Si está familiarizado con el código VBA, puede proceder del siguiente modo:

1. Haga clic con el botón derecho en la pestaña de la hoja de cálculo que utilice y elija Ver código en el menú contextual.

2. A continuación, en la ventana Microsoft Visual Basic para Aplicaciones, pegue el siguiente código.

VBA: Insertar automáticamente una marca de tiempo

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

3. A continuación, guarde este código. A partir de ahora, cada vez que introduzca o modifique datos en la columna A, se insertará automáticamente una marca de tiempo en la columna B.

Nota: puede ajustar las columnas A y B, así como el formato de hora mm/dd/aaaa hh:mm:ss en el código VBA para adaptarlo a sus necesidades reales.

Si desea utilizar la función definida, puede proceder del siguiente modo:

1. Mantenga pulsadas las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo para insertar un módulo en blanco.

2. Pegue el siguiente código en el nuevo módulo, guárdelo y regrese a la hoja de cálculo.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

3. En la celda donde desee insertar la marca de tiempo, introduzca esta fórmula.

=FormatDate(F1)

F1 es la celda en la que introducirá o modificará datos. A continuación, arrastre el controlador de autorrelleno hacia abajo hasta las celdas deseadas.

Ahora se insertará la fecha y hora actuales cuando la celda F1 reciba datos o se actualice.

---