Excelde başka dosyalar verilmiş linklerin yerini belirleme

[excelmemet]

Bazen bir excel dosyasını açmak istediğimizde daha önce başka excel dosyaları ile olan linkler yüzünden "linkleri güncelleyeyim mi" diye bir uyarı çıkar. Ancak link verilmiş dosyalar silinmiş ise veya yeri değiştirilmiş ise, bu dosyaları excel bulamaz. Bu durumda bir excel dosyasında bulunan ve daha önce verilmiş olan ve artık bir işlevi kalmamış bu tür linklerin, dosyanın içinde nerede olduğunu nasıl bulabiliriz?

 

[mehmett]

Sayın excelmemet

Araçlar > Seçenekler > Görünüm penceresinde Formüller'i seçin. Bağlantı içeren hücreleri bulup silin ve tekrar aynı yoldan giderek Formüller seçeneğini iptal edin.

 

[cyberwolf1980]

butun lınklerı teker teker gunlcellemen gerekır aklıma su anda sadece bu gelıyor ama yanlıs hatırlamıyorsam bununla ılgılı forumda bı yerde bı macro olacaktı ona bı bakıp donucem

ıyı gunler

 

[Haluk]

Sub ExRef()
 'Raider ®
     Dim MyRange As Range
     Dim i As Integer, j As Integer, No As Integer
     Dim MyMsg1 As String, MyMsg2 As String, MyMsg3 As String
     Dim Chrc2 As String
     Dim MyArray()
     For i = 1 To Worksheets.Count
         No = 0
         For Each MyRange In Sheets(i).UsedRange
             If InStr(1, MyRange.Formula, "[") Then
                 MyRange.Interior.ColorIndex = 6
                 No = No + 1
                 ReDim MyArray(1 To No)
                 Chrc2 = InStr(2, MyRange.Formula, "]")
                 ExFile = Mid(MyRange.Formula, 3, Chrc2 - 3)
                 MyArray(No) = Sheets(i).Name & " - " _
                             & MyRange.Address(False, False) _
                             & " ---> " & ExFile
                     For j = LBound(MyArray) To UBound(MyArray)
                         If MyArray(j) <> "" Then MyMsg2 = MyMsg2 & vbCrLf & MyArray(j)
                     Next
             End If
         Next
     MyMsg1 = MyMsg1 & vbCrLf & Sheets(i).Name & " sayfasinda " & No & " adet "
     Next
     MyMsg3 = "(Bulunan hucreler sari renkle isaretlenmi&#351;tir.)"
     MsgBox MyMsg1 & vbCrLf & WorksheetFunction.Rept("--", 20) _
                   & vbCrLf & "Dis baglantili hucre bulundu." _
                   & vbCrLf & vbCrLf & "Bulunan hucreler :" & vbCrLf & MyMsg2 _
                   & vbCrLf & vbCrLf & MyMsg3, , "Rapor !"
 End Sub