Fecha automatica al poner un dato o copiarlo

Question

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.
los rangos donde capturaría o copiaría los dato es de A489 HASTA A8000 y la fecha debera ponerse en la columna D. Podrias hacer la macro con estos datos por favor.

Answer 1

Gerencie.com

📅 14/01/2005

💬 2003

Publicado:2024-03-29

00

Para el rango utilizado esta sería la macro modificada:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, Me.Range("A489:A8000"))

If Not rng Is Nothing Then
Application.EnableEvents = False
For Each cell In rng
If cell.Value "" And IsEmpty(cell.Offset(0, 3)) Then \' Columna D
cell.Offset(0, 3).Value = Now
cell.Offset(0, 3).NumberFormat = "dd/mm/yyyy" \' Formato de fecha
End If
Next cell
Application.EnableEvents = True
End If
End Sub

Fecha automatica al poner un dato o copiarlo

Respuestas: (1)

Preguntas relacionadas:

Forma de citar este artículo (APA):