Listview da Koşullu Biçimlendirme

[qiqirdeq]

Merhaba,

Aşağıda bulduğum kod ile belli şartlarda renklendirme yapıyorum ancak sadece A ve B sütününu yapıyor tüm sütunlara nasıl yayarım teşekkür ederim

Dim e As Long, tas As Long, renk
tas = Cells(Rows.Count, "A").End(xlUp).Row
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , Cells(1, "A").Value
ListView1.ColumnHeaders.Add , , Cells(1, "B").Value
If tas > 1 Then
For e = 2 To tas
If Cells(e, "A").Value = "Opsiyonlu" Then
renk = vbBlue
ElseIf Cells(e, "A").Value = "STOK" Then
renk = 346323
ElseIf Cells(e, "A").Value = "Müşterili" Then
renk = 32768
Else: renk = vbBlack

End If
ListView1.ListItems.Add , , Cells(e, "A").Value
ListView1.ListItems(e - 1).SubItems(1) = Cells(e, "B").Value
ListView1.ListItems.Item(e - 1).ForeColor = renk
ListView1.ListItems.Item(e - 1).ListSubItems(1).ForeColor = renk
Next
End If

 

[qiqirdeq]

sadece 2 sütün renklendiriyor yardım :S