Sayfaları karşılaştırma

[acar6783]

Hayırlı akşamlar,

Aşağıdaki kodları iki sayfa arasındaki verilerden birinde olup diğerinde olmayanları belirtmek için oluşturdum fakat uzun satırlı verileride işlem biraz zaman alıyor.
Bu işlemi hızlandırma adına ve ek olarak;
iki sayfa için de birinde olup diğerinde olmayanların sayılarını nasılelde edebilirim?

Sub renklendir()
Set ft = Sheets("FaturaTakip")
     Set esk = Sheets("EskiVeri")
   Application.Calculation = xlCalculationManual
   Application.ScreenUpdating = False
   For e = 2 To esk.Cells(Rows.Count, 1).End(3).Row
   For f = 2 To ft.Cells(Rows.Count, 1).End(3).Row
   
   If ft.Cells(f, "C") = esk.Cells(e, "C") And ft.Cells(f, "D") = esk.Cells(e, "D") Then
   
   ft.Range("A" & f & ":I" & f).Interior.Color = vbYellow
   
   End If
     Next
   Next
   
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
   
   
   End Sub

 

[acar6783]

Kodları eğersay kodu ile tek koşula düşürerek yaptım hızlandırmış oldum.
Farklı önerileri değerlendirebilirim..

Saygılarımla