- Bir proje üzerinde çalışıyorum, UserForm üzerinde 1 adet ListView nesnesi var ve 10. kolon doluysa tüm satırı kırmızı ile renklendirmesini istiyorum.
- Bu konu hakkında yardımlarınızı bekliyorum.
- Kod: Tümünü seç
For a = 2 To Sayfa1.Range("A65536").End(3).Row
Set Ekle = .ListItems.Add(, , Sayfa1.Cells(a, 1))
Ekle.SubItems(1) = Sayfa1.Cells(a, 2)
Ekle.SubItems(2) = Sayfa1.Cells(a, 3)
Ekle.SubItems(3) = Sayfa1.Cells(a, 4)
Ekle.SubItems(4) = Sayfa1.Cells(a, 5)
Ekle.SubItems(5) = Sayfa1.Cells(a, 6)
Ekle.SubItems(6) = Sayfa1.Cells(a, 7)
Ekle.SubItems(7) = Sayfa1.Cells(a, 8)
Ekle.SubItems(8) = Sayfa1.Cells(a, 9)
Ekle.SubItems(9) = Sayfa1.Cells(a, 10)
Ekle.SubItems(10) = Sayfa1.Cells(a, 11)
If Dagitim_Liste.ListItems(i).SubItems(10) <> "" Then
Dagitim_Liste.ListItems(i).ListSubItems(10).ForeColor = vbRed