Belli bir hücre aralığını listviewde görüntüleme

[feryat]

Listview kullanımı daha önce defalarca sorulmuş ama verilen cevaplardaki uygulamalar daha çok döngü ile. Ben a10:e30 hücre aralığını listviewde görüntülemek istiyorum. Birçok örneğe baktım. Uyarlamaya çalıştım ama olmadı. Bir türlü verileri görüntüleyemedim. Lütfen yardım.

 

[vardar07]

Listview de RowSource özelliği olmadığı için döngü ile verileri alabilirsiniz.

Private Sub UserForm_Initialize()
With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .ColumnHeaders.Clear
        .ListItems.Clear
              For i = 1 To 5 '[COLOR="Red"]Listview sütun başlık döngüsü[/COLOR]
                  .ColumnHeaders.Add , , Sayfa1.Cells([COLOR="red"][B]1[/B][/COLOR], i).Value, 50 ' [COLOR="red"]Buradaki 1 başlıkların satır numarasıdır. [/COLOR]               
              Next i        
        For a = 10 To 30 '[COLOR="red"]Alınacak satırlar için döngü[/COLOR]
           
            .ListItems.Add , , Sayfa1.Cells(a, 1)                
                For b = 1 To 5 '[COLOR="red"]Alınacak sütun döngüsü [/COLOR]               
                    .ListItems.Item(.ListItems.Count).ListSubItems.Add , , Sayfa1.Cells(a, b)
                Next b
        Next a
    End With
End Sub