Prev: Change Track Changes Colour
Next: Insert Rows
From: HFST04 on 13 Apr 2010 08:29
I need something that forces a 2nd response if the word Other is chosen from
a drop down.

A B C
Name Reason Note
-----------------------------------------
Jim complete
Bob Other left early

If the response is anything but other then no note is required, but I want
to require something added to the notes if other is selected. A and B are
validation drop downs and C is a free form notes column.
Thanks
From: Roger Govier on 13 Apr 2010 10:13
HI

You will need some VBA code to achieve this

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr As Long, tc As Long, note As String
tr = Target.Row
tc = Target.Column
If tr = 1 Then Exit Sub
If tc <> 2 Then Exit Sub
If Target <> "other" Then Exit Sub
Application.EnableEvents = False
note:
note = InputBox("Enter Note")
If note = "" Then GoTo note:
Cells(tr, 3) = note
' remove this next line if you don't want to be taken to the next row
Cells(tr + 1, 1).Activate
Application.EnableEvents = True

End Sub

To install
Copy code above
Right click on sheet tab>View code
Paste code into white pane that appears
Alt+F11 to return to Excel
--
Regards
Roger Govier

HFST04 wrote:
> I need something that forces a 2nd response if the word Other is chosen from
> a drop down.
>
> A B C
> Name Reason Note
> -----------------------------------------
> Jim complete
> Bob Other left early
>
> If the response is anything but other then no note is required, but I want
> to require something added to the notes if other is selected. A and B are
> validation drop downs and C is a free form notes column.
> Thanks
 | 
Pages: 1
Prev: Change Track Changes Colour
Next: Insert Rows