excel vba

[nevilled]

Dear sir
I have made a list box in excel vba with 3 columns with data and have three Text boxes.
I want when I scrolling in the list box I want the record of the listbox on which the cursor is to be displayed in the text boxes.
Eg in the first row of list box the data in first column to come in first text box , the data of 2nd column should come 2nd text box and 3rd column in 3rd text box.
the records in the text boxes should keep on changing as I move the cursor up and down in the listbox.
Thanks in advance.
Neville

 

[MARK858]

Duplicate post of

http://www.mrexcel.com/forum/excel-questions/977838-excel-visual-basic-applications.html#post4692076

 

[HotRhodium]

So you will need to modify this and you must click on a line but is what you are looking for

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Dim ListIndexLong As Long
 ListIndexLong = Me.ListBox1.ListIndex
 If ListIndexLong >= 0 Then
  Me.TextBox1 = Me.ListBox1.Column(0, ListIndexLong)
  Me.TextBox2 = Me.ListBox1.Column(1, ListIndexLong)
  Me.TextBox3 = Me.ListBox1.Column(2, ListIndexLong)
 Else
  Me.TextBox1 = ""
  Me.TextBox2 = ""
  Me.TextBox3 = ""
 End If
End Sub