Forum Discussion
2 columns vba timestamp
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the worksheet module.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open it.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("F:F,H:H"), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False Intersect(Range("F:F,H:H"), Target).Offset(0, 1).Value = Now Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the worksheet module.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open it.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("F:F,H:H"), Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Intersect(Range("F:F,H:H"), Target).Offset(0, 1).Value = Now
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Change the constant TheCells, for example:
Private Sub Worksheet_Change(ByVal Target As Range) Const TheCells = "F6:F1000,H6:H1000" If Not Intersect(Range(TheCells), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False Intersect(Range(TheCells), Target).Offset(0, 1).Value = Now Application.EnableEvents = True Application.ScreenUpdating = True End If End SubWhat if I wanted timestamp for column "f" by 3 and "h" to be offset by 1?
The timestamp would end up in column I for both F and H: I is 3 columns to the right of F and 1 column to the right of H. Is that really what you want?
- HansVogelaar
Thanks, that works a treat, and I have 2 working code for future, which I can amend. Your code is great, I couldn't do this with other code I received. Many thanks again.
