Excel'de tüm bağlantıları (dış referansları) nasıl bulup listeleyebilirim?

Excel'de, başka bir çalışma kitabındaki hücre içeriğine dış referans oluşturarak atıfta bulunursunuz. Ancak Excel'deki bir çalışma kitabının tüm bağlantılarını listelemek istediğinizde, tüm dış referansları (bağlantıları) bulup listelemek zor görünüyor. Bu makaledeki hileli yöntem, çalışma kitabındaki tüm bağlantıları hızlı bir şekilde bulmanıza ve listelemenize yardımcı olacaktır.

Bul komutu ile tüm bağlantıları bul ve listele

Kutools for Excel ile tüm bağlantıları bul ve listele

VB makrosu ile tüm bağlantıları bul ve listele

Bul komutu ile tüm bağlantıları bul ve listele

Dış bağlantılar köşeli parantez [ işaretini içerdiğinden, tüm çalışma kitabındaki köşeli parantez işaretlerini bulabilirsek dış bağlantıları da bulabiliriz.

1. Giriş > Bul ve Seç > Bul'a tıklayarak Bul ve Değiştir iletişim kutusunu açın. Ayrıca Ctrl + F tuşlarına basarak da Bul ve Değiştir iletişim kutusunu açabilirsiniz.

2. Bul: kutusuna, köşeli parantezin sol işareti olan "[" işaretini girin.

3. Seçenekler'e tıklayın, İçinde açılır listeden Bağlantıları bulmak istediğiniz Çalışma Sayfası veya Çalışma Kitabı'nı seçin. Ekran görüntüsüne bakın:

4. Ardından Tümünü Bul düğmesine tıklayın. Dış referansların tamamı hemen Bul ve Değiştir iletişim kutusunda listelenir. Aşağıdaki ekran görüntüsünde gösterildiği gibi tüm bağlantı hücrelerini seçmek için Ctrl + A tuşlarına basın:

Köşeli parantezin sol işareti, tüm çalışma kitabındaki dış bağlantıları bulabilir. Eğer dahili bağlantılar ve dış bağlantılar da dahil olmak üzere tüm çeşit bağlantıları bulmak istiyorsanız, Bul: kutusuna ünlem işareti "!" işaretini girebilirsiniz.

Kutools for Excel ile tüm bağlantıları bul ve listele

Kutools for Excel'in Bağlantıları Bul ve Kır özelliği ile etkin çalışma sayfasının tüm dış bağlantılarını bulabilir, aynı zamanda ihtiyaç duyduğunuz belirli bağlantıları kesebilirsiniz.

Eğer Kutools for Excel'i yüklediyseniz, lütfen şu adımları izleyin:

1. Bağlantıları bulmak istediğiniz çalışma sayfasını etkinleştirin ve Kutools > Bağlantı > Bağlantıları Bul ve Kır tıklayın, ekran görüntüsüne bakın:

2. Bağlantıları Bul ve Kır iletişim kutusunda, Filtre açılır listesine tıklayıp Tüm bağlantılar'ı seçin ve etkin çalışma sayfasındaki tüm bağlantılar listelenecektir. Bağlantı durumlarını da görüntüleyebilirsiniz, OK bağlantının geçerli olduğunu, Hata ise bağlantının kırıldığını gösterir.

Notlar:

1. Eğer Hücreyi Görüntüle seçeneği işaretlenmişse, listedeki bağlantıya tıkladığınızda, çalışma sayfasında bağlantıyı içeren ilgili hücreyi bulur ve oraya gider.

2. Ve eğer bir bağlantıyı kesmek isterseniz, bağlantıyı listeden seçebilir ve ardından Bağlantıyı Kır'a tıklayabilirsiniz.

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!

Bu özellik hakkında daha fazla bilgi edinmek istiyorsanız, lütfen Bağlantıları Bul ve Kır'a tıklayın.

VB makrosu ile tüm bağlantıları bul ve listele

Aşağıdaki VBA makrosu, mevcut çalışma kitabının yeni bir çalışma sayfasında tüm bağlı kaynak çalışma kitaplarını listelememize yardımcı olabilir.

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

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.

VBA: Excel'de tüm bağlantıları listele.

Sub ListLinks()
    Dim xSheet As Worksheet
    Dim xRg As Range
    Dim xCell As Range
    Dim xCount As Long
    Dim xLinkArr() As String
    On Error Resume Next
    For Each xSheet In Worksheets
        Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        If xRg Is Nothing Then GoTo LblNext
        For Each xCell In xRg
            If InStr(1, xCell.Formula, "[") > 0 Then
                xCount = xCount + 1
                ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
                xLinkArr(1, xCount) = xCell.Address(, , , True)
                xLinkArr(2, xCount) = "'" & xCell.Formula
           End If
        Next
LblNext:
    Next
    If xCount > 0 Then
        Sheets.Add(Sheets(1)).Name = "Link Sheet"
        Range("A1").Resize(, 2).Value = Array("Location", "Reference")
        Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
        Columns("A:B").AutoFit
    Else
        MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
    End If
End Sub

3. Bu makroyu çalıştırmak için F5 tuşuna basın. Ardından Link Sheet adında yeni bir çalışma sayfası oluşturur ve tüm bağlantı konumlarını, bağlı kaynak çalışma kitaplarının adlarını ve kaydetme yollarını anında listeler. Ekran görüntüsüne bakın:

Kutools for Excel ile tüm bağlantıları bul ve listele