Forum Discussion
Sam_Chig
Nov 05, 2021Copper Contributor
Update date when a certain cell is changed
I want the current date to be updated when I change the Attempt # column. Date is column G and Attempt # is column I. To be clear, when I change attempt # in a cell, I want the Date Called corre...
HansVogelaar
Nov 05, 2021MVP
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the code window.
Close the Visual Basic Editor.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open it.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As ListObject
Set tbl = Me.ListObjects(1) ' or Me.ListObjects("Table1") or similar
If Not Intersect(tbl.ListColumns("Attempt #").DataBodyRange, Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Intersect(tbl.ListColumns("Attempt #").DataBodyRange, Target).Offset(0, -2).Value = Date
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Sam_Chig
Nov 05, 2021Copper Contributor
Thank you!! There is an issue though.
It gives me "argument not optional"
It gives me "argument not optional"
- HansVogelaarNov 05, 2021MVP
Strange - it works for me. See the attached sample workbook.
- Sam_ChigNov 08, 2021Copper ContributorInteresting. I'm using excel through my company, but macros are enabled. The data is also in a table if that means anything. I'm not sure where the issue is.
- HansVogelaarNov 08, 2021MVP
Could you attach a copy of the problem workbook, without sensitive information?