öncelikle şunu belitmeliyim benim sorunum makro ile direkt ilgili değil fakat acemilik nedeniyle makro formuna mail atmışım
sn.hamzacan
dosyanın bağlantılıları var fakat bilgim dahilinde olanların dışında bir bağlantı istiyor. Sözkonusu dosyada mevcut değil. Benim esas sorunum bağlantıları formüllerin incelenmesi dışında nasıl tesbit edebilirim.
Ã?rnek dosya gönderemeyeceğim
ilginize teşekkür ederim
Sorunuzu makro bölümünden buraya taşındı.
Sizin bilginiz dışında istediği linkin bir praçasını, tüm sayfaları seçip ctrl-f ile aratın tüm kitapta. Muhakkak yanlışlıkla yaratılmış bir bağ vardır diye düşünüyorum.
sn.danersin
clt+f ile daha öncede arttım fakat bağlantılı dosya ismi dosya içerisindeki bir sayfada bulunmuyor
ilginize teşekkürler ayrıca macro formunu gereksiz yere işgal ettiğim için üzgünüm
sn balca
bu dosya daha önce kullanılan bir sayfaya ilaveler yapılarak yeniden oluşturuldu. buradan bağlantı kalmış olabilir ama düzeltmek amacıyla ulaşılamaması sorun oluşturuyor.
ilginize teşekkürler
Merhaba;
Aşağıdaki kodları denermisiniz.
Sub DeleteBrokenLinks()
Dim C As Range
Dim wks As Worksheet
Dim ALink As String
For Each wks In Worksheets
For Each C In wks.UsedRange
If Left(C.Formula, 1) = "=" And _
InStr(C.Formula, "[") > 1 Then
ALink = WorksheetFunction.Substitute((Mid(C.Formula, 3, InStr(C.Formula, "]") - 3)), "[", "")
If Len(Dir(ALink)) = 0 Then
C.ClearContents
MsgBox wks.Name & " " & C.Address(False, False) & " Hücresinde " & vbCrLf _
& ALink & vbCrLf & " Dosyasına Ait Kırık Link Bulundu Ve Kaldırıldı."
End If
End If
Next C
Next
End Sub
VEYA
Sub DeleteLinkNames()
Dim MyName As Name
Dim Mes
For Each MyName In ActiveWorkbook.Names
If InStr(MyName, "REF") Or InStr(MyName, "xls") > 0 Then
Mes = Mes & vbCrLf & vbCrLf & MyName.Name & "-----" & MyName.RefersTo
ActiveWorkbook.Names(MyName.Name).Delete
End If
Next
MsgBox Mes, vbInformation, "Kaldırılan Kırık ve Dış Bağlantılı Linklerin Listesi"
End Sub
sn.balca
1.makro
If Len(Dir(ALink)) = 0 Then
bad file name or number uyarısı geliyor
2.makro
olumlu sonuç verdi. fakat uyarı olarak daha fazla sayıda bağlantıyıda kırık olarak tanımladı.
dosyanın son durumunu incelemem gerek fakat sanırım istediğim oldu.
:hihoho:
çok teşekkür ederim.
bilgi düzeyiniz ve bunu paylaşmanızı takdir ediyorum
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.