Çalışma kitabınızdan tüm çalışma sayfası adlarını içeren listeyi nasıl oluşturursunuz?

Birden fazla çalışma sayfası içeren bir çalışma kitabınız olduğunu ve tüm bu sayfaların adlarını, her birine tıklanabilir köprülerle otomatik olarak yönlendiren bir liste halinde görüntülemek istediğinizi düşünün. Bu eğitim, Excel’de çalışma sayfası adlarından oluşan böyle bir liste oluşturmak için hızlı ve etkili yöntemler sunar.

Çalışma kitabından formüllerle tüm Çalışma Sayfası Adı listesini dinamik olarak alın

Çalışma kitabından Kutools for Excel ile tüm Çalışma Sayfası Adı listesini alın

Çalışma kitabından VBA koduyla tüm Çalışma Sayfası Adı listesini alın

Çalışma kitabından formüllerle tüm Çalışma Sayfası Adı listesini dinamik olarak alın

Excel’de bir hücreye ad tanımlayabilir ve ardından Geçerli Çalışma Kitabı’ndaki tüm sayfa adlarını listeleyen bir formül uygulayabilirsiniz. Lütfen aşağıdaki adımları izleyin:

1. "Formül" > "Ad Yöneticisi" seçeneğine tıklayın; ekran görüntüsüne göz atın:

2. "Ad Yöneticisi" iletişim kutusunda "Yeni" düğmesine tıklayın; ekran görüntüsüne göz atı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 (ekran görüntüsüne bakın):

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

4. Ardından iletişim kutularını kapatmak için "Tamam" > "Kapat" seçeneğine tıklayın. Şimdi, tüm sayfa adlarını listelemek istediğiniz sayfaya gidin ve 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 yer alan "Sheetnames", 3. adımda oluşturduğunuz hücre adıdır.

5. Ardından, boş hücreler görünene kadar doldurma tutamacını aşağı doğru sürükleyin. Böylece Geçerli Çalışma Kitabı’nın tüm sayfa adları aşağıdaki ekran görüntüsünde gösterildiği gibi listelenmiş olur:

6. Her 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ücreyi, "A1" ise köprüye tıklandığında sizi yönlendireceği hedef hücreyi temsil eder. Örneğin, köprü metnine tıkladığınızda ilgili sayfanın A1 hücresine yönlendirilirsiniz.

7. Artık köprü metnine tıkladığınızda sizi doğrudan ilgili sayfaya yönlendirecek; aşağıdaki demoya göz atın:

Çalışma kitabından Kutools for Excel ile tüm Çalışma Sayfası Adı listesini alın

"Kutools for Excel" üçüncü parti eklentisinin "Bağlantı Tablosu Oluştur" aracıyla tek tıklamayla Çalışma Sayfası Adı listesi oluşturabilir ve her bir çalışma sayfasına köprü ekleyebilirsiniz.

1. "KUTOOLS PLUS" > "Çalışma Sayfası" > "Bağlantı Tablosu Oluştur" seçeneğine tıklayın (ekran görüntüsüne bakın):

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

(1.) İstediğiniz "Stil" seçeneğini belirleyin; köprü veya makro düğmeleri içeren bir Çalışma Sayfası Adı oluşturabilirsiniz. (2.) Sayfa dizini için bir Çalışma Sayfası Adı girin. (3.) Çalışma sayfası dizininizin konumunu belirtin. (4.) Çalışma Sayfası Adı’nı görüntülemek için Yeni çalışma sayfasında kaç sütun kullanmak istediğinizi belirtin.

3. Ayarları tamamladıktan sonra "Tamam" düğmesine tıklayın. Tüm Çalışma Sayfası Adları, Geçerli Çalışma Kitabı içindeki yeni bir çalışma sayfasında bağlantılı olarak listelenir. Ekran görüntüsüne bakın:

köprülerle Çalışma Sayfası Adı	makro düğmeleriyle Çalışma Sayfası Adı

Çalışma kitabından VBA koduyla tüm Çalışma Sayfası Adı listesini alın

1. "ALT" + "F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.

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

VBA: Bir Yeni çalışma sayfası içinde köprülerle tüm Çalışma Sayfası Adı listesi:

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. Bu makroyu çalıştırmak için "F5" tuşuna basın. Geçerli Çalışma Kitabı’ndaki tüm çalışma sayfası adları, her biri ilgili sayfaya yönlendiren köprülerle birlikte "Dizin" adlı yeni bir çalışma sayfasında listelenir. Aşağıdaki ekran görüntüsüne bakın:

İlgili makaleler