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

 

[Darren Smith]

What is the name of the listbox?
Also is it on a sheet or userform?

What is the name of the listbox? Listbox1
Also is it on a sheet or userform? On a user form which is called "Body_And_Vehicle_Type"

 

[Fluff]

In that case you you copy paste my code, or try adapting your code?

 

[My Aswer Is This]

The OP asked for the 9th column & if you look at the OP's code that is what he/she is trying to do.

The original post did not say column 9. He added that information in post 2 after I had written my code

 

[Fluff]

He added that over 15 minutes before you posted & there is still the matter of the original code which (IMO) makes perfectly clear that he is trying to get the value from column index 9

 

[Darren Smith]

In that case you you copy paste my code, or try adapting your code?
This is what i did but it won`t work. Now says "wrong number of arguments or invalid property assignment" Code below

Private Sub Listbox1_Click()

Dim ListBox1 As ListBox
Dim TextBox1 As Textbox

If ListBox1.ListIndex <> -1 Then

TextBox1 = ListBox1.List(ListBox1.ListIndex, 9)

End If

End Sub

 

[Fluff]

Delete that code & replace it with the code I suggested.
Also how many columns do you have in the listbox?

 

[Darren Smith]

I have tried this

The listbox1 first line says error "Variable not defined"

Sub ListBox1_Click()
If ListBox1.ListIndex <> -1 Then
TextBox1 = ListBox1.List(ListBox1.ListIndex, 9)
End If
End Sub

Columns in the listbox is 10

 

[Fluff]

Is your textbox called TextBox1

 

[RoryA]

FYI, if you want column 9, it will be ListBox1.List(ListBox1.ListIndex, 8) as and when you figure out the other issues.

 

[Darren Smith]

Is your textbox called TextBox1

Yes