5. sayfanın adını hücreye yazmak

[bozkırbey]

Merhabalar

Bulunduğumuz sayfanın adını hücreye yazabiliyoruz ama benim sizlerden ricam ,
3. 5. veya 70. sayfanı adını hücreye yazabilir miyiz?
Aydınlatırsanız sevinirim
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Formüldeki hücre başvurusunu ilgili sayfaya yaparsanız istediğiniz sonuca ulaşırsınız.

=HÜCRE("DOSYAADI";Sayfa3!A1)

Bu çözüm istediğinizi karşılamazsa makro ile fonksiyon yazabiliriz.

 

[bozkırbey]

Cevabınız için teşekkürler ama bu formülle bulunduğum sayfanın adını ögrenebilirim. Benim isteğim ise tek bir sayfada formül yazarak diğer sayfaların adını öğrenebilmek.

 

[Merhum İdris SERDAR]

.

Örnek dosya ekte.

.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon ile çözüm hazırlanmıştır.

Function Sayfa_Adi(Sayfa_Index_No) As String
    Application.Volatile True
    Sayfa_Adi = ThisWorkbook.Worksheets(Sayfa_Index_No).Name
End Function

 

[bozkırbey]

İlginiz için teşekkür ederim.
Çalışmanızı inceledim

 

[bozkırbey]

.

Örnek dosya ekte.

.

Çalışmayı inceledim çok teşekkür ederim.

 

[bozkırbey]

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon ile çözüm hazırlanmıştır.

Function Sayfa_Adi(Sayfa_Index_No) As String
    Application.Volatile True
    Sayfa_Adi = ThisWorkbook.Worksheets(Sayfa_Index_No).Name
End Function

Korhan Bey çok teşekkür ederim ilginiz için makroyla istediğimi yapabilirim saolun.