Sütun karşılaştırma da yaşadığım sorun.

[Carpintero]

Merhaba arkadaşlar iki ayrı veri blogunu beirli kriterler ile karşılaştırma yapıyorum.
Lakin veri kümesinin tekinde verilerin geliş sırası değiştiğinde hazırladığım kodlar
yanlış sonuç üretiyor. Siz değerli uzmanlarımızdan konuya farklı bir çözüm getirmenizi
ümit ediyorum.
Saygılarımla.

İndir örnek

Dosyayı indir örnek

dosya.co

 

[Ömer]

Merhaba,

Sorunuzu yanlış anlamış da olabilirim.

Sub deneme1()

    Dim si As Long, sx As Long, i As Long, c As Range, Adr As String

    si = Cells(Rows.Count, "E").End(3).Row
    sx = Cells(Rows.Count, "K").End(3).Row
    
    Range("G3:G" & Rows.Count).ClearContents
    Range("M3:M" & Rows.Count).ClearContents
        
    For Each c In Range("L3:L" & sx).SpecialCells(xlCellTypeConstants, 23)
        c.Offset(0, 1) = "Değil"
    Next c
    
    For i = 3 To si
        If Cells(i, "D") <> "" Then
            Cells(i, "G") = "Değil"
            Set c = Range("J2:J" & sx).Find(Cells(i, "D"), , xlValues, xlWhole)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    If Cells(c.Row, "L") = Cells(i, "F") And _
                        Cells(c.Row, "K") <> Cells(i, "E") Then
                        Cells(i, "G") = "Uygun"
                        Cells(c.Row, "M") = "Uygun"
                    End If
                    Set c = Range("J2:J" & sx).FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End If
    Next i
    
End Sub

 

[Carpintero]

Çok teşekkür ederim Ömer Bey sağ olun.
Bayramanız kutlu olsun.