[necatisimsek]

- Arkadaşlar merhaba;
- 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

[Orion1]

Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.

[necatisimsek]

Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.

- Olsun o da işimi görür.

[Orion1]

Örnek dosyanızı ekleyiniz.

[necatisimsek]

Örnek dosyanızı ekleyiniz.

- Örnek dosyada özel bilgiler mevcut (TC Kimlik No, Adres, İsim, Telefon Numarası vb.) yukarıda ListView içeriğini ekledim mümkünse oradan yardımcı olur musunuz?

[Ozan İLGÜN]

Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.

- Olsun o da işimi görür.

Kod: Tümünü seç

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(1).ListSubItems(i).ForeColor = vbBlue
    Next
   

    ListView1.Refresh


[necatisimsek]

Listviewde satırı renklendiremezsinzi.Ancak fontları renklendirebilirsiniz.

- Olsun o da işimi görür.

Kod: Tümünü seç

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(1).ListSubItems(i).ForeColor = vbBlue
    Next
   

    ListView1.Refresh


@Ozan bey öncelikle ilginize teşekkür ederim. Kod çalıştı fakat benim istediğim 10. sırada bulunan sütunun dolu olması durumunda fontların kırmızı olmasını istemiştim.

[Ozan İLGÜN]

Dosyanızı paylaşmadığınız için okadarını siz halledersiniz diye düşündüğüm için okadarını yapmıştım.
Kafamdan yazıyorum üç aşağı beş yukarı doğrudur ancak kontrol edip yanlışları düzeltirsiniz.

Kod: Tümünü seç

Dim item As Integer
Dim i As Integer
For item = 1 To ListView1.ListItems.Count
If ListView1.ListItems(item).SubItems(10).Value <> "" Then

For i = 1 To ListView1.ColumnHeaders.Count - 1
       ListView1.ListItems(item).ListSubItems(i).ForeColor = vbRed
    Next i
    End If
Next item
    ListView1.Refresh


[necatisimsek]

@Ozan kardeşim selamlar;

- Kodu bir kaç düzeltme ile çalıştırabildim. Emeğine sağlık.
- Belki başka birine de lazım olur diye burada da paylaşıyorum.

Kod: Tümünü seç

Dim item As Integer
Dim i As Integer
For item = 1 To Dagitim_Liste.ListItems.Count
If Dagitim_Liste.ListItems(item).ListSubItems(10) <> "" Then
For i = 1 To Dagitim_Liste.ColumnHeaders.Count - 1
Dagitim_Liste.ListItems(item).ListSubItems(i).ForeColor = &HC0&
Dagitim_Liste.ListItems(item).ListSubItems(i).Bold = True
    Next i
    End If
Next item
    Dagitim_Liste.Refresh
Next
End With

[Ozan İLGÜN]

Çözümü paylaştığınız için teşekkürler. İyi günler dilerim.