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]

Needs to be from column 9 in listbox

 

[Fluff]

If it's a single select listbox

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

 

[Darren Smith]

Listbox1 says Variable not defined??
Sorry still very green on VBA thanks for your help.

 

[My Aswer Is This]

Try this:

Private Sub CommandButton2_Click()
'Modified  11/25/2020  9:18:22 AM  EST
If ListBox1.ListIndex <> -1 Then TextBox1.Value = ListBox1.List(9)
End Sub

 

[Fluff]

Listbox1 says Variable not defined??

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

 

[Fluff]

@My Aswer Is This
Your code will return the 10th value from the 1st column in the listbox.

 

[My Aswer Is This]

Needs to be from column 9 in listbox

Are you saying you have a multicolumn listbox and you want the value in column 9
If so what value in column 9

 

[My Aswer Is This]

@My Aswer Is This
Your code will return the 10th value from the 1st column in the listbox.

Yes I know that. He said 9 so I gave him 9. I assumed he knew 9 would be 10

 

[Fluff]

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