Help with changing date automatically when cell value was changed.

[udix]

Hi everyone,

i have a links tracking spread sheet, it has 3 columns: link, notes & date.

whenever i'm changing the link/s i'm adding the date manually.

since i'm changing the links very often, i wonder if there is a way to make the date change automatically whenever the link cell has changed?

basically i need the "date" column to change to date the "link" column was changed.

i hope that's clear enough, attaching a workbook to the post.

Thanks!

[TMS]

You would need a Worksheet Change event handler monitoring column A. When the data in column A changes, you can update the date in column C.

You would need to save your workbook as macro enabled.

[udix]

Hi TMS,

Sorry i'm a bit newbie to excel VBA.

looked online how to do what you suggested and i'm a bit lost.

found a VBA code that adds a note with the changed time to any changed cell, this is close but not what i want.

VBA code:

' Add a comment for each change.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OldComment As String, NewComment As String, objCell As Range
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    NewComment = "Changed on " & Now() & " by " & Application.UserName & _
        " from " & OldCellValue
    
    If Target.Comment Is Nothing Then
        Target.AddComment NewComment
    Else
        OldComment = Target.Comment.Text
        Target.Comment.Text NewComment & vbLf & OldComment
    End If
    
    Target.Comment.Shape.TextFrame.AutoSize = True

End Sub

how am i getting the data in the note to be written in the "date" cell?

any tips on what to do it?

Thanks!

[TMS]

Something like:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False
Target.Offset(, 2).Value = Date
Application.EnableEvents = False

End Sub