Listbox - insert values into multi columns

[dave8]

I have a listbox defined as fmListStyleOption, fmMultiSelect with 2 columns. I want to insert two columns of data into the listbox. How to get this to work?

For r = 1 To 10
       If Sheets("Sheet1").Range("B" & r).Value = ComboBox1.Value Then
          ListBox2.AddItem Sheets("Sheet1").Range("B" & r).Value
          ListBox2.List(2, r) = Sheets("Sheet1").Range("C" & r).Value
       End If
     Next

 

[AlphaFrog]

Try something like this...

    [color=darkblue]For[/color] r = 1 [color=darkblue]To[/color] 10
        [color=darkblue]If[/color] Sheets("Sheet1").Range("B" & r).Value = ComboBox1.Value [color=darkblue]Then[/color]
            ListBox2.AddItem Sheets("Sheet1").Range("B" & r).Value
            ListBox2.List(ListBox2.ListCount - 1, 1) = Sheets("Sheet1").Range("C" & r).Value
         [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color]

 

[dave8]

This is exactly what I want. Thank you!