Makro ile istiyorsanız alttaki kodu bir modüle ekleyip çalıştırın.

    Dim son As Long, i As Long, k As Byte, bul As Range

    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

            Set bul = syfAnaSayfa.Range("A:A").Find(.Cells(i, 1).Value, , , 1)

            If Not bul Is Nothing Then

                For k = 2 To 18

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

                Next

            End If

        Next

        Application.ScreenUpdating = True

    End With

    Set syfteyit = Nothing

    Set syfAnaSayfa = Nothing

    Set bul = Nothing