How to use listbox double click in order to put the value into 10 different labels in form?

[ping0775]

How to use listbox double click in order to put the value into 10 different labels in form?
i been trying so hard
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

IssueDOCumSalesInvoiceForm.ItemCode1.Caption = Me.ListBox1.Text
IssueDOCumSalesInvoiceForm.ItemCode2.Caption
IssueDOCumSalesInvoiceForm.ItemCode3.Caption..to 10 etc

i should transfer the data to sheet first by using
IRow = Sheet6.Range("a" & Rows.Count).End(xlUp).Row + 1 ?
then from there put cell value to label?
or any alternative way to solve?

 

[davesexcel]

Would you not use the same line as the first label? just change the label number?

 

[ping0775]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
IssueDOCumSalesInvoiceForm.ItemCode1.Caption = Me.ListBox1.Text
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
IssueDOCumSalesInvoiceForm.ItemCode2.Caption = Me.ListBox1.Text
End Sub
do you mean like this?
is doesnt work
by the way the listbox is in a form ,gonna transfer to another form.

 

[Micron]

Hard to know what to suggest when you don't say what the problem is. If the code is on the same form you should be able to get by with
Me.ItemCode1.Caption = Me.Listbox1
I would probably use a loop rather than code 10 similar lines, assuming there are 10 labels whose name ends in numbers from 1 to 10.
I tested and it works for me.

 

[ping0775]

Hard to know what to suggest when you don't say what the problem is. If the code is on the same form you should be able to get by with
Me.ItemCode1.Caption = Me.Listbox1
I would probably use a loop rather than code 10 similar lines, assuming there are 10 labels whose name ends in numbers from 1 to 10

Yea correct i need to loop from 1 listbox to 10 different labels is 2 different forms by double click, it will in order add up to label1 to label 10

 

[davesexcel]

I was leading more to

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[QUOTE="ping0775, post: 5916125, member: 495700"]
IssueDOCumSalesInvoiceForm.ItemCode1.Caption = Me.ListBox1.Text
IssueDOCumSalesInvoiceForm.ItemCode2.Caption = Me.ListBox1.Text
IssueDOCumSalesInvoiceForm.ItemCode3.Caption = Me.ListBox1.Text
'etc'
End Sub
[/QUOTE]

 

[ping0775]

I was more leading to

i need one double click to one labels. mean 10 different caption to 10 labels per double click. that code only valid if i want 1-10 labels same caption.

 

[Micron]

So you want each one of 10 list items to go into a different label caption? There are and will only ever be 10 listbox items?

 

[davesexcel]

You need to help by supply more details.

 

[ping0775]

So you want each one of 10 list items to go into a different label caption? There are and will only ever be 10 listbox items?

Yea correct, ist possible?
I have 2 forms
Form A
this form contain ten lables.
Form B
this form contain one listbox loading the productlist.

one i double click the listbox in Form B
the item will be show into Form A Label box in order mode
one double click , the clicked item will be shown in Label1
another double, the second clicked item will be shown in Label2
and so on to labels 10