VBA to time stamp cells whose values are derived from a data validation dropdown list

Natures_Gift,

Col G of attached has DropLists with three options - Person 1, Person 2 and Person 3

If you select "Person 2" in any row, Col H of that row is 'time stamped' as "HH:MM:SS", If you want it to show Date as well, change the format of the Column.

Code as follows:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'Do nothing if more than one cell is changed or content deleted

   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
      
'Set Macro to work only on column G
        If Not Intersect(Target, Range("G:G")) Is Nothing Then

 'Stop any possible runtime errors and halting code

            On Error Resume Next

'Turn off ALL events so the change does not put the code into a loop.

                Application.EnableEvents = False

'ENter time in Col H if specific option chosen

            If Target = "Person 2" Then  ' CHANGE THIS TO WHATEVER IT IS YOU WANT TO TRIGGER THE TIMESTAMP
            Target.Offset(0, 1) = Now
            End If
            
'Turn events back on

                Application.EnableEvents = True

'Allow run time errors again

            On Error GoTo 0

        End If

End Sub

Obviously you will change the Data Validation List and "specific" trigger choice to whatever you want. Just change the Macro line accordingly

Hope this helps

Ochimus

THANK YOU! It worked, however, another code i had in there no longer works i have never never tried multiple codes. Also if i have multiple options in my drop down do i just repeat this portion of the code:

'ENter time in Col H if specific option chosen

            If Target = "Person 2" Then  ' CHANGE THIS TO WHATEVER IT IS YOU WANT TO TRIGGER THE TIMESTAMP
            Target.Offset(0, 1) = Now
            End If
            
'Turn events back on

                Application.EnableEvents = True

'Allow run time errors again

            On Error GoTo 0

Attached is the spreadsheet i am working on. I am on the walk ins tab i am trying to auto stamp with time when the correlating columns have data in them:

Walk ins sheet:

Time stamp Column A when data is in Column B
Time stamp Column H when data is in Column G (drop down)
Time stamp Column J when data is in Column I (drop down)

Appointments sheets
Time stamp Column F when data is in Column D (drop down)
Time stamp Column H when data is in Column G (drop down)
Time stamp Column J when data is in Column I (drop down)