Sayfalar arası makro

[batman53]

Sayfa 1 de A sütunundaki herhangi bir değerle, Sayfa 2 de A sütunundaki bir değer eşit ise, sayfa 1 de A sütunundaki değerin satırında E sütununa ,sayfa 2 deki A sütunu ile eşit satırda bulunan D sütunundaki değer yazılacak.
Örnek:
Sayfa1---Asütunu-----Bsütunu-----Csütunu-----Dsütunu
---------24-----------Ağrı----------Emel---------39
---------42-----------Elazığ--------ALi-----------78

Sayfa2----Asütunu-----Bsütunu-----Csütunu-----Dsütunu
-----------32-----------VAn---------yusuf---------89
-----------24-----------eskişehir-----Hakan---------332

İşlem sonucu
Sayfa1-----Asütunu-----Bsütunu-----Csütunu-----Dsütunu----Esütunu
------------24-----------Ağrı----------Emel--------39---------332
------------42-----------Elazığ--------Ali-----------78--------Boş

Böyle bir makro yazılabilir mi?, accesste yapıyorum ama çok uzuyor. Çünkü işin içine bir başka 3. sayfada giriyor.

 

[mustafa1205]

Sayfa 1 de A sütunundaki herhangi bir değerle, Sayfa 2 de A sütunundaki bir değer eşit ise, sayfa 1 de A sütunundaki değerin satırında E sütununa ,sayfa 2 deki A sütunu ile eşit satırda bulunan D sütunundaki değer yazılacak.

Bunu bu kadar zorlaştıracağınıza örnek bir dosya ekleyip üzerinde daha anlaşıllır bir şekilde açıklayıp sorsaydınız daha iyi olurdu.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle kopyalayıp dener misiniz?

Sub BulGetir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 1 To s1.Range("A" & Rows.Count).End(3).Row
Set Aranan = s2.Range("A:A").Find(Cells(i, 1).Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then _
        s1.Cells(i, 5).Value = s2.Cells(Aranan.Row, 4).Value
Next i
MsgBox "Aktarma İşlemi Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub