MrExcel Publishing
Your One Stop for Excel Tips & Solutions

need help with this piece of code for a list box


Posted by steven scaife on August 23, 2001 8:30 AM

That is the code i am using below. The problem that i am having with it is that when the line in the list box is selected it shows a name, a price and a code. when the button is pressed to place the line into the worksheet only the name is placed into the active cell. I also need the next two cells to be populated with the code and price. any ideas would be appreciated.

With UserForm1.ListBox1
selectedtext = .List(.ListIndex)
End With

' Display the selected value in a message box.
ActiveCell.Value = selectedtext

cheers


Posted by Damon Ostrander on August 23, 2001 3:06 PM

Hi Steven,

I assume that your listbox has 3 columns. If so, the following code should work:

With UserForm1.ListBox1
selectedtext = .List(.ListIndex,0)
pricetext = .List(.ListIndex,1)
codetext = .List(.ListIndex,2)
End With

' Display the selected value in a message box.
' Selection is the selected cell
Selection.Value = selectedtext
Selection.Offset(0,1).Value = pricetext
Selection.Offset(0,2).Value = codetext

Damon

Posted by steven scaife on August 24, 2001 1:43 AM

cheers, sorted it

Nice one it works sound now