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?

 

[ping0775]

You need to help by supply more details.

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

 

[Micron]

Or one dbl click to copy all over?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim IsLoaded As Boolean
Dim frm As Object

For Each frm In VBA.UserForms
     If frm.Name = "UserForm1" Then
          IsLoaded = True
          Exit For
     End If
Next

If IsLoaded Then
     For i = 1 To 10
          UserForm1.Controls("Label" & i).Caption = Me.ListBox1.List(i - 1)
     Next
End If

End Sub

Change the variables (e.g. name of userform1) to your object names. Form name is case sensitive.

 

[ping0775]

Or one dbl click to copy all over?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim IsLoaded As Boolean
Dim frm As Object

For Each frm In VBA.UserForms
     If frm.Name = "UserForm1" Then
          IsLoaded = True
          Exit For
     End If
Next

If IsLoaded Then
     For i = 1 To 10
          UserForm1.Controls("Label" & i).Caption = Me.ListBox1.List(i - 1)
     Next
End If

End Sub

Change the variables (e.g. name of userform1) to your object names. Form name is case sensitive.

can you assist me? it still cant solve

 

[Micron]

I don't see any evidence of labels in that picture that are named ItemCode1, ItemCode2, ... ItemCode10.