Sayfa İsimlerini Listeleme

[Tarikkk_]

Merhabalar. Çalışma Kitabımda Sayfa İsimleri Adında bir sayfam var o sayfada B sütunu 2. satırdan başlayarak Çalışma Kitabımdaki tüm sayfa isimlerinin Listellenmesini istiyorum.
örnek olarak

1 A-Sayfası
2 B Sayfası
3 C Sayfası

Yeni Sayfa eklediğimde Sayfa İsimleri listesine eklenecek sayfayı sildiğimde silinecek şekilde ayarlamak istiyorum. böyle bir kod mümkünse yardımlarınızı bekliyorum. şimdiden çok teşekkür ederim. altın üyeliğim bitmiş az önce tekrar üye oldum ama aktif olmadığından örnek dosya atamadım gerekirse üyeliğim aktif olduğunda dosya atabilirim.

 

[Korhan Ayhan]

Merhaba,

Dosyanızın ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayıp deneyiniz.

Option Explicit

Public Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Sayfa As Worksheet, Satir As Integer
    
    Sheets("Sayfa İsimleri").Range("A2:A" & Rows.Count).ClearContents
    Satir = 2
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "Sayfa İsimleri" Then
            Sheets("Sayfa İsimleri").Cells(Satir, 1) = Sayfa.Name
            Satir = Satir + 1
        End If
    Next
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ThisWorkbook.Workbook_NewSheet Sh
End Sub

 

[Tarikkk_]

hocam sağolun yine herzamanki gibi tam istediğim gibi oldu