2 sayfa arasında koşulları eşleşen kayıtları ilgili sayfadaki alana yazdırma

[malkon]

Merhabalar öncelikle aranıza yeni katılan acemi kullanıcı olarak hepinize selam ve saygılarımı sunuyorum.
Ekteki çalışma kitabında "T" sayfasında zemin no ve karşısındaki parsel nosu
"M" sayfasındaki zemin no ve karşısındaki parsel numarası ile eşleşen kayıt varsa
"T " sayfasındaki "Taşınmaz No" kısmına "M" sayfasındaki taşınmaz numarasının yazdırılmasını istiyorum. Yardımlarınızı bekler saygılar sunarım.

 

[vivident]

Deneyiniz
Bulunamayan veriler "YOK" yazıyor, isterseniz başka birşeyde yazılabilir, veya hiçbirşeyde yazdırılmadan boş bırakabiliriz.

 

[Orion1]

Dosyanız ektedir.

Sub parsel59()
Dim k As Range, sonsat1 As Long, sonsat2 As Long, i As Long
Dim sh As Worksheet
Sheets("T").Select
Range("C2:C" & Rows.Count).ClearContents
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row
Set sh = Sheets("M")
sonsat2 = sh.Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sonsat1
    Set k = sh.Range("B2:B" & sonsat2).Find(Cells(i, "B").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If Cells(i, "E").Value = sh.Cells(i, "E").Value Then
            Cells(i, "C").Value = sh.Cells(i, "E").Value
        End If
    End If
Next i
MsgBox "Bitti." & vbLf & "evrengizlen@hotmail.com"
End Sub