Trying to take data from a listbox to a textbox. Can somebody help with my code below.

[Darren Smith]

Sub ListBox1_Click()

Dim Listbox1 As ListBox
Dim Textbox1 As TextBox



If Listbox1.ListIndex <> -1 Then


.Textbox1 = Listbox1.List(Listbox1.ListIndex, 9)

End With

End If

End Sub

 

[My Aswer Is This]

From my understand you would have to refer to what column and what value in that column
This script would mean column 1 value 6 in that column

Private Sub CommandButton2_Click()
'Modified  11/25/2020  10:27:12 AM  EST
ListBox1.ColumnCount = 10
TextBox1.Value = ListBox1.List(5, 0)
End Sub

 

[Fluff]

When you get the error what gets highlighted in blue?

 

[Fluff]

From my understand you would have to refer to what column and what value in that column

Which is exactly what the OPs code is doing.

 

[Darren Smith]

The first line of code "listbox1"

 

[Fluff]

Is that code in the userform module?
If so it means that you don't have a ListBox called ListBox1

 

[Darren Smith]

Sorry now works as you say thankyou very much

 

[My Aswer Is This]

Sorry now works as you say thankyou very much

I'm just trying to learn something also. Can you show me what script worked for you.

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Darren Smith]

I'm just trying to learn something also. Can you show me what script worked for you.

Private Sub ListBox1_Click()

If ListBox1.ListIndex <> -1 Then

TextBox1 = ListBox1.List(ListBox1.ListIndex, 8)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 9)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 2)

End If

End Sub

 

[My Aswer Is This]

Private Sub ListBox1_Click()

If ListBox1.ListIndex <> -1 Then

TextBox1 = ListBox1.List(ListBox1.ListIndex, 8)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 9)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 2)

End If

End Sub

Ok I see now how it works. Thanks