listviewde renk

[teknikyapı]

Merhaba.Aşağıdaki kodlarda hücrenin başında (*) işareti olan verileri listview alırken renklendiriyor.Fakat kırmızı yazılı kod hatalı çalışıyor.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi çalışmalar.


With ListView1
For i = 2 To c
x = x + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(x).SubItems(1) = Cells(i + 1, 2)
.ListItems(x).SubItems(2) = Cells(i + 1, 3)
.ListItems(x).SubItems(3) = Cells(i + 1, 4)
.ListItems(x).SubItems(4) = Cells(i + 1, 5)
.ListItems(x).SubItems(5) = Cells(i + 1, 6)

'eğer hücre başında (*) işareti var ise satırı kırmızı renklendir
If Left(Cells(i + 1, 2), 1) = "*" Then
.ListItems(x).ListSubItems(1).ForeColor = vbRed' 2.kolon renkleniyor
.ListItems.Add.ForeColor = vbRed' bu kolon renklenmiyor

End If
Next
End With

 

[Zeki Gürsoy]

Set Litem = .ListItems.Add , , Cells(i + 1, 1)
Litem.Forecolor = vbRed

 

[teknikyapı]

sn anemos ilgilendiğiniz için saolun fakat Syntax error diye bir hata verdi.

 

[Zeki Gürsoy]

Parantezi unuttum.

[LEFT]Set Litem = .ListItems.Add (, , Cells(i + 1, 1))
Litem.Forecolor = vbRed

[/LEFT]

 

[teknikyapı]

Teşekkür ederim.İyi çalışmalar

 

[teknikyapı]

Sn anemos özür dilerim şimdi farkettim kod çalıştı ama farklı yerler renklendi.Yani yapmak istediğim 2.kolonda önünde * işareti bulunan veriyi renklendirirken bunun hemen solundaki(1.kolondaki) veriyi de renklendirmek.

 

[teknikyapı]

sevgili dostlar uzman arkadaşlarım başka bir fikri olan varmı acaba?

 

[teknikyapı]

Merhaba.Arkadaşlar maalesef hala bir çözüm bulamadım.Lütfen yardımlarınızı bekliyorum.

 

[cebir]

merhaba..
If Left(Cells(i + 1, 2), 1) = "*" Then
.ListItems(x).ListSubItems(1).ForeColor = vbRed'

.ListItems(x).ForeColor = vbRed



şeklinde deneyiniz.
kolay gelsin.

 

[teknikyapı]

sn cebir.Harika bir çözüm.Elinize sağlık.İyi çalışmalar