Hi everyone,
To provide some context for my issue, I'm creating a project coordination spreadsheet meant to keep track of progress on proposals from start to finish. In order to ensure that proposals aren't simply abandoned when things are getting busy with other projects, I got to work building a code that would keep track of when items within different columns were updated and create a time stamp in another column of what was updated in that specific row. However this was not what I was aiming to accomplish. My goal was to have whatever was updated in these columns would return an updated date and time in a single cell, not every cell in the column adjacent. So whenever the sheet is updated, the time/date of said update is recorded in a single cell on the same sheet. Is there a way to make this possible? I'm very new to VBA coding and would like some assistance. You can find my current code (and password coding) below to help you understand what I'm working with.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pswStr As String
pswStr = "Password!"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Const ColumnsToMonitor As String = "L:Q"
Const DateColumn As String = "R"
Application.EnableEvents = False
If Not Intersect(Target, Columns(ColumnsToMonitor)) Is Nothing Then
Intersect(Target.EntireRow, Columns(DateColumn)).Value = Now
End If
Application.EnableEvents = True
ActiveSheet.Protect Password:=pswStr
End Sub
Display More
Thanks,
- T