iki sayfadaki verileri bulup yanına yazma işlemi

[aguney]

Elimde bir kitap içersinde iki adet sayfa var. sayfa1 de bir fiyat listesi var içersinde her bir kodun bir fiyatı var.
sayfa2 de de tüm bu kodların aynısı var ve yanlarında da farklı fiyatlar mevcut.
Ben sayfa1 deki koda bakıp sayfa2 nin içinde bu kod var ise sayfa1 deki rakamı (A2) sayfa2 deki kodun (yeni fiyat) yanındaki sütüna yazdırmak istiyorum. Bunu makrolarla nasıl yaparım. Ayrıca binlerce satırlık bir sayfa bu. Ekte iletiyorum.

 

[sbayyigit]

usta sadece sorunu okuyup ona göre bir işlem yaptım ve örnek hazırladım. istersen bak kendine göre uyarla. sanırım işini fazlasıyla görür. yapamazsan tekrar düzenlerim..

 

[cilter]

Hocam arkadaşın işi ama bence olmuş. sadece sana bir şe ysormak istiyoru.
Bu makroda yaptıklarını (Yani kodlarının anlamlarını bir yazabilirmisin sana zahmet olacak. Yani şu satırda şunu yaptım hocam mantığını anlamak istiyorumda kusura bakma lütfen
Şimdiden teşekkür ederim.
Sub TEST2() ( )
Set S1 = Sheets("kod")
Set s2 = Sheets("Sayfa1")
s2.[c2:c655].ClearContents
For X = 1 To s2.[b655].End(3).Row
For Y = 2 To 20
If s2.Cells(X, 2).Value = S1.Range("B" & Y) Then
Sheets("sayfa1").Select
Cells(X, 3).Value = S1.Range("c" & Y)
Cells(X, 4).Value = S1.Range("d" & Y)

End If
Next
Next
MsgBox "İŞLEM BAŞARIYLA TAMAMLANMIŞTIR."
End Sub

 

[sbayyigit]

bu da sizin örnek ve açıklama.