(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.

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

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