ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Iterate combo box (https://www.excelbanter.com/excel-programming/421440-iterate-combo-box.html)

inungh

Iterate combo box
 
I would like to iterate combo box to get all result in a loop.

I try to use cmbMyCombo.count, but Excel does not support the
property.

Are there any property that I can access for this iterate combo box?

Your information is great appreciated,




Chip Pearson

Iterate combo box
 

Try something like the following. ListCount returns the number of
items in the list. These are 0-based, so the first item is 0, the
second is 1, up though the last item at ListCount-1.

Dim CBX As MSForms.ComboBox
Dim N As Long
Set CBX = combobox1
For N = 0 To CBX.ListCount - 1
Debug.Print N, CBX.List(N)
Next N


Set the CBX variable to your combobox.

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Wed, 17 Dec 2008 08:08:25 -0800 (PST), inungh
wrote:

I would like to iterate combo box to get all result in a loop.

I try to use cmbMyCombo.count, but Excel does not support the
property.

Are there any property that I can access for this iterate combo box?

Your information is great appreciated,



Mike

Iterate combo box
 
Try this
Private Sub CommandButton1_Click()
For i = 1 To ComboBox1.ListCount - 1
MsgBox Me.ComboBox1.List(i)
Next
End Sub

"inungh" wrote:

I would like to iterate combo box to get all result in a loop.

I try to use cmbMyCombo.count, but Excel does not support the
property.

Are there any property that I can access for this iterate combo box?

Your information is great appreciated,





Chip Pearson

Iterate combo box
 
For i = 1 To ComboBox1.ListCount - 1

The i variable should start at 0 not 1.

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Wed, 17 Dec 2008 08:31:03 -0800, Mike
wrote:

Try this
Private Sub CommandButton1_Click()
For i = 1 To ComboBox1.ListCount - 1
MsgBox Me.ComboBox1.List(i)
Next
End Sub

"inungh" wrote:

I would like to iterate combo box to get all result in a loop.

I try to use cmbMyCombo.count, but Excel does not support the
property.

Are there any property that I can access for this iterate combo box?

Your information is great appreciated,





Mike

Iterate combo box
 
Thanks Chip
That is why I am not an MVP, LOL. I would have figured it out if I had
tested the code before posting it.


"Chip Pearson" wrote:

For i = 1 To ComboBox1.ListCount - 1


The i variable should start at 0 not 1.

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Wed, 17 Dec 2008 08:31:03 -0800, Mike
wrote:

Try this
Private Sub CommandButton1_Click()
For i = 1 To ComboBox1.ListCount - 1
MsgBox Me.ComboBox1.List(i)
Next
End Sub

"inungh" wrote:

I would like to iterate combo box to get all result in a loop.

I try to use cmbMyCombo.count, but Excel does not support the
property.

Are there any property that I can access for this iterate combo box?

Your information is great appreciated,






inungh

Iterate combo box
 
On Dec 17, 5:04*pm, Mike wrote:
Thanks Chip
That is why I am not an MVP, LOL. I would have figured it out if I had
tested the code before posting it.



"Chip Pearson" wrote:
For i = 1 To ComboBox1.ListCount - 1


The i variable should start at 0 not 1.


Cordially,
Chip Pearson
Microsoft MVP
* * Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Wed, 17 Dec 2008 08:31:03 -0800, Mike
wrote:


Try this
Private Sub CommandButton1_Click()
For i = 1 To ComboBox1.ListCount - 1
* MsgBox Me.ComboBox1.List(i)
Next
End Sub


"inungh" wrote:


I would like to iterate combo box to get all result in a loop.


I try to use cmbMyCombo.count, but Excel does not support the
property.


Are there any property that I can access for this iterate combo box?


Your information is great appreciated,- Hide quoted text -


- Show quoted text -


Thanks millions,



All times are GMT +1. The time now is 10:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com