Selecting data in ListBox

[donwb]

I have a 2 column ListBox containing 10 rows of data.
When the user clicks a row,
I want to allocate the data in the first column to one variable
and the data in the second column to a second variable.
I can get the column 1 data using :-
Variable1=UserForm1.ListBox1.Text
but how do I get the column 2 data?
donwb

 

[Dave Peterson]

Maybe something like:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Dim Col1Var As String
Dim Col2Var As String

With Me.ListBox1
If .ListIndex < 0 Then
'nothing selected, do nothing
Else
Col1Var = .List(.ListIndex, 0)
Col2Var = .List(.ListIndex, 1)
MsgBox Col1Var & vbLf & Col2Var
End If
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1
.MultiSelect = fmMultiSelectSingle
.ColumnCount = 2
.List = Worksheets("sheet1").Range("a1:B10").Value
End With
End Sub

 

[donwb]

Many thanks Dave.
What was throwing me was the old problem of
column 1 is actually column 0
donwb