Çözüldü Veri Alma ListView

[sirkülasyon]

"Çalışan" Sayfasında
10. Satırdan itibaren B sütunundan AQ sütununa kadar olan verileri ListView2' ye almak için yardımcı olabilir misiniz?

 

[MGokboruAtan]

örnek dosyanız bulunmamaktadır

 

[sirkülasyon]

Dim s2 As Worksheet, ii As Long
Set s2 = Sheets("Çalışan")
ListView2.View = lvwReport
ListView2.Gridlines = True
ListView2.FullRowSelect = True

With ListView2
    For ii = 10 To s2.Cells(65536, "B").End(xlUp).row
        Dim listItem As listItem
        Set listItem = .ListItems.Add(, , s2.Cells(ii, "B").Value)
        listItem.SubItems(1) = s2.Cells(ii, "C").Value
        listItem.SubItems(2) = s2.Cells(ii, "D").Value
        listItem.SubItems(3) = s2.Cells(ii, "E").Value
        listItem.SubItems(4) = s2.Cells(ii, "F").Value
        listItem.SubItems(5) = s2.Cells(ii, "G").Value
        listItem.SubItems(6) = s2.Cells(ii, "H").Value
    Next ii
End With

Şekilde devam edeceğim yalnız b şekilde Runtime error 9 subscript out of range hatası veriyor

 

[Muzaffer Ali]

Merhaba.

    Dim s2 As Worksheet
    Dim Bak As Long
    Dim Lst As listItem
    Dim Sutun As Integer
   
           
    Set s2 = Sheets("Çalışan")
    ListView2.View = lvwReport
    ListView2.Gridlines = True
    ListView2.FullRowSelect = True

    With ListView2
        For Bak = 10 To s2.Cells(Rows.Count, "A").End(xlUp).Row
            Set Lst = .ListItems.Add(, , s2.Cells(Bak, "B").Value)
            For Sutun = 3 To 43
                Lst.ListSubItems.Add , , Cells(Bak, Sutun).Text
            Next
        Next Bak
    End With

 

[sirkülasyon]

Ustam Maalesef Olmadı. Dosya ekte.

 

[Muzaffer Ali]

Bu kodu deneyin.

Private Sub UserForm_Initialize()
 Dim s2 As Worksheet
    Dim Bak As Long
    Dim Lst As ListItem
    Dim Sutun As Integer
  
    For Sutun = 3 To 43
        ListView2.ColumnHeaders.Add
    Next
    Set s2 = Sheets("Çalışan")
    ListView2.View = lvwReport
    ListView2.Gridlines = True
    ListView2.FullRowSelect = True

    With ListView2
        For Bak = 10 To s2.Cells(Rows.Count, "B").End(xlUp).Row
            Set Lst = .ListItems.Add(, , s2.Cells(Bak, "B").Value)
            For Sutun = 3 To 43
                Lst.ListSubItems.Add , , Cells(Bak, Sutun).Text
            Next
        Next Bak
    End With
End Sub

 

[sirkülasyon]

Teşekkür ederim.
9. Satır başlıkları da döngü ile alınabilir mi? O kadar da önemli değil. Esas konu çözüme ulaştı. Ellerine sağlık

 

[Muzaffer Ali]

Private Sub UserForm_Initialize()
 Dim s2 As Worksheet
    Dim Bak As Long
    Dim Lst As ListItem
    Dim Sutun As Integer
 
    For Sutun = 3 To 43
        ListView2.ColumnHeaders.Add , , Cells(9, Sutun).Text
    Next
    Set s2 = Sheets("Çalışan")
    ListView2.View = lvwReport
    ListView2.Gridlines = True
    ListView2.FullRowSelect = True

    With ListView2
        For Bak = 10 To s2.Cells(Rows.Count, "B").End(xlUp).Row
            Set Lst = .ListItems.Add(, , s2.Cells(Bak, "B").Value)
            For Sutun = 3 To 43
                Lst.ListSubItems.Add , , Cells(Bak, Sutun).Text
            Next
        Next Bak
    End With
End Sub

 

[sirkülasyon]

Teşekkür ederim. Ellerine Sağlık