Mark date when a drop down list option is selected

[t_faragher13]

I have a column with validation rules that only allow for the drop down list options to be selected. This is a live document to track the progress of particular actions.
I have date columns for each selection option. I would like a macro that adds the date to the appropriate column when each option is selected.
The drop down list column is F:F and each date column will be paced after this one.
Can anyone help with this?

Thanks

Tom

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Application.EnableEvents = False
    Target.Offset(, 1).Value = Date
    Application.EnableEvents = True
End If
End Sub

 

[t_faragher13]

What I'm trying to get is to have the macro recognise when a particular option is selected and then enter the date into that selctions particular date column.
The options that I would like a date for are:

Reviewed<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
DCR raised<o></o>
DCN awaiting approval<o></o>
Issued and controlled in SDD<o></o>
Issued , needs to go onto SDD.<o></o>
Being created

Thanks<o></o>

 

[VoG]

Do we have to guess which columns they are?

 

[t_faragher13]

Nah I said it in the first post.
Column F has the drop down list and then the date columns will continue after (G-L) in accordance with list given.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 6 Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "Reviewed": i = 1
        Case "DCR raised": i = 2
        Case "DCN awaiting approval": i = 3
        Case "Issued and controlled in SDD": i = 4
        Case "Issued, needs to go onto SDD:": i = 5
        Case "Being created": i = 6
    End Select
    Target.Offset(, i).Value = Date
    Application.EnableEvents = True
End If
End Sub

 

[t_faragher13]

Strangely when I select "Issued, needs to go onto SDD" the date is entered into the drop list column F instead of K??

 

[VoG]

Check that the text in the code is exactly the same as your drop-down text. Adjust the code accordingly

 

[t_faragher13]

That's Brilliant. Thanks

 

[t_faragher13]

This runs OK until I select and delete more than one of the drop down list cells. I get a run time error '13' mismatch message.