What have you tried? Is the dropdown box you mentioned a Data Validation dropdown? Is the checklist just a column of spreadsheet cells? How about a picture of your workbook to help us understand it. First thought is to respond to the worksheet_change event in someway.
Thank you for your help. I figured it out though.
When they enter the the test data here.
I used VBA to add the user, date and time for the checks that were marked in the columns below.
Used this code to pull the user, date and time for each test marked off:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Application.EnableEvents = False
Cells(Target.Row, 302).Value = Application.UserName
Cells(Target.Row, 303).Value = Date
Cells(Target.Row, 304).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 8 Then
Application.EnableEvents = False
Cells(Target.Row, 306).Value = Application.UserName
Cells(Target.Row, 307).Value = Date
Cells(Target.Row, 308).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 9 Then
Application.EnableEvents = False
Cells(Target.Row, 310).Value = Application.UserName
Cells(Target.Row, 311).Value = Date
Cells(Target.Row, 312).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 10 Then
Application.EnableEvents = False
Cells(Target.Row, 314).Value = Application.UserName
Cells(Target.Row, 315).Value = Date
Cells(Target.Row, 316).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 11 Then
Application.EnableEvents = False
Cells(Target.Row, 318).Value = Application.UserName
Cells(Target.Row, 319).Value = Date
Cells(Target.Row, 320).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 12 Then
Application.EnableEvents = False
Cells(Target.Row, 322).Value = Application.UserName
Cells(Target.Row, 323).Value = Date
Cells(Target.Row, 324).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 13 Then
Application.EnableEvents = False
Cells(Target.Row, 326).Value = Application.UserName
Cells(Target.Row, 327).Value = Date
Cells(Target.Row, 328).Value = Time
Application.EnableEvents = True
End If
If Target.Column = 14 Then
Application.EnableEvents = False
Cells(Target.Row, 330).Value = Application.UserName
Cells(Target.Row, 331).Value = Date
Cells(Target.Row, 332).Value = Time
Application.EnableEvents = True
End If
End Sub