(05/10/2020, 21:51)enginbeyy yazdı: hocam asıl dosyam iş yerinde ona yarın uygulayacağım ama renklendirdikten sonra filitre yapıp tekrar filitreyi bozduğumda kasmıyacaksa ilk renklendirirken uzun sürmesi sorun değil

Teşekkürler.

Rica ederim,bence kasmaz.

Yapmak istediğiniz heralde şöyle;
A sütundakileri karşılaştırıyorsunuz.
Eğer d,ğer sayfada bulunuyorsa ve B,C.....gibi sütunlardaki veriler aynı değilse renkleniyor.

Bunun için döngü gerekiyordu öyle ayarladım.

---

Birde gif ekledim nasıl çalıştığını göstermek için.
Filtre yapma ile kodun alakası olmaz.Yani kod çalıştırıp renklendirince herşeyi yapabilirsiniz kasma olmadan.Sadece kodu çalıştırınca uzun sürebilir.

(05/10/2020, 21:59)feraz yazdı: Eğer d,ğer sayfada bulunuyorsa ve B,C.....gibi sütunlardaki veriler aynı değilse renkleniyor.

aynen öyle

Sanırım bu kod daha hızlı çalışıyor.
Her ikisinide deneyebilirsiniz hız olayı için.

Sub renklendir()



    Dim son As Long, i As Long, k As Byte, kacinci As Long

    Dim syfteyit As Worksheet

    Dim syfAnaSayfa As Worksheet

    

    Set syfteyit = ThisWorkbook.Sheets("Teyit")

    Set syfAnaSayfa = ThisWorkbook.Sheets("Anatablo")

    With syfteyit

        son = .Range("A" & Rows.Count).End(3).Row

        If son < 2 Then son = 2

        .Range("A2:R" & son).Interior.ColorIndex = xlNone

        Application.ScreenUpdating = False

        For i = 2 To son

            On Error GoTo var

            kacinci = WorksheetFunction.Match(.Cells(i, 1).Value, syfAnaSayfa.Range("A:A"), 0)

            For k = 2 To 18

                If .Cells(i, k).Value <> syfAnaSayfa.Cells(kacinci, k) Then .Cells(i, k).Interior.ColorIndex = 3

            Next

var:

        Next

        Application.ScreenUpdating = True

    End With

    Set syfteyit = Nothing

    Set syfAnaSayfa = Nothing



End Sub

Emeğinize sağlık.

Hocam
Asıl dosyaya ekleyince fotoğraftaki hatayı aldım.
[img][/img]
[img][/img]

Normalde çalışması gerekiyordu.
Hata oluncada atlaması gerekiyordu diper döngüye.

Sayfa adları aynımı koddakilerle?