Listview check box value sorting in textbox in ascending

[ping0775]

Private Sub UtilizeBtn_Click()
SalesReceiptPaidAmountForm.Show

Dim y As Integer
For y = 1 To 7
If Me.ListView1.ListItems.Checked = True Then
With SalesReceiptPaidAmountForm
.TextBox1.Text = Me.ListView1.ListItems.ListSubItems(1)
.TextBox2.Text = Me.ListView1.ListItems.ListSubItems(2)
.TextBox3.Text = Me.ListView1.ListItems.ListSubItems(3)
.TextBox4.Text = Me.ListView1.ListItems.ListSubItems(4)
.TextBox5.Text = Me.ListView1.ListItems.ListSubItems(5)
.TextBox6.Text = Me.ListView1.ListItems.ListSubItems(6)
.TextBox7.Text = Me.ListView1.ListItems.ListSubItems(7)
.TextBox8.Text = Me.ListView1.ListItems.ListSubItems(1)
.TextBox9.Text = Me.ListView1.ListItems.ListSubItems(2)
.TextBox10.Text = Me.ListView1.ListItems.ListSubItems(3)
.TextBox11.Text = Me.ListView1.ListItems.ListSubItems(4)
.TextBox12.Text = Me.ListView1.ListItems.ListSubItems(5)
.TextBox13.Text = Me.ListView1.ListItems.ListSubItems(6)
.TextBox14.Text = Me.ListView1.ListItems.ListSubItems(7)
MsgBox Me.ListView1.ListItems



End With
End If
Me.ListView1.ListItems.Checked = False
Next y
End Sub

I have a listview loading my invoice data,
i create a checkbox next to it.
when i tick the listview and click on the utilize button.
how to make it like in asceding appear in each different textbox1......textbox 49?
how to make like
textbox 1 -7 for value in checkbox 1
textbox 8-14 for value in checkbox 2
textbox 15-21 for value in checkbox 3
textbox 16-28 for value in checkbox 4 etc.....

plssss i been revolve this issue for dayssss

 

[Domenic]

Is the listview control and textboxes located within the same userform. If so, maybe...

    Dim li As ListItem
    Dim i As Long
    Dim j As Long
  
    With Me.ListView1
        For i = 1 To .ListItems.Count
            Set li = .ListItems(i)
            For j = 1 To li.ListSubItems.Count
                Me.Controls("TextBox" & i * 7 - 7 + j).Text = IIf(li.Checked, li.ListSubItems(j).Text, "")
            Next j
        Next i
    End With

Hope this helps!

 

[ping0775]

Is the listview control and textboxes located within the same userform. If so, maybe...

    Dim li As ListItem
    Dim i As Long
    Dim j As Long
 
    With Me.ListView1
        For i = 1 To .ListItems.Count
            Set li = .ListItems(i)
            For j = 1 To li.ListSubItems.Count
                Me.Controls("TextBox" & i * 7 - 7 + j).Text = IIf(li.Checked, li.ListSubItems(j).Text, "")
            Next j
        Next i
    End With

Hope this helps!

thank you for the assistant this way look much more easier.
i had fixed with offset listviewitem to excel sheet them from there extract.

 

[Domenic]

That's great, glad I could help.

Cheers!