Forum Discussion
Automatically adding a timestamp after a pulldown is selected
The code should be in the worksheet module. You can open this module from Excel by right-clicking the sheet tab, then selecting 'View Code' from the context menu, or by double-clicking the sheet in the Project Explorer pane of the Visual Basic Editor.
I'd change the code to look like this:
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P2:P670")) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Intersect(Target, Range("P2:P670")).Offset(1, 0).Value = Now
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Thanks for the advice, but I am still missing something. I have your code in the correct worksheet, vs the module or workbook. (See photo) But, when I select something from the pull down menu in Column P, I still get nothing in the next column (See [photo)
What am I missing? Does it have something to do with the pull down menu's?
Since you didn't include the column headers in the screenshot, I cannot see which cells are involved.
- Sorry, the Rev Req Y/n is Column P, and the Review decision date is column Q. Column P is a pulldown to select yes or no. I need the date to show up next to it in Column Q when something is selected.
This is the first set of columns I am doing this for. I have other columns with pull down menus that have more options and I need it to record the date and time each time a new option is selected.
Thanks.You now have two Worksheet_Change event procedures. That causes a conflict.
Delete the first one, and insert the keyword Private followed by a space before the second Sub.
Press Ctrl+G to activate the Immediate window.
Type (or copy/paste) the line
Application.EnableEvents = True
With the insertion point anywhere in that line, press Enter.
Now switch back to Excel and select something from a drop-down in cell P2 (or below).