how to create a cell that appends the current date time when ever the row is edited

[fowzan]

i have an inventory list. the prices keep updating. as of now there is no track to when a row (be it the cost price, sell price, vendor, packing, etc) was edited. i would like to create a new column "Updated On" which stores the date whenever a row is edited.

if a row is updated twice is it possible to store 2 dates like (15-11-15||10-10-14)

 

[fowzan]

Give this event code a try...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("B:B,F:F,H:H")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  If Len(Cells(Target.Row, "X").Value) Then
    Cells(Target.Row, "X").Value = Replace(Cells(Target.Row, "X").Value, ")", Format$(Date, "||dd-mm-yy)"))
  Else
    Cells(Target.Row, "X").Value = Format$(Date, "(dd-mm-yy)")
  End If
  Application.EnableEvents = True
End Sub

ok this is almost upto the point. but can you please add the new dates at the beginning of the cell value instead of at the end of the cell value

 

[Rick Rothstein]

ok this is almost upto the point. but can you please add the new dates at the beginning of the cell value instead of at the end of the cell value

Give this a try...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("B:B,F:F,H:H")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  If Len(Cells(Target.Row, "X").Value) Then
    Cells(Target.Row, "X").Value = Replace(Cells(Target.Row, "X").Value, "(", Format$(Date, "(dd-mm-yy||"))
  Else
    Cells(Target.Row, "X").Value = Format$(Date, "(dd-mm-yy)")
  End If
  Application.EnableEvents = True
End Sub

 

[fowzan]

just perfect. works like a charm
Thank You So much for the help