Updating Cells

Posted by steve on December 12, 2001 5:30 AM

Hi, I have tried this bit of code to automatically put the date into a cell if the adjacent cell = Yes. This works fine when entering Yes into the cell but wont work if I change the cell to a drop down. Choies Yes" & "No". Can any one assist? Thanks in advance

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then
ThisRow = Target.Row
If Target.Value = "Yes" Then
Range("d" & ThisRow).Value = Now()
Else
Range("e" & ThisRow).Value = ""
End If
End If
End Sub

Posted by Joe Was on December 12, 2001 6:14 AM

I tried your code with a drop down "Data Validation List" using the "Source" Yes,No
I did not use "Yes","No" and your code worked? JSW

Posted by steve.astrop on December 12, 2001 7:15 AM

Thanks JSW folowed your instructions and it now works.

Thanks Again.

Posted by steve.astrop on December 12, 2001 7:15 AM

Thanks JSW folowed your instructions and it now works.

Thanks Again.