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
