ComboBoxes

[Scarlet]

Hi,

I am trying to set comboBoxes on the userform. I have a clear button which sets the form to default (blank).

eg: Private Sub CmdClearButton_Click()
Call UserForm_Initialize
End Sub

It calls up the intialise command which I used to preset the form

eg: Private Sub UserForm_Initialize()

ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
ComboBox6.Value = ""
ComboBox7.Value = ""
ComboBox8.Value = ""

I have used the following command to fill the combo boxes

eg: Private Sub ComboBox1_Enter()
With UserForm1
With .ComboBox1
.AddItem "Format" 'these lines populate the listbox
.AddItem "Functuality"
.AddItem "Performance"
.AddItem "Capacity"
.AddItem "Availability"
.AddItem "Reliability"
.AddItem "Security"
.AddItem "Other"
End With
End With
End Sub

The problem I now have is that the information will not feed into my control source so I cannot save the information. Is the Enter command the wrong one to use? Maybe it is only entering the information, and there is no way of selecting it then.

I would appreciate any help with this!

Thanks, Scarlet

 

[Andrew Poulsom]

I would avoid using the ControlSource property. Rather, update the cell in code:

Private Sub ComboBox1_Change()
    Range("A1").Value = ComboBox1.Value
End Sub

That said, you will need to be careful when clearing the ComboBox because that will cause the Change event to fire. When you clear it what do you want to happen?

 

[Scarlet]

Andrew,

I want there to be a reset button on the form so that if the user wants to enter new information they can do so on a blank form. Do you think this is a workable idea?

Thanks, Scarlet

PS; I'll try using the code you gave me instead of the control Source. Tks.

 

[Andrew Poulsom]

That's OK if you want the target cell to be cleared when you clear the ComboBox.