hücre karşılaştırma yapan macro

[search77]

merhaba,

ekli örnek dosyamda hücreleri karşılaştıran bir macro hakkında yardımcı olabilir misiniz?

dosyada gerekli açıklamalarım mevcuttur.

yardım edecek arkadaşlara şimdiden çok çok teşekkürler.

saygılarımla.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız..

Sub AraştırKopyala()
Dim son As Long, Se As Worksheet, i As Long, j As Integer
 
Set Se = Sheets("EŞİT DEĞİL")
 
Application.ScreenUpdating = False
Sheets("DATA").Select
son = Cells(Rows.Count, "A").End(xlUp).Row
Range("M2:M65536").ClearContents
Se.Range("A2:M65536").ClearContents
 
For i = 2 To son
    For j = 1 To 6
        If Cells(i, j) <> Cells(i, j + 6) Then
            Cells(i, "M") = "Eşit Değil"
            Range("A" & i & ":M" & i).Copy Se.Range("A" & _
            Se.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            Exit For
        Else
            Cells(i, "M") = "Eşit"
        End If
    Next j
Next i
 
Application.ScreenUpdating = True
End Sub

.

 

[Huseyinkis]

Uzun yoldan oldu ama belki işine yarar

 

[search77]

Hüseyin ve Ömer bey harika olmuş, ellerinize sağlık.
Tşk ler.