Gelişmiş koşullu biçimlendirme

[salcasel]

Arkadaşlar merhabalar,

Elimde 2000 satırlı bir liste var. Ben burada FilmID si aynı olan satırları renklendirmek istiyorum. Ancak ID 1 olanlar mavi iken 2 olan beyaz, 3 olan tekrar mavi iken 4 olan tekrar beyaz olmalı. Excel tablo biçimi benzeri. Ancak işin içinden çıkamadım. Yardımlarınız için şimdiden teşekkürler.

 

[Korhan Ayhan]

Verilerinizin 2. satırdan başladığını varsaydım.

Aşağıdaki kod A-K sütun aralığını A sütunundaki ID numaralarını kontrol ederek renklendirir.

Sub Renklendir()
    Son = Cells(Rows.Count, 1).End(3).Row
    Renk = 15773696
    Range("A:K").Interior.ColorIndex = xlNone
    
    For X = 2 To Son
        For Y = X + 1 To 1000
            If Cells(X, 1) = Cells(Y, 1) Then
                Cells(X, 1).Resize(1, 11).Interior.Color = Renk
                Cells(Y, 1).Resize(1, 11).Interior.Color = Renk
            Else
                Cells(X, 1).Resize(1, 11).Interior.Color = Renk
                If Renk = -4142 Then
                    Renk = 15773696
                Else
                    Renk = -4142
                End If
                X = Y - 1
                Exit For
            End If
        Next
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[salcasel]

Çok teşekkür ediyorum. Kendi tabloma göre uyguladım, istediğim gibi oldu.