Satırları karşılaştır aynı olanı boya.

[simetri.]

Merhabalar değerli arkadaşlar.

Aşağıda ki gibi iki farklı sütundaki verileri satır satır
karşılaştırıp aynı satırdaki verileri kırmızı ile renklendirecek
koda ihtiyacım var. Değerli yardımlarınızı bekliyorum.

elma-------------yafa
mandalina--------ayva
ayva------------ portakal
greyfurt---------greyfurt
yafa-------------elma
portakal----------mandalina

 

[BAZGİRET]

Merhaba
Eki inceleyin,

 

[simetri.]

Alakanız için çok teşekkür ederim sayın BAZGİRET
Makro ile yapabilme şansımız varmı acaba?

 

[yerbakili]

Merhaba,

Sayfanıza bir buton ekleyerek dener misiniz?

Private Sub CommandButton1_Click()
For i = 3 To Range("D65536").End(3).Row 'veriler 3. satırdan itibaren başladığı için döngü 3ten başlatıldı
If Cells(i, "D").Value = Cells(i, "F").Value Then Range("D" & i & ":" & "F" & i).Font.Color = vbRed
Next
End Sub

 

[simetri.]

Güzel kod olmuş. Çok teşekkür ederim.
Ellerinize sağlık sayın yerbakili.

 

[yerbakili]

Rica ederim. İyi günler.

 

[leonadies]

Merhaba,

Sayfanıza bir buton ekleyerek dener misiniz?

Private Sub CommandButton1_Click()
For i = 3 To Range("D65536").End(3).Row 'veriler 3. satırdan itibaren başladığı için döngü 3ten başlatıldı
If Cells(i, "D").Value = Cells(i, "F").Value Then Range("D" & i & ":" & "F" & i).Font.Color = vbRed
Next
End Sub

@yerbakili üstadım.Bu kodu farklı iki sayfa için nasıl revize ederiz? D sütunu SAYFA 1 de, F sütunu SAYFA 2 De