Poner fecha automática en cuanto se ponga un dato en una celda de Excel
Necesito la macro para poner fecha automáticamente en cuanto se ponga un dato aun cuando este dato sea copiado a esa hoja, ya que logro que se ponga la fecha, pero sólo cuando capturo directamente y no cuando son copiados a esa hoja.
Respuestas: (1)
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.
Preguntas relacionadas:
Su respuesta: