UserForm: Enable Textbox When "Other" Selected in MultiSelect Listbox (Excel 2010)

Hello,

I have a very basic userform that includes a multiselect listbox (listTopics) of 15 items in the list, using option checkboxes. I want the user to be able to select all that apply INCLUDING an "Other" item, which is the last item in the list selections. If the user chooses "Other", regardless of any other items selected, it enables a text box (txtboxOther). I would also like that textbox to appear grey in color, but change to white if "Other" is selected.

Capture.PNG

I have searched and found VBA code for topics on checkbox or radio button selections enabling textboxes, but limited information on a multiselect listbox selection enabling a textbox. Seems like it would be so common! But perhaps I'm just too much of a novice in design and coding.

Any help would be immensely appreciated, so thank you in advance! I'm using Excel 2010.

Chris

Try this for the Option checkbox click event...

Please Login or Register  to view this content.

Replace the names of the checkbox1 and textbox1 with your names for those.

Hi moonsaga,

Thanks for the suggestion, but I think I misled you by use of the word "checkboxes". This is actually a ListBox set to MultiSelect so the user can select as many from the list as needed. Do you have another suggestion for using a listbox with multiselect?

Any info is appreciate, thank you!

Chris

Try this.. (untested)

Please Login or Register  to view this content.

I tried it but still nothing. If I change your Click to Change, I get a little action on the background color, but opposite of what we'd expect and still nothing on enablement of the textbox as if it's set to True in Properties, then I can type in the field, False I cannot.

I'm using ActiveX (not sure if that matters), but I think the multiselect may require some unique looping in the code or something. Not sure obviously. If you have other thoughts, I'd be willing to give it a go!

Thanks so far!

Chris

Thanks Andy!

I haven't tried your code direction yet, but will likely give it a shot with another form with the same desired functionality. I stumbled on something in a search that I modified as follows and it seems to work so far, but your code looks more straightforward. If you happen to see this post and have an opinion if I'm breaking convention or was just plain lucky I'd be very interested. There seemed to be some mystery with the multiselectmulti option for listbox. I'm trying to learn by fire some integrity to what I'm building!

Again appreciate the info. Take care.

Private Sub frmBizContext_Initialize()
txtBizContextOther.Enabled = False
txtBizContextOther.Visible = False
txtBizContextOther.Value = ""
End Sub

Private Sub listExpTopics_Change()
If listExpTopics.Selected(14) = False Then
txtBizContextOther.Value = ""
txtBizContextOther.Enabled = False
txtBizContextOther.Visible = False
Else
txtBizContextOther.Enabled = True
txtBizContextOther.Visible = True
End If
End Sub

Ok, thanks for the specific feedback on the code, good to know.

Apologies on the rule break...the second I hit post I realized I should have put the tags on it...will be more attentive next time.

Appreciate it!