List box to text box

[Bigzippy]

I have current Code:
Private Sub ListBox1_Change()
TextBox1.Value = ListBox1.List(ListBox1.ListIndex)

End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "a10:c20"
End Sub

I can't get my Textbox to show all 3 columns in the listbox selection, any ideas?

also I am ultimately trying to enter a list from a range (into listbox1) and edit the choosen line in the text box.Then when ok is hit edit the worksheet in the right spot. Am I on the right track?

Thank You

 

[Colo]

Hi Bigzippy,

in that case, we have to specify the pvargColumn as follows.

Private Sub ListBox1_Change()
    With ListBox1
        TextBox1.Text = .List(.ListIndex, 0) & .List(.ListIndex, 1) & .List(.ListIndex, 2)
    End With
End Sub

 

[Juan Pablo González]

Altough what Colo gave you should work, I really think that you should look at the builtin option of Data | Form, or if you need a more versatile one, look at J-Walk's site (www.j-walk.com/ss), for his Data Form... because after the user edits the Textbox, taking that info back to the listobx (and the sheet) can be a real mess.

 

[Bigzippy]

Thank you for both of your suggestions!
Colo-your code worked great, but is there a way to format the columns and set the widths or should I use a combobox for editing?

 

[Bigzippy]

Or should I use an array to edit then update the data.

 

[Colo]

Thank you for both of your suggestions!
Colo-your code worked great, but is there a way to format the columns and set the widths or should I use a combobox for editing?

You can specify the width of the Listbox with ColumnWidth.