how to select listbox value in different cells

[VBABEGINER]

Hi All,

Thanks Expert, reading this query.

I am doing one R&D but i am not able to select a perticular value from the listbox.
From listbox, there are 2 items. if i select 1st value it goes on range c4 and if i select 2nd value i goes on c6 value.

Private Sub ListBox2_Click()
if listbox2.select= a then
Range("c4").select
ListBox2.Value = range("c4")
end if

if listbox2.select= b then
Range("c6").select
ListBox2.Value = range("c6")
end if
End Sub

Any expert, give the suggestion on the above?

 

[Sektor]

Try this.

Private Sub ListBox2_Click()
    Select Case ListBox2.ListIndex
        Case 0: Range("C4") = ListBox2.Value
        Case 1: Range("C6") = ListBox2.Value
    End If
End Sub

 

[VBABEGINER]

Hi,

Thank you for your valuable suggestion.

The code u had given me that is not workng.
Not happng any thng.

again i am tryng but, Require ur kind suggestion?
**************************************

ohh sorry.
its working but, both values i can see.

let me try some...i will definatly back to you.

 

[VBABEGINER]

No.
See, wht hapnd here that...i click on "a" that i can see in c4.
as soon as, i click on "b" c4 will clear and only c6 showng the value b.
Right..


ok...is this possble?

 

[VBABEGINER]

done....ok. Thank You Sektor Sir.
I have also stuck in my application.
Kindly provide ur valuable comments on that.
Thank you.
Really Thanks to Mr.Excel !