Dynamic Multi Column ListBox

[Guest]

I don't know if this is possible, but I hope some can help.

I want to create a "Dynamic Multi Column ListBox" that consits of 2 columns
and then only returns the value in the 1st column. Example:

A1 = 1 - B1 = One
A2 = 2 - B2 = Two
A3 = 3 - B3 = Three

Dynamic ListBox =

1 One
2 Two
3 Three

If the user selects "2 Two" it returns the value of 2 to the appropriate cell.

As always, Any helps is truly appreciated.

 

[Charles Harmon]

Hi,

Something like this may help.
You need to set the listbox property column count to 2 and column width to
49.95 pt;0.25 pt.

Private Sub ListBox1_Click()
For k = 0 To UserForm1.ListBox1.ListCount
If UserForm1.ListBox1.Selected(k) Then
Range("C1").Value = UserForm1.ListBox1.List(k) &
UserForm1.ListBox1.List(k, 1)
End If
Next
End Sub

Charles

 

[Guest]

Hi,

Something like this may help.
You need to set the listbox property column count to 2 and column width to
49.95 pt;0.25 pt.

Private Sub ListBox1_Click()
For k = 0 To UserForm1.ListBox1.ListCount
If UserForm1.ListBox1.Selected(k) Then
Range("C1").Value = UserForm1.ListBox1.List(k) &
UserForm1.ListBox1.List(k, 1)
End If
Next
End Sub

Charles

 

[Charles Harmon]

Yes,
Just change this :
Range("C1").Value = UserForm1.ListBox1.List(k) & UserForm1.ListBox1.List(k,
1)
To:
Range("C1").Value = UserForm1.ListBox1.List(k)

Charles

 

[Guest]

Yes,
Just change this :
Range("C1").Value = UserForm1.ListBox1.List(k) & UserForm1.ListBox1.List(k,
1)
To:
Range("C1").Value = UserForm1.ListBox1.List(k)

Charles


Charles:

PERFECT! Thanks for your help.

Ronbo