add items from listbox to combo

[irresistible007]

Okay - i have give up... i tried it myself but since i am a novice.. i do always comeup with trouble... here is the scenario:

I have a list box on sheet 1 and a combo box on sheet 2. I want to add to this combo box, all current items of list box... here is the nasty code i have typed this far... but i myself can see the logical hole in it... couldn't come up wid the sol..

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Dim nindex As Integer
For nindex = 0 To Sheet1.ListBox1.ListCount - 1
ComboBox1.AddItem Sheet1.ListBox1.List(Sheet1.ListBox1.ListIndex)
Next
End Sub

the above is obviously listing the 1st item only and for 3 times

 

[irresistible007]

well i found it myself.. for benefit of all here is the code:


Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Sheet1.ListBox1.List
End Sub

Previously i was mistakenly adding
Combobox1.clear before the line

 

[Norie]

Previously i was mistakenly adding
Combobox1.clear before the line

I don't actually think that was the problem.

Instead of this

ComboBox1.AddItem Sheet1.ListBox1.List(Sheet1.ListBox1.ListIndex)

you should probably have used this.

ComboBox1.AddItem Sheet1.ListBox1.List(nindex)

Though the code you have now is probably more efficient.