Eklenen Sayfaların İsimlerini Otomatik Getirme

[emnozdemir]

Bu Forum sayesinde Excell hakkında çok şey öğrendim. Bunun için herkese çok Teşekkür ederim.
Birşey daha öğrenmek istiyorum. Çalışma Kitabına Yeni Sayfa eklendikçe, Sayfa İsimlerini formül yardımıyla ekli dosyadaki gibi aşağıya doğru otomatik olarak sıralamak mümkünmüdür acaba ?

 

[hamitcan]

Formül ile yapılıp yapılamadığını bilmiyorum.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    c = 1
    Columns(1).ClearContents
    For Each Sht In Worksheets
        c = c + 1
        Sheets("RAPOR").Select
        Sheets("RAPOR").Cells(c, 1) = Sht.Name
    Next
End Sub

 

[emnozdemir]

Hocam ilginize çok teşekkür ederim. Ama Formülle yapılabiliyorsa benim işime daha çok yarayacak...

 

[Korhan Ayhan]

Merhaba,

Yerleşik işlevlerle çözümü sanırım yok. Ama alternatif olarak kullanıcı tanımlı fonksiyonla çözüm bulabiliriz.

Option Explicit
 
Function SAYFA_ADI(İndis As Integer)
    Application.Volatile True
    If İndis > Worksheets.Count Then
        SAYFA_ADI = ""
    Else
        SAYFA_ADI = Sheets(İndis).Name
    End If
End Function

Hücrede aşağıdaki şekilde kullanabilirsiniz.

=SAYFA_ADI([COLOR=red]SATIR()-1[/COLOR])

Ya da;

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

Kırmızı renkli bölümler sayfanın indeks numarasıdır.

 

[emnozdemir]

Korhan Ayhan Hocam önerdiğiniz çözümü denemeye çalıştım. Verdiğiniz kodları modüle ekleyip, ilk formülü (=SAYFA_ADI(SATIR()-1)) hücrelere uyguladım.

Sonuç:
- Başka bir excel kitabından bu buraya Taşı veya Kopyala yöntemiyle sayfa kopyaladığımda formüllü hücrelere Diğer kitaptaki bütün sayfaların isimleri geliyor.
- Yeni Sayfa eklediğimde İsmi formül uyguladığım hücreye direkt gelmiyor.


Hamitcan Hocamın vermiş olduğu kodları uygulamaya çalıştım ama çalışmadı

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

 

[emnozdemir]

Şimdi oldu... Şöyle bir şey daha istesem Hocam;
ilk sayfa (RAPOR) ismini yazmasa, sadece sonraki sayfaların ve yeni eklenecek sayfaların isimlerini yazsa...Kodları buna göre uyarlayabilirmiyiz?

 

[Korhan Ayhan]

Merhaba,

Bende sizin bu bahsettiğiniz olayı denedim. Fakat sonuç sizin dediğiniz gibi olmadı. Kitap içinde hangi sayfalar varsa onların isimleri listelendi.

Yeni sayfa eklediğinizde F9 tuşuna basmanız yeterli olacaktır.

Korhan Ayhan Hocam önerdiğiniz çözümü denemeye çalıştım. Verdiğiniz kodları modüle ekleyip, ilk formülü (=SAYFA_ADI(SATIR()-1)) hücrelere uyguladım.

Sonuç:
- Başka bir excel kitabından bu buraya Taşı veya Kopyala yöntemiyle sayfa kopyaladığımda formüllü hücrelere Diğer kitaptaki bütün sayfaların isimleri geliyor.
- Yeni Sayfa eklediğimde İsmi formül uyguladığım hücreye direkt gelmiyor.


Hamitcan Hocamın vermiş olduğu kodları uygulamaya çalıştım ama çalışmadı

 

[emnozdemir]

şimdi oldu ...Teşekkürler...