Kokpit sayfasında sayfa adlarını otomatik getirmek

[uuthbey]

Merhaba,

Bir çalışma kitabı var, bu çalışma kitabında da 50-60 tane sayfa var ve devamı da gelebilir.
Bu sayfadaki kimi hücrelerdeki verileri özetlediğim kokpit sayfaya almak istiyorum. (pivot işe yaramıyor)

Sayfa adları numerik değil. dolayısıyla "=DOLAYLI" formülü işe yaramıyor.
Özet verilerin yer alacağı kokpit sayfasının B2 hücresinde kullandığım formül şöyle örneğin,

='Sayfa Adı '!B2

ben bunu,

='Sayfa Adı 2 '!B2
='Sayfa Adı 3 '!B2
..

şeklinde devam ettirmek istiyorum. olası formülde sadece sayfa adları değişecek, başvuru hücresi değişmeyecek.
Yardımlarınız için şimdiden müteşekkirim.

 

[Ömer BARAN]

Merhaba.
Sitede ARAMA yaparak daha birçok örnek olduğunu görebilirsiniz.

Aşağıdaki konu sayfasında yer alan gibi bir kod ile mevcut sayfa adlarını
ANA SAYFA'nıza listeledikten sonra, bahsettiğiniz biçimde işlem yapabilirsiniz.

Varolan Sayfaları Listeleme
.

 

[uuthbey]

Merhaba.
Sitede ARAMA yaparak daha birçok örnek olduğunu görebilirsiniz.

Aşağıdaki konu sayfasında yer alan gibi bir kod ile mevcut sayfa adlarını
ANA SAYFA'nıza listeledikten sonra, bahsettiğiniz biçimde işlem yapabilirsiniz.

Varolan Sayfaları Listeleme
.

Hocam teşekkür ederim,
ancak bu kod sayfa adlarını pop-up şeklinde bir pencerede listeledi. Ben mi bir yerde yanlış yaptım bilmiyorum.

Diğer yandan sayfa adları B2'den itibaren listelendi diyelim, ben bu adlara nasıl yukarıda bahsettiğim şekilde formül uygulayacağım?

 

[Ömer BARAN]

Sayfa adlarını listele şeklinde arama yapıp başka örnekler bulabilirsiniz.
ARAMA, sayfanın üst ortasında.

İsterseniz aşağıdaki kod'u deneyin.

Sub LİSTELE_BRN()
For brn = 1 To Sheets.Count
    Cells(brn, "B") = Sheets(brn).Name
Next: MsgBox "Sayfa adları listelendi."
End Sub

Sayfalardan hep belli bir hücredeki bilgiyi (örneğin E8 hücresi)
çağıracağınız söylemiştiniz, o zaman

=DOLAYLI(B1&"!E8") formülü işinizi görecektir.

 

[Tevfik_Kursun]

Teşekkürler Ömer Hocam,
Saygılarımla