• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Listview de koşula bağlı satırdaki yazıları renklendirme

Hüseyin

Yeni Üye
Katılım
16 Ağu 2018
Mesajlar
20
En iyi yanıt
0
Puanları
3
Yaş
52
Konum
Rize
Ad Soyad
Hüseyin Ferahlı
Office Vers.
office 2010 tr
Merhaba arkadaşlar,

Ekteki çalışmamda aşağı da yazmış olduğum kodda son sütün da bulunan DEVAM_EDİYOR olan satırlardaki yazılar mavi, Bitti yazan satırları da Kırmızı yapmak istiyorum ama bir türlü başaramadım yardımcı olursanız sevinirim. İyi çalışmalar. resim.jpg

Sub liste()
Dim x As Long
Dim stk As ListItem
lstKampanya.ListItems.Clear

For x = 11 To 1000000
If Sheets("Kampanya").Range("A" & x).Value = "" Then Exit For
Set stk = lstKampanya.ListItems.Add(Text:=Sheets("Kampanya").Range("A" & x).Value)

stk.SubItems(1) = Sheets("Kampanya").Range("B" & x).Value
stk.SubItems(2) = Sheets("Kampanya").Range("C" & x).Value
stk.SubItems(3) = Sheets("Kampanya").Range("D" & x).Value
stk.SubItems(4) = Sheets("Kampanya").Range("E" & x).Value
stk.SubItems(5) = Sheets("Kampanya").Range("F" & x).Value
stk.SubItems(6) = Sheets("Kampanya").Range("G" & x).Value
stk.SubItems(7) = Sheets("Kampanya").Range("H" & x).Value

' Renklendirme Bölümü
If Sheets("Kampanya").Range("H" & x).Value = "DEVAM_EDİYOR" Then
lstKampanya.ListItems(1).ForeColor = &HFF0000
For j = 1 To 7
lstKampanya.ListItems(1).ListSubItems(j).ForeColor = &HFF0000
Next j
End If
If Sheets("Kampanya").Range("H" & x).Value = "Bitti" Then
lstKampanya.ListItems(1).ForeColor = &HFF&



End If

Next
End Sub
 

Ekli dosyalar

  • örnek açlışma.xlsm
    130.8 KB · Görüntüleme: 8
Üst Alt