Sayfalardan İsme Göre Veri Almak

[1Al2Ver]

Merhaba,

Farklı isimler içeren sayfalardan, başka bir sayfada eşleşen isimlere göre veri almak istiyorum.

"Rapor" sayfasındaki "B2:B45" aralığında kayıtlı isimlere göre, aynı isimlerle sayfalar açılmıştır.

"Rapor" sayfasındaki ilgili sütunlara, bu sayfalarda eşleşen isimler kaynak alınarak, veri almak istiyorum.

Ek'li dosyada örnekledim, çözüm rica ediyorum.

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

VBA bölümünde konu açmışsınız ancak şimdilik formül önerisinde bulunmak istedim.

Aşağıdaki formülü RAPOR sayfası C2 hücresine uygulayın, sonra sağa ve aşağı doğru kopyalayın.
.

=EĞERHATA(DOLAYLI("'"&KIRP(BÜYÜKHARF($B2))&"'!"&ADRES(36;SÜTUN();4);1);"")

 

[aerten]

Dolaylı - Adres

Sorunun Makro-VBA'ya sorulduğuna dikkat etmeden Fonksiyon ile bir yanıt hazırladım. Fonksiyon ile çözmeyi isterseniz elinizde bulunsun. Makro için de başkası yardımcı olur umarım.

Formülü C2'ye yapıştırıp sağa ve aşağı kopyalayınız.

=EĞERHATA(DOLAYLI(ADRES(36;SÜTUN()+1;4;1;$B2));"")

B sütunundaki sıralama değiştiğinde de doğru sonuç veriyor.

Ben yazana kadar Ömer Bey de yanıt vermiş. Alternatif olsun.

"Eşme Ayva"nın sonucunu vermedi. Rapor sayfasında Eşme Ayva'nın sonunda fazladan bir boşluk var. Ben de Ömer Bey neden "KIRP" ile uğraşmış diye düşünmüştüm. Verinizdeki bu tür sonucu etkileyecek fazlalıkları temizlemeniz gerekecek ya da Ömer Beyin formülünü uygulayınız.

 

[1Al2Ver]

Merhaba.

VBA bölümünde konu açmışsınız ancak şimdilik formül önerisinde bulunmak istedim.

Aşağıdaki formülü RAPOR sayfası C2 hücresine uygulayın, sonra sağa ve aşağı doğru kopyalayın.
.

=EĞERHATA(DOLAYLI("'"&KIRP(BÜYÜKHARF($B2))&"'!"&SOLDAN(ADRES(1;SÜTUN();4);1)&36);"")

Sayın Ömer BARAN merhaba,

İlginiz ve çözümünüz için teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Sorunun Makro-VBA'ya sorulduğuna dikkat etmeden Fonksiyon ile bir yanıt hazırladım. Fonksiyon ile çözmeyi isterseniz elinizde bulunsun. Makro için de başkası yardımcı olur umarım.

Formülü C2'ye yapıştırıp sağa ve aşağı kopyalayınız.

=EĞERHATA(DOLAYLI(ADRES(36;SÜTUN()+1;4;1;$B2));"")

Rapor sayfasında Eşme Ayva'nın sonunda fazladan bir boşluk var.

Sayın aerten merhaba,

İlginiz, çözümünüz ve uyarınız için teşekkür ederim.

Saygılarımla.

 

[Ömer BARAN]

Tekrar merhaba.

Sayın aertan'ın cevabıyla birlikte; verdiğim formüldeki gereksiz kısmı fark etmiş oldum, önceki cevabımdaki formül güncellendi (kısaltıldı).

 

[1Al2Ver]

Tekrar merhaba.

Sayın aertan'ın cevabıyla birlikte; verdiğim formüldeki gereksiz kısmı fark etmiş oldum, önceki cevabımdaki formül güncellendi (kısaltıldı).

Teşekkür ederim Sayın Ömer BARAN,

Saygılarımla.