Autor: DANIEL PACHECOContabilidad
Fecha automatica al poner un dato o copiarlo
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.
Fecha: 2024-03-27
Respuestas: (1)
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
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: 2024-03-29
0
0
Preguntas relacionadas:
Su respuesta:
Debe iniciar sesión para responder. Si no está registrado regístrese aquí, es grátis.