Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ComboBox Issues
Sorry if this is a duplicate, but it didn't seem to post the first time:
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
|
|||
|
|||
ComboBox Issues
See answer to your first posting.
-- Regards, Tom Ogilvy "Darrin Henshaw" wrote in message ... Sorry if this is a duplicate, but it didn't seem to post the first time: 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 *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
fill combobox depending on selection from another combobox | Excel Discussion (Misc queries) | |||
Decimal Issues | Excel Worksheet Functions | |||
need help for several issues | Excel Programming | |||
How Do I Load A ComboBox RowSource From The Results Of Another ComboBox | Excel Programming | |||
Populating combobox from another combobox | Excel Programming |