Soru Aynı isim var ise renklendir

[sirkülasyon]

Dim m As Integer
    With Me.ListView1
        For m = 4 To .ListItems.Count
            If Sheets("Bordro").Cells(m, "D").Value <> "" Then
                .ListItems(m).ForeColor = vbRed
            End If
        Next m
    End With

Bordro sayfası d sütununda olan veri Listview1' in 1. sütununda ki satırlarda var ise renklenmesini istiyorum.
İnternette bulduğum bu kod işlemi farklı yapıyor. Nasıl bir düzenleme yapabilirim

 

[thegalatasaray]

ListView1’in 1. sütunundaki her satır için, Bordro sayfasının D sütununda eşleşen bir veri varsa, o satırın rengini değiştirmek istediğinizi anlıyorum. İşte bu işlemi gerçekleştirecek VBA kodunun bir örneği:


Dim m As Integer
Dim listItem As ListItem
With Sheets("Bordro")
For m = 1 To .Cells(.Rows.Count, "D").End(xlUp).Row
Set listItem = Me.ListView1.FindItem(.Cells(m, "D").Value, , 1)
If Not listItem Is Nothing Then
listItem.ForeColor = vbRed
End If
Next m
End With

Bu kod, Bordro sayfasının D sütunundaki her hücre için ListView1’de eşleşen bir öğe arar. Eşleşme bulunursa, o öğenin yazı rengini kırmızıya çevirir. FindItem metodu, belirtilen sütunda arama yapar ve eşleşen ilk öğeyi döndürür. Eşleşme bulunamazsa, listItem nesnesi Nothing olarak kalır ve renk değişikliği yapılmaz. Kodunuzun ihtiyaçlarınıza uygun çalıştığından emin olmak için, lütfen kodu dikkatlice inceleyin ve gerektiğinde uygun şekilde ayarlayın.

 

[sirkülasyon]

Maalesef vba kodu işlemi gerçekleştirmedi