Solved: Listbox selection

[darkrider]

Hello to everyone,

i have 6 option buttons and when i select one them option buttons i get details to appear from my worksheet on to a list box.

what i cant do is when i click on a text in the listbox then i want it to output another part which is in my worksheet.

how can i do this

[lucas]

Private Sub ListBox1_Click()
Range("F9").Value = ListBox1.Value
End Sub

[darkrider]

Lucas, in listbox1 i have description of a project then when i click on that project then i would like it to show me the price in textbox1, and the price should be retrieve from my worksheet

[lucas]

could you post a small sample of your file?
how are you populating your listbox? Can the price be in column 2 of the listbox....??? questions and more questions.

[darkrider]

could you post a small sample of your file?
how are you populating your listbox? Can the price be in column 2 of the listbox....??? questions and more questions.

here is s sample whiic is on USERFORM1

[lucas]

I added this listbox click code to userform1:
Private Sub ListBox1_Click()
Dim c
With ActiveSheet.Range("A:A")
Set c = .Find(ListBox1, LookIn:=xlValues)
If Not c Is Nothing Then
TextBox1 = c.Offset(0, 1).Text
End If
End With
End Sub

I dimmed c as a variant here, maybe someone will help me with the correct variant type....???

[darkrider]

Lucas, if i want to get the mileage to appear then would i just addthis coding to it.


dim b
Set b = .Find(ListBox1, LookIn:=xlValues)

If Not b Is Nothing Then
TextBox2 = b.Offset(0, 2).Text

[lucas]

No, it will use the same reference from the listbox. You just offset 1 instead of 2..
Private Sub ListBox1_Click()
Dim c
With ActiveSheet.Range("A:A")
Set c = .Find(ListBox1, LookIn:=xlValues)
If Not c Is Nothing Then
TextBox1 = c.Offset(0, 2).Text
TextBox2 = c.Offset(0, 1).Text
End If
End With
End Sub

[darkrider]

In fact i got it to work.
i just added this coding and now it works great thanks.

TextBox2 = c.Offset(, 1).Text

THANKS alot LUCAS

[lucas]

Your welcome.
Instead of a textbox I would use a label caption to return the values....looks nicer...see attached.
You can remove the text from label 5 and 6 if you want to leave them blank until you make a selection...

[lucas]

Be sure to mark your thread solved using the thread tools at the top of the page...