Gizli Link

[besen]

Merhaba dosyada link gözüküyor. Ancak bütün aramalarıma rağmen bulamadım. Linki kırmak istiyorum, kırılmıyor, silmek istiyorum silinmiyor, açmak istiyorum açılmıyor.

Data Validation larda yok.
Defined Names lerde yok.
Şu makroyla arattırdım yok.
Sub ExRef()
Dim MyRange As Range
Dim i, No As Integer
Dim MyMsg As String
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
End If
Next
MyMsg = MyMsg & vbCrLf & Sheets(i).Name & " sayfasında " & No & " adet "
Next
MsgBox MyMsg & vbCrLf & WorksheetFunction.Rept("--", 20) & vbCrLf & "Dış bağlantılı hücre bulundu." _
& vbCrLf & "(Bulunan hücreler sarı ile işaretlendi.)"
End Sub


Nerde bu link arkadaşlar.

 

[uzmanamele]

Merhaba

Bir zamanlar benim de başıma gelmişti.
Aşağıdaki makro ile dosyadaki bu adları silmeye çalıştığımda onay ile ilgili satırları sildiğim halde 3 saat makronun çalıştığını hatırlıyorum.

Siz önce onay isteyen satırlar varken deneyin. Çok uzun sürecekse bu satırları silerek makroyu çalıştırın.

Sub T_Ad_Sil_2()
On Error GoTo 10
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar.Name & vbCrLf & adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    
    If ONAY = vbYes Then
        adlar.Delete
 
    ElseIf ONAY = vbNo Then
    End If
10:
    Next
End Sub

 

[Merhum İdris SERDAR]

.

Bir de bunu deneyin.

Sub LinkListe()

Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
wb.Sheets.Add
xIndex = 1
For Each link In wb.LinkSources(xlExcelLinks)
Application.ActiveSheet.Cells(xIndex, 1).Value = link
xIndex = xIndex + 1
Next link
End If

End Sub

.

 

[besen]

Üstat teşekkürler.

C:\dosya\BİLGİ_Rapor_V1.xlsm

şeklinde ayrı bir sheete linkin ismini getirdi.

Ancak bilgisayarımda böyle bir dosya yok.
Fakat bir önceki versiyon tablomu güncelleyerek sorunu hallettim.

saygılar.