[Yardım]  Listview De Koşula Bağlı Satırdaki Yazıları Renklendirme

UserForm ve üzerine eklenecek nesneler ile ilgili bilgileri bu alanda bulabilirsiniz.

Listview De Koşula Bağlı Satırdaki Yazıları Renklendirme

İleti#1)  ILHAREF » 08 Haz 2020 16:30

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ILHAREF
 
Kayıt: 05 Haz 2017 12:45
Meslek: Muhasebeci
Yaş: 49
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: rize / merkez

Cevap: Listview De Koşula Bağlı Satırdaki Yazıları Renklendi

İleti#2)  landscape » 10 Haz 2020 14:02

Kod: Tümünü seç
Sub LiSTE()
Dim x As Long
Dim stk As ListItem
Dim item As Integer
Dim i As Integer
Me.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

Next
For item = 1 To Me.lstKampanya.ListItems.Count
If Me.lstKampanya.ListItems(item).ListSubItems(7) = "Bitti" Then
For i = 1 To lstKampanya.ColumnHeaders.Count - 1
lstKampanya.ListItems(item).ListSubItems(i).ForeColor = &HFF&
lstKampanya.ListItems(item).ListSubItems(i).Bold = True
    Next i
    End If
'    For item = 1 To Me.lstKampanya.ListItems.Count
If Me.lstKampanya.ListItems(item).ListSubItems(7) = "DEVAM_EDİYOR" Then
For i = 1 To lstKampanya.ColumnHeaders.Count - 1
lstKampanya.ListItems(item).ListSubItems(i).ForeColor = &HFF0000
lstKampanya.ListItems(item).ListSubItems(i).Bold = True
    Next i
    End If
Next item
    lstKampanya.Refresh




End Sub




Merhaba, yukarıdaki kodlamayı kullanırsan işine yarayabilir.
Selametle.
Kullanıcı avatarı
landscape
Yeni Başlamış
 
Kayıt: 03 Arl 2014 13:29
Meslek: mEMUR
Yaş: 43
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın


Forum UserForm ve Diğer Nesneler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe