Sayfadan Bilgi alıp diğer sayfadaki değerinin yerine yazdırma

[frtsngz]

Off ben bile anlamadım desem yeri vardır ama sorum ekte

1 sayfada 1 yazan yere 2. sayfadaki 1 in karşısındaki değeri yazdırmalıyım. Böyle 1500 küsür tane sayı ve karşılığı var .

Yardımcı olursanız sevinirim.

 

[Recep İpek]

Ekteki dosyanızı inceleyin.

Not:Sonra 2. kolonu 1,2,3.. olan kolona kopyalayabilirsiniz.

 

[frtsngz]

Ekteki dosyanızı inceleyin.

Not:Sonra 2. kolonu 1,2,3.. olan kolona kopyalayabilirsiniz.

Çok Teşekkür Ederim Sn @ripek . Çözdüm gösterdiğiniz dosya ile.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BUL_DEĞİŞTİR()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    For X = 1 To S2.[A65536].End(3).Row
    S1.Columns("B:B").Replace What:=S2.Cells(X, 1), Replacement:=S2.Cells(X, 2), LookAt:=xlWhole
    Next
    S1.[A1].Select
End Sub

 

[muygun]

alternatif:
verileriniz sıralı değilse;
Sayfa1 C1 hücresine;
EĞER(EHATALIYSA(İNDİS(Sayfa2!$A:$B;KAÇINCI(Sayfa1!B1;Sayfa2!$A:$A;0);2));"";İNDİS(Sayfa2!$A:$B;KAÇINCI(Sayfa1!B1;Sayfa2!$A:$A;0);2))