Başka sayfadan "a" değerine karşılık veri aramak

[cebelitarık]

Forumun Değerli Üyeleri
Kod içerisinde belirlediğim “a” değerini sayfa2 içerisindeki B2:K1000 aralığında buldurup, bulduğumuz değerin bir sağındaki hücreyi sayfa1 D5 hücresine nasıl yazdırırım.
İlgilenecek arkadaşlara şimdiden teşekkür ederim.
Saygılarımla

 

[İhsan Tank]

örnek dosya ekleyiniz

 

[cebelitarık]

sayın Çılgın
İlginiz için teşekkür ederim.
Örnek dosyamı ekledim.
Saygılarımla

 

[İhsan Tank]

merhaba çözüm alttaki sayfada
http://www.excel.web.tr/showthread.php?p=447583#post447583
inceleyiniz

 

[cebelitarık]

Sayın Cılgın
Teşekkür ederim.
Benim soruna formüllü çözüm olmuyor. Find komutu veya başka komutlarla dizin içinde arama dolayısı ile Vba kodları ile çözüm gerekiyor, bu işin sadece küçük parçası diğer kodların devamına ilave etmem gerekiyor.
Saygılarımla

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Sub Makro1()
Sayfa1.[d5] = Sayfa2.[a2:d2000].Find([Sayfa1!a1]).Offset(, 1)
End Sub