Load combobox

MJA · May 1st, 2002, 05:21 AM

Hello again,

In column A I have words.
In column B I have categories, e.g. A, B, C.

What I want is that only the words of category B appear in a combobox on a userform.
How do I program that in VB?

kkknie · May 1st, 2002, 08:37 AM

Martin,

I am particularly fond of the cells array, but I'm sure you could do it many other ways. This example assumes the values start in row 1. If you have a header row, you would start the For loop with the first row of data. It also assumes the sheet with the data is called SheetName.

Dim i as Long

ComboBox1.Clear

With Sheets("SheetName")

For i = 1 to 65000

If .Cells(i,1).value = "" Then Exit For
If .Cells(i,2).value = "B" Then
ComboBox1.AddItem .Cells(i,1)
End If

Next

End With

May 1st, 2002, 05:21 AM	#1
MJA Board Regular Join Date: Feb 2002 Location: Hengelo Posts: 79	Hello again, In column A I have words. In column B I have categories, e.g. A, B, C. What I want is that only the words of category B appear in a combobox on a userform. How do I program that in VB? __________________ Best regards, Martin J.A. Maatman Oonk

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 1st, 2002, 08:37 AM	#2
kkknie Board Regular Join Date: Apr 2002 Location: Greenwood, SC Posts: 677	Martin, I am particularly fond of the cells array, but I'm sure you could do it many other ways. This example assumes the values start in row 1. If you have a header row, you would start the For loop with the first row of data. It also assumes the sheet with the data is called SheetName. Dim i as Long ComboBox1.Clear With Sheets("SheetName") For i = 1 to 65000 If .Cells(i,1).value = "" Then Exit For If .Cells(i,2).value = "B" Then ComboBox1.AddItem .Cells(i,1) End If Next End With