Actually I found the book list. Save the typing. Thanks!!!!!!

"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.