keep track of changes in the cells as comments in the affected cell.

[srvgonzalez]

Hi There , I have this VBS which I found online which keep track of changes in the cells as comments in the affected cell.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Variant, y As Variant

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False

x = Target.Value

Application.Undo

y = Target.Value

Target.Value = x

Application.EnableEvents = True

Target.NoteText Text:=Target.NoteText & Chr(10) & "Old value " & y _

& " changed to " & x & " on " & Format(Date, "mm-dd-yyyy") _

& " by " & Environ("username")

Target.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle

Target.Comment.Shape.TextFrame.AutoSize = True

End Sub




But I will need to use it only for column T (Date value) to register changes in dates of these columns/Cells, great if someone can help