Poner fecha automática en cuanto se ponga un dato en una celda de Excel

La siguiente macro permite colocar la fecha en que se ingresa un dato o valor en una celda, ya sea que se digite directamente o se copie y pegue:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Set rng = Intersect(Target, Me.Columns(\\\\\\\"A\\\\\\\"))

If Not rng Is Nothing Then

Application.EnableEvents = False

For Each cell In rng

If cell.Value \\\\\\\"\\\\\\\" And IsEmpty(cell.Offset(0, 1)) Then

cell.Offset(0, 1).Value = Now

cell.Offset(0, 1).NumberFormat = \\\\\\\"dd/mm/yyyy\\\\\\\" \\\\\\\'Formato de la fecha

End If

Next cell

Application.EnableEvents = True

End If

End Sub

En la columna A se agregan los datos y las fechas se agregan en la columna B, al lado de cada celda en la que se han ingresado los datos. Deberá adaptar los rangos según sus necesidades.

Hemos realizado las pruebas correspondientes y funciona correctamente, tanto si se digita el valor como si se pega de otra celda.

Para agregar la macro, de clic derecho sobre la pestaña de la hoja respectiva, y luego de clic en la opción ver código.