Attempting to put time stamp at the end of a modified row using borrowed script from another thread. The borrowed script works well but the modified script doesn't. I am attempting to put a timestamp at the end of the row if anything is modified between columns 13 and 22 and put the time stamp in the corresponding row cell on column 25. The original puts the date stamp on the first column cell of any column modified between rows 2 and 17. Not sure why this won't work. All of this script was placed in the worksheet and not in a module. The first set of code is the original and the second is the modified code. The original code works well, but my modified code doesn't work at all. Any help is greatly appreciated.
![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False For Each c In Target If c.Column > 1 And c.Column < 18 Then Cells(c.Row, 1) = Now End If Next c Application.EnableEvents = True End Sub Private Sub Existing_Entries(ByVal Target As Range) Dim c As Range Application.EnableEvents = False For Each c In Target If c.Column > 12 And c.Column < 23 Then Range(c.Row, 25) = Now End If Next c Application.EnableEvents = True End Sub











LinkBack URL
About LinkBacks
Register To Reply

Bookmarks