Soru Satırları gösterme

[sirkülasyon]

With ListView3
    For i = 1 To Sheets("Maliyet").Range("A2").End(3).Row
    X = X + 1
            .ListItems.Add , , Sheets("Maliyet").Cells(i + 1, 1)
            .ListItems(X).SubItems(1) = Sheets("Maliyet").Cells(i + 1, 2)
            .ListItems(X).SubItems(2) = Sheets("Maliyet").Cells(i + 1, 3)
            .ListItems(X).SubItems(3) = Sheets("Maliyet").Cells(i + 1, 4)
            .ListItems(X).SubItems(4) = Sheets("Maliyet").Cells(i + 1, 5)
            .ListItems(X).SubItems(5) = Sheets("Maliyet").Cells(i + 1, 6)
            .ListItems(X).SubItems(6) = Sheets("Maliyet").Cells(i + 1, 7)
            .ListItems(X).SubItems(7) = Sheets("Maliyet").Cells(i + 1, 8)
            .ListItems(X).SubItems(8) = Sheets("Maliyet").Cells(i + 1, 9)
            .ListItems(X).SubItems(9) = Sheets("Maliyet").Cells(i + 1, 10)
            .ListItems(X).SubItems(10) = Sheets("Maliyet").Cells(i + 1, 11)
            .ListItems(X).SubItems(11) = Sheets("Maliyet").Cells(i + 1, 12)
            .ListItems(X).SubItems(12) = Sheets("Maliyet").Cells(i + 1, 13)
            .ListItems(X).SubItems(13) = Sheets("Maliyet").Cells(i + 1, 14)
            .ListItems(X).SubItems(14) = Sheets("Maliyet").Cells(i + 1, 15)
            .ListItems(X).SubItems(15) = Sheets("Maliyet").Cells(i + 1, 16)
            .ListItems(X).SubItems(16) = Sheets("Maliyet").Cells(i + 1, 17)
            .ListItems(X).SubItems(17) = Sheets("Maliyet").Cells(i + 1, 18)
            .ListItems(X).SubItems(18) = Sheets("Maliyet").Cells(i + 1, 19)
            .ListItems(X).SubItems(19) = Sheets("Maliyet").Cells(i + 1, 20)
            .ListItems(X).SubItems(20) = Sheets("Maliyet").Cells(i + 1, 21)
            .ListItems(X).SubItems(21) = Sheets("Maliyet").Cells(i + 1, 22)
            .ListItems(X).SubItems(22) = Sheets("Maliyet").Cells(i + 1, 23)
    Next
End With

yukarıdaki kod ile Maliyet Sayfasında sadece 2. satırı listview' e alabiliyorum. Veri girildikçe veri girilen satırları Listview' de gösterilmesi için nasıl bir düzenleme yapabilirim?

 

[sirkülasyon]

ListView3.ListItems.Clear
For i = 2 To s1son
    Set Liste = ListView3.ListItems.Add(, , s1.Cells(i, 1).Value)
    For lsut = 1 To 23: Liste.SubItems(lsut) = s1.Cells(i, lsut + 1).Text: Next
Next i: Set Liste = Nothing

kodu ile sıkıntımı giderdim. İlgilenen herkese teşekkür ederim.