The issue i am having is i want to create multiple timestamps. meaning one column target would update time in column A for example and 2nd column target would update time in column D for example. please help. i am soo close. Here is an example of my code. i am having issues with the "If intersect area" and well really i just dont no the way of VBA to make this happen.
Private Sub Worksheet_Change(ByVal Target As Range)
'Timestamp Data
' TeachExcel.com
Dim myTableRange As Range
Dim myDateTimeRange As Range
Dim myUpdatedRange As Range
Dim myStockRange As Range
Dim myStockDateTimeRange As Range
'Your data table range
Set myTableRange = Range("G4:G2000")
Set myStockRange = Range("E4:E2000")
'Check if the changed cell is in the data tabe or not.
If Intersect(Target, myTableRange) Is Nothing Then Exit Sub
'If Intersect(Target, myStockRange) Is Nothing Then Exit Sub
'Stop events from running
Application.EnableEvents = False
'Column for the date/time
Set myDateTimeRange = Range("M" & Target.Row)
'Column for last updated date/time
Set myUpdatedRange = Range("H" & Target.Row)
'Column for last updated stock date/time
Set myStockDateTimeRange = Range("F" & Target.Row)
'Determine if the input date/time should change
If myDateTimeRange.Value = "" Then
myDateTimeRange.Value = Now
End If
'Update the updated date/time value
myUpdatedRange.Value = Now
'Update the date/time for stock
myStockDateTimeRange.Value = Now
'Turn events back on
Application.EnableEvents = True
End Sub