2 Excel Sayfasını Karşılaştırmak

[odinnn]

Arkadaşlar merhaba. Bana aynı konuyla ilgili 2 farklı kaynaktan farklı excel dosyalarıyla 2 ayrı liste geliyor. Ben bunları tek bir excel çalışma kitabına ayrı sayfalara yapıştırıp karşılaştırmak istiyorum. Karşılaştırma sırasında farklı değerler varsa farklı hücrelerin kırmızıya boyanmasını istiiyorum. Şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodları Modüle yapıştırarak dener misiniz?
Kodlar A sütununun aynı olduğu varsayılarak, İrsaliye sayfasındaki farklı verileri boyar.

Sub karşılaştır()
Set s1 = Sheets("İrsaliye")
Set s2 = Sheets("Ödeme Emri")
For i = 2 To s1.Cells(Rows.Count, 1).End(xlUp).Row
    If s1.Cells(i, 2).Value <> s2.Cells(i, 2).Value Then s1.Cells(i, 2).Interior.ColorIndex = 3
    If s1.Cells(i, 3).Value <> s2.Cells(i, 3).Value Then s1.Cells(i, 3).Interior.ColorIndex = 3
Next
End Sub

 

[odinnn]

Eyvallah. İşe yaradı. Çok sağolun.