çiftli sütun karşılaştır vba

[Carpintero]

Merhaba arkadaşlar. Örnek dosya için değerli yardımlarınızı bekliyorum.
ikişerli sütunum var lakin ben doğru koşulu yazamıyorum.

link https://www.dosyaupload.com/6o0g

 

[Orion1]

Buyurun.

Sub bul_59()
Dim sonsat As Long, i As Long, k As Range
sonsat = Cells(Rows.Count, "K").End(xlUp).Row
Range("M2:M" & Rows.Count).ClearContents
Range("R2:R" & Rows.Count).ClearContents
For i = 2 To sonsat
    Set k = Range("P:P").Find(Cells(i, "K").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If Cells(i, "L").Value <> k.Offset(0, 1).Value Then
            Cells(i, "M").Value = "x"
            k.Offset(0, 2).Value = "x"
        End If
    End If
Next i
MsgBox "bitti"
End Sub

 

[Carpintero]

Harika olmuş Orion hocam
çok teşekkür ediyorum
ellerinize sağlık.

 

[Orion1]

Harika olmuş Orion hocam
çok teşekkür ediyorum
ellerinize sağlık.

Rica ederim.
İyi çalışmalar.