Listbox or Combox help

Looking for a code to populate a list based on selection on another listbox

e.g, if user selects Month in listbox1, listbox2 should populate with - Jan, Feb, Mar etc

Run a for next loop to go through each row of data for your second data set checking if the selection of listbox1 matched the relevant column and add the data row by row.

EG listbox 1 = Month

data source for listbox 2 =

Type	Value
Month	Jan
Month	Mar
Month	May
Month	Sept
Month	Dec
Day	Mon
Day	Tue
Day	Thu
Day	Fri
Day	Sun

so the following code would fill the Listbox2;

Dim lngRow As Long

lngRow = 2

While Cells(lngRow, 1) <> ""
    If Cells(lngRow, 1) = ListBox1 Then Listbox2.AddItem Cells(lngRow, 2)
    lngRow = lngRow + 1
Wend

Originally Posted by Biplab1985

How to declare the data source? I tried using Format option to define the range but only the first Column populates

Thanks!

Not sure what you mean by Format option?

However, you need to make sure you have changed the listbox's column count property to the number of columns of data you have.

To add more than 1 column of data per my earlier example, use the Column() method;

Dim lngRow As Long

lngRow = 2

With Sheets("Sheet1")
    While .Cells(lngRow, 1) <> ""
        If .Cells(lngRow, 1) = ListBox1 Then
            ListBox2.AddItem .Cells(lngRow, 2)'add the first column
            'Column() starts at 0
            ListBox2.Column(1, ListBox1.ListCount - 1) = .Cells(lngRow, 2)' add the second column
            ListBox2.Column(2, ListBox1.ListCount - 1) = .Cells(lngRow, 2)'add the third column
        End If
        lngRow = lngRow + 1
    Wend
End With

How to declare the data source? I am not using userform