Formülle yapılan karşılaştırmayı makro ile yapma

[Erdinç FIRTINA]

Değerli forum üyeleri,
Ekte sunulan dosyadaki sütunlar arası formülle yapılan karşılaştırma makro ile nasıl yapılabilir ???
Yardımlarınız için şimdiden teşekkürler !!!

=EĞER(B2=X2;"aynıdır";"farklıdır") =EĞER(C2=Y2;"aynıdır";"farklıdır") =EĞER(D2=Z2;"aynıdır";"farklıdır") =EĞER(E2=AA2;"aynıdır";"farklıdır")


=EĞER(B3=X3;"aynıdır";"farklıdır") =EĞER(C3=Y3;"aynıdır";"farklıdır") =EĞER(D3=Z3;"aynıdır";"farklıdır") =EĞER(E3=AA3;"aynıdır";"farklıdır")

ve bu şekilde satırlar aşağıya doğru gidiyor

 

[ExcelF1]

Kodlar, ekli dosyanıza göre uyarlanmıştır. Asıl dosyanızdaki farklılıklar için gerekli düzeltmeleri yapınız.

Sub Düğme1_Tıklat()
For a = 1 To 6
For b = 1 To 4
If Cells(b + 1, a + 1) = Cells(b + 1, a + 23) Then
Cells(b + 1, a + 12) = "aynıdır"
Else
Cells(b + 1, a + 12) = "farklıdır"
End If
Next b
Next a
End Sub