Soru şerhe bağlı sütun renklendirme hatası

[sirkülasyon]

Dim s1 As Worksheet, a As Long
Set s1 = Sheets("Ceza Takip")
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True

With ListView1.ColumnHeaders

    .Add , , s1.Range("B1").Value, Range("B1").Width
    .Add , , s1.Range("C1").Value, Range("C1").Width
    .Add , , s1.Range("D1").Value, Range("D1").Width
    .Add , , s1.Range("E1").Value, Range("E1").Width
    .Add , , s1.Range("F1").Value, Range("F1").Width
    .Add , , s1.Range("G1").Value, Range("G1").Width
    .Add , , s1.Range("H1").Value, Range("H1").Width
    .Add , , s1.Range("I1").Value, Range("I1").Width
    .Add , , s1.Range("J1").Value, Range("J1").Width
    .Add , , s1.Range("K1").Value, Range("K1").Width
    End With
For a = 2 To s1.Cells(65536, "B").End(xlUp).Row
    With ListView1
        .ListItems.Add , , s1.Cells(a, "B").Value
        .ListItems(a - 1).SubItems(1) = s1.Cells(a, "C").Value
        .ListItems(a - 1).SubItems(2) = s1.Cells(a, "D").Value
        .ListItems(a - 1).SubItems(3) = s1.Cells(a, "E").Value
        .ListItems(a - 1).SubItems(4) = s1.Cells(a, "F").Value
        .ListItems(a - 1).SubItems(5) = Format(s1.Cells(a, "G").Value, "#,##0.00")
        .ListItems(a - 1).SubItems(6) = s1.Cells(a, "H").Value
        .ListItems(a - 1).SubItems(7) = s1.Cells(a, "I").Value
        .ListItems(a - 1).SubItems(8) = s1.Cells(a, "J").Value
        .ListItems(a - 1).SubItems(9) = Format(s1.Cells(a, "K").Value, "#,##0.00")

        If s1.Cells(a, 9).Value = "ÖDENDİ" Then
        .ListItems(a - 1).SubItems(7).ForeColor = vbRed
        End If
     End With
Next a

If s1.Cells(a, 9).Value = "ÖDENDİ" Then
.ListItems(a - 1).SubItems(7).ForeColor = vbRed
End If
kısmında hata alıyorum sürekli.
Sayfanın 9.sütununda "ÖDENDİ" yazıyor ise Listview' in 7. Sütununda "ÖDENDİ" yazan satır renklensin

Rica etsem yardımcı olabilir misiniz?

 

[Ziynettin]

.ListItems(a - 1).SubItems(7).ForeColor = vbRed

yerine

.ListItems(a - 1).ListSubItems(7).ForeColor = vbRed

deneyiniz.

 

[sirkülasyon]

Teşekkürler Ziynettin Bey