Sayfa isimlerini formül ile listelemek

[huseyin610]

Merhaba,

Ekli dosyada Sayfa1'e bu dosyada bulunanan bütün sayfaların listesini formül ile yaptırabilir miyiz ? Yeni sayfa eklendiği zaman da etkilesin.Makro çözümü elimde var.Ben formül ile yapmak istiyorum.

Saygılarımla,

 

[Korhan Ayhan]

Merhaba,

Tüm sayfalarda herhangi bir hücrede ilgili sayfanın adını formülle gösrebilirsiniz. Fakat bunları tek sayfada formülle listelemek sanırım mümkün değil.


İki örnekte size aktif sayfanın adını verir.

=PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("]";HÜCRE("DOSYAADI";A1))+1;255)

=SAĞDAN(HÜCRE("DOSYAADI";A1);UZUNLUK(HÜCRE("DOSYAADI";A1))-MBUL("]";HÜCRE("DOSYAADI";A1);1))

Eğer çözüm olacaksa kullanıcı tanımlı fonksiyon yazılabilir.

 

[harziyan]

Merhabalar;
Korhan Hoca'nın dediği fonksiyon...

Function Sayfa(RefHucre As Range) As String
    Application.Volatile
    Sayfa = RefHucre.Parent.Name
End Function

 

[Korhan Ayhan]

Merhaba,

Sizin hazırladığınız fonksiyon için diğer sayfalara başvuru yapmak gerekiyor. Bu da zaten benim ilk mesajımda verdiğim formüllerle aynı işlemi yapıyor.

Benim düşündüğüm fonksiyon aşağıdaki şekildeydi.

Function SAYFA_ADI(İndex As Integer) As String
    On Error GoTo Son
 
    Application.Volatile True
    SAYFA_ADI = Sheets(İndex).Name
    Exit Function
 
Son: SAYFA_ADI = ""
End Function

Sayfaların index numalarına göre sonuç döndürüyor. Bu şekilde sayfaları referans kullanmanıza gerek kalmıyor.

Mesela A1 hücresine aşağıdaki şekilde uygulayıp ihtiyacınız kadar alt hücrelere sürüklediğinizde istediğiniz sonuca ulaşabilirsiniz.

[COLOR=blue]=SAYFA_ADI([COLOR=red]SATIR()[/COLOR])[/COLOR]

Bu şekilde kullandığınızda SATIR() fonksiyonu ile her satırda farklı değer elde edeceğiniz için fonksiyon dinamik şekilde çalışacaktır.

İsterseniz aşağıdaki şekilde de kullanabilirsiniz. Bu şekilde kullanmak isterseniz formülün içindeki 1 değerini her satır için elle değiştirmeniz gerekecektir.

[COLOR=blue]=SAYFA_ADI([COLOR=red]1[/COLOR])[/COLOR]

 

[harziyan]

Teşekkür ederim Hocam, unutmayın biri sizi hep gözetleyecek.