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
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 Sub

Si te ha valido la respuesta.

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas