Another ComboBox Issue

[Darrin Henry]

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?

 

[john.9.williams]

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