Al escribir en una columna, registrar la fecha de la escritura en otra columna
Buenos días.
Necesitaría que cuando ingreso datos en una celda de la columna "D", me salga la fecha del ingreso en la misma línea, en la columna "B".
Un saludo
2 Respuestas
Respuesta de Marcial C. C.
1
Esta macro hace eso:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Marcial Castro'
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Range("B" & Target.Row) = Date
End If
End SubSi te ha valido la respuesta.
Respuesta de Dante Amor
1
Te anexo la macro con la siguiente opción: solamente si es un nuevo registro se actualiza la columna "B"; si haces cambios en la columna "D" ya no se modifica la fecha.
Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 4 Then If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Date End If End If End Sub