listviewe veri alma

[muratozmenler]

listviewe verileri nasıl aldırabiliriz.....

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Byte, lv As ListView, k As Long, x As Long
Set lv = ListView1
lv.View = lvwReport
lv.Gridlines = True
lv.FullRowSelect = True
lv.BackColor = vbYellow
For i = 1 To 13
    lv.ColumnHeaders.Add , , "BAŞLIK" & i
Next
For k = 7 To 24
    x = x + 1
    lv.ListItems.Add , , Cells(k, 1).Value
    lv.ListItems(x).Bold = True
    If x Mod 2 = 0 Then
        lv.ListItems(x).ForeColor = vbRed
        Else
        lv.ListItems(x).ForeColor = vbBlue
    End If
    For i = 2 To 13
        lv.ListItems(x).SubItems(i - 1) = Cells(k, i).Value
        lv.ListItems(x).ListSubItems(i - 1).Bold = True
        If x Mod 2 = 0 Then
            lv.ListItems(x).ListSubItems(i - 1).ForeColor = vbRed
            Else
            lv.ListItems(x).ListSubItems(i - 1).ForeColor = vbBlue
        End If
    Next i
Next k

End Sub

 

[muratozmenler]

Yardımınız için çok teşekkür ederim...

 

[Orion1]

Yardımınız için çok teşekkür ederim...

Rica ederim.