Bir çalışma kitabından tüm çalışma sayfası adlarının listesini nasıl oluşturabilirim?

Birden fazla çalışma sayfası içeren bir çalışma kitabınız olduğunu ve tüm sayfa adlarını otomatik olarak, her bir sayfaya giden tıklanabilir köprülerle birlikte listelemek istediğinizi hayal edin. Bu öğretici, Excel'de çalışma sayfası adlarının listesini oluşturmak için hızlı ve etkili yöntemler sunar.

Formüllerle çalışma kitabından tüm çalışma sayfası adlarını dinamik olarak alın

Kutools for Excel ile çalışma kitabından tüm çalışma sayfası adlarını alın

VBA kodu ile çalışma kitabından tüm çalışma sayfası adlarını alın

Formüllerle çalışma kitabından tüm çalışma sayfası adlarını dinamik olarak alın

Excel'de bir hücre aralığı adı tanımlayabilir ve ardından şu anda açık olan çalışma kitabındaki tüm sayfa adlarını listelemek için bir formül uygulayabilirsiniz, lütfen aşağıdaki adımları izleyin:

1. "Formüller" > "İsimler" seçeneğine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. "İsim Yöneticisi" iletişim kutusunda, "Yeni Ad" düğmesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. Açılan "Yeni Ad" iletişim kutusunda, "Ad" metin kutusuna bir ad girin ve ardından aşağıdaki formülü "Şuna Başvurur" metin kutusuna yapıştırın, aşağıdaki ekran görüntüsüne bakın:

=GET.WORKBOOK(1)&T(NOW())

4. Ardından "Tamam" > "Kapat" düğmelerine tıklayarak iletişim kutularını kapatın, şimdi tüm sayfa adlarını listelemek istediğiniz bir sayfaya gidin ve ardından aşağıdaki formülü boş bir hücreye girin:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Not: Yukarıdaki formülde, "Sheetnames", 3. adımda oluşturduğunuz hücre adıdır.

5. Ve sonra, boş hücreler göründüğünde dolgu tutamacını hücrelere doğru sürükleyin ve şimdi mevcut çalışma kitabındaki tüm sayfa adları aşağıdaki ekran görüntüsünde gösterildiği gibi listelenmiştir:

6. Her bir sayfa için köprü oluşturmak istiyorsanız, lütfen aşağıdaki formülü kullanın:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Not: Yukarıdaki formülde, "A2", sayfa adını içeren hücredir ve "A1", etkin hücrenin bulunmasını istediğiniz hücredir. Örneğin, köprü metnine tıklarsanız, ilgili sayfanın A1 hücresine yönlendirir.

7. Şimdi, köprü metnine tıkladığınızda, sizi o sayfaya götürecektir, aşağıdaki demoyu inceleyin:

Kutools for Excel ile çalışma kitabından tüm çalışma sayfası adlarını alın

Üçüncü parti eklenti "Kutools for Excel"'in "Bağlantı Tablosu Oluştur" özelliğiyle, tek bir tıklamayla çalışma sayfası adlarının bir listesini oluşturabilir ve her bir çalışma sayfasına köprü ile bağlanabilirsiniz.

1. "Kutools Plus" > "Çalışma Sayfası" > "Bağlantı Tablosu Oluştur" seçeneğine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. "Bağlantı Tablosu Oluştur" iletişim kutusunda, lütfen aşağıdaki ayarları belirtin:

(1.) Beğendiğiniz "sayfa indeks stillerini" seçin, çalışma sayfası adlarını köprülerle veya makro düğmeleriyle oluşturabilirsiniz. (2.) Sayfa indeksi için çalışma sayfası adlarını girin. (3.) Çalışma sayfası indeksinin konumunu belirtin. (4.) Yeni çalışma sayfasında çalışma sayfası adlarını görüntülemek için kaç sütun kullanmak istediğinizi belirtin.

3. Ayarları tamamladıktan sonra "Tamam" düğmesine tıklayın. Mevcut çalışma kitabının yeni bir çalışma sayfasında, tüm çalışma sayfası adları bağlantılarla birlikte listelenmiştir. Ekran görüntüsüne bakın:

köprü içeren çalışma sayfası adları	makro düğmeleri içeren çalışma sayfası adları

VBA kodu ile çalışma kitabından tüm çalışma sayfası adlarını alın

1. "ALT" + "F11" tuşlarına basılı tutun, bu işlem "Microsoft Visual Basic for Applications" penceresini açar.

2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki makroyu "Modül" penceresine yapıştırın.

VBA: Tüm çalışma sayfası adlarını yeni bir çalışma sayfasında köprülerle listeleyin:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Makroyu çalıştırmak için "F5" tuşuna basın. Aktif çalışma kitabındaki tüm çalışma sayfası adları, her bir sayfaya giden köprülerle birlikte "Index" adlı yeni bir çalışma sayfasında listelenmiştir. Aşağıdaki ekran görüntüsüne bakın:

İlgili makaleler