Listbox values to populate textboxes?

[PATSYS]

Hi all,

I have a 3-column listbox in my useform. The multiselect is set to SINGLE.

I also have 3 textboxes in the same userform.

Is there a way that when user click an item in the listbox, that the value in the 1st column populates textbox1, 2nd column to textbox2 and the 3rd column to textbox3?

Thanks

 

[Bill Rockenbach]

Private Sub ListBox1_Click()
TextBox1 = ListBox1.Column(0)
TextBox2 = ListBox1.Column(1)
TextBox3 = ListBox1.Column(2)
End Sub

 

[PATSYS]

Hey Bill,

Thanks a lot.

I sort of figured out a way to deal with it:

With Listbox1
TextBox1.Text = .List(.ListIndex, 0)
TextBox2.Text = .List(.ListIndex, 1)
TextBox3.Text = .List(.ListIndex, 2)
End with

I just checked this thread now and your suggestion is more efficient and hence I will adopt.

Cheers.