İki Sayfa içinde Arama ve Eşitleme

[serdarkaracay]

Merhaba arkadaşlar,
Öncelikle forumda ve google da çok araştırdım ama istediğim gibi sonuç bulamadım.

Ekte örnek dosyayı gönderdim.
İstediğim şu;

URUN sayfasındaki code sütündeki verileri,Sayfa 2de code sütününde arayıp bulduğu karşısındaki KategoriKodu değerini URUN sayfasındaki KategoriKodu değerini yazdırmak istiyorum.
Umarım anlatabilmişimdir...

Fikirlerinizi bekliyorum.
Hoşcakalın.

 

[Orion1]

Dosyanız ektedir.

Sub katagori_59()
Dim sh As Worksheet, k As Range, sat1 As Long, sat2 As Long
Sheets("URUN").Select
Set sh = Sheets("Sayfa2")
Application.ScreenUpdating = False
sat1 = Range("A" & Rows.Count).End(xlUp).Row
sat2 = sh.Range("A" & Rows.Count).End(xlUp).Row
Range("B2:B" & sat1).ClearContents
For i = 2 To sat1
    Set k = sh.Range("A2:A" & sat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Cells(i, "B").Value = k.Offset(0, 1).Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub