ListBox item to cell

[Soniya]

Hi All,

I have a combobox and klistbox in my userform.
when the user form changes some items are added to the
list box (no of items varies)

how can i get all the list box items in my sheet2 column
b and combobox1 item in column A?

for eg if i have tree items in list box in my column A i
have to get combobox value 3 times and listbox item
corresponding to it.

like if my combobox1.value is 10 and listbox1. list is
1,2,3 then

columnA column B
10 1
10 2
10 3

TIA
Soniya

 

[Dick Kusleika]

Soniya

Try this

Dim i as Long

For i = 0 to Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
Sheet2.Cells(i+1,1).Value = Me.ComboBox1.Value
Sheet2.Cells(i+1,2).Value = Me.ListBox1.List(i)
End If
Next i