List Box Data

[max1565]

I have a listbox with 15 rows and ten columns of data. The only column visible is peoples names. When the user selects a name I would like for the following to happen. I would like for the information on the row selected to be entered in to sheet("data&quot ie:

value in column1 goes to sheet("data&quot.range(a1&quot
value in column1 goes to sheet("form&quot.range(b1&quot
value in column2 goes to sheet("data&quot.range(b1&quot
value in column3 goes to sheet("data&quot.range(c1&quot
and so on

is this possible?
Thanks

 

[max1565]

someone please let me know if this can be done

Thanks

 

[max1565]

Thanks, i finally figured it out.

 

[finny]

Hi Max1565,

Can you tell me how you figured this out? Also, how did you add multiple columns in the listbox? I have a similar situation where I want to allow the users to see account names, but have the account numbers hidden, but available for my use.

Thx in advance for any help you can give me.

joe

 

[max1565]

To set what columns are visible:

click on the listbox, and go to the column width in the properties. Set the width for width for the first column(when i made my table for loading I put the column I wanted to see when form was loaded in the first column)to what value it takes to show the column. In my case it was 100pt.

Enter values for all the columns. For any column that you don't want to see use 0pt.

Below is the code I used to for the form.


Private Sub CommandButton1_Click()
Unload UserForm2
UserForm2.Hide


''''Enter Listing Agent
Worksheets("TEMPDB&quot.Range("K3&quot.Value = ListBox1.List(ListBox1.ListIndex, 0)
Worksheets("form&quot.Range("d4&quot.Value = ListBox1.List(ListBox1.ListIndex, 0)

''''Enter Listing Agent ID
Worksheets("TEMPDB&quot.Range("E3&quot.Value = ListBox1.List(ListBox1.ListIndex, 1)

'''enter split percentage
Worksheets("FORM&quot.Range("E4&quot.Value = ListBox1.List(ListBox1.ListIndex, 2)
Worksheets("work&quot.Range("c40&quot.Value = ListBox1.List(ListBox1.ListIndex, 2)

'''enter TEAM INFORMATION
Worksheets("TEMPDB&quot.Range("AJ3&quot.Value = ListBox1.List(ListBox1.ListIndex, 3)
Load UserForm3
UserForm3.Show

End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
UserForm2.Hide
sheets("CONTROLS&quot.Select
Range("D12&quot.Select
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Click()

End Sub


Private Sub UserForm_Initialize()
sheets("work&quot.Select

ListBox1.ColumnCount = 3
ListBox1.RowSource = "a423"


End Sub

I hope this helps. Let me know if you have any questions

 

[max1565]

One thing i forgot. When you are entering the column widths in the properties, you separate the values with ;

Max