Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Another ComboBox Issue
I'm having another ComboBox issue. The good thing about a combobox is
that the user has the ability to enter their own answer, when the ones presented do not match what they need, which is why I'm using one. My ComboBox has 4 options presented to the user. The ComboBox.Value of the first option is 0, and the next is 1 etc. Now, what would be the value of the ComboBox if the user enters in their own info. I'm using the ComboBox.Value to determine the contents of one cell, and can get it to work for the four options I give them, but if they put in their own stuff, I can't get that info to populate into the cell. My code is as follows: Private Sub Contract1_Enter() ComboBox1.DropDown ComboBox1.AddItem "Option 1" ComboBox1.AddItem "Option 2" ComboBox1.AddItem "Option 3" ComboBox1.AddItem "Option 4" 'Use drop-down list ComboBox1.Style = fmStyleDropDownCombo 'Combo box values are ListIndex values ComboBox1.BoundColumn = 0 'Set combo box to first entry ComboBox1.ListIndex = 0 End Sub Then in a command button I have this: If Contract1.Value = 0 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 0" If Contract1.Value = 1 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 1" If Contract1.Value = 2 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 2" If Contract1.Value = 3 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 3" Any ideas? *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Another ComboBox Issue
Darrin,
Hi You do not need any of this code if your combo box is on a userform set the properties for the control source to sheet1!e20 then what ever you choose from the combobox be from the list or your own input it will appear in e20 If Contract1.Value = 0 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 0" If Contract1.Value = 1 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 1" If Contract1.Value = 2 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 2" If Contract1.Value = 3 Then ActiveWorkbook.Worksheets _("Sheet1").Range("E20") = "Option 3" regards johny5 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
fill combobox depending on selection from another combobox | Excel Discussion (Misc queries) | |||
How Do I Load A ComboBox RowSource From The Results Of Another ComboBox | Excel Programming | |||
Populating combobox from another combobox | Excel Programming | |||
New to ComboBox | Excel Programming | |||
ComboBox or what?!? | Excel Programming |