Tom,

1) Thanks for the help. (I don't know what you mean by "Strangely
enough"). It worked and it is so obvious. but I couldn't find how to do
that anywhere.

2) During a search, I found where you recommended some books for VBA. But I
could not find that again. Would you mind repeating your recommendations?

Thanks again,

ron


"Tom Ogilvy" wrote:

Strangely enough:

j = cmbProducts.ListIndex
i = 200
Worksheets("items").Range("a" & i + 1).Value = cmbProducts.List(j, 0)
Worksheets("Items").Range("b" & i + 1).Value = cmbProducts.List(j, 1)
Worksheets("Items").Range("c" & i + 1).Value = cmbProducts.List(j, 2)

--
Regards,
Tom Ogilvy



"mato nanjin" wrote:

I have a multicolumn (3) combobox that I put data into from a worksheet.
When a user makes a selection, how do I get this data out of it?

Here is how I get the stuff in:

Private Sub UserForm_Initialize()
cmbProducts.ColumnCount = 3

lastproduct = Worksheets("Items").Range("a65536").End(xlUp).Row

For i = 0 To lastproduct - 1

cmbProducts.AddItem
cmbProducts.List(i, 0) = Worksheets("items").Range("a" & i + 1).Value
cmbProducts.List(i, 1) = Worksheets("Items").Range("b" & i + 1).Value
cmbProducts.List(i, 2) = Worksheets("Items").Range("c" & i + 1).Value

Next i

cmbProducts.ListIndex = 0

End Sub

If user chooses list index 3, say, how do I get the three items (which are
item #, description and cost) into three cells in a different worksheet,
"Quote"?

Any help, any suggestions to my code is appreciated.