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.

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.

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.

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.