select mulitiple columns and items from a listbox

[Guest]

Hi:

The code below works for returning selected items
in a multiple select ListBox.

What I’m trying to do (without much success) is modify the
code to select multiple items and multiple columns.

Any help or examples will be greatly appreciated.

Private Sub CommandButton1_Click()

For x = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(x) = True Then
ActiveCell.Value = UserForm2.ListBox1.List(x)

End If
Next x

End Sub


Thanks TK

 

[Tom Ogilvy]

You can't select individual columns

Private Sub CommandButton1_Click()
Dim x as Long

For x = 0 To ListBox1.ListCount - 1
if x mod 2 = 0 then
ListBox1.Selected(x) = True
end if
Next x

End Sub

selects every other row. The multiselect property should be set to true.