Bağlantılı dosyalar

[slymn1]

Selam
Formüllerin içerisinde olmamasına rağrem mevcut doya açılırken bir bağlantı (link)arıyor.
Yardımcı olursanız sevinirim. :?

 

[hamzacan]

Acaba çalışma kitabınız başka çalışma kitaplarına falan bağlı mı?
Ã?rnek dosyayı ekleyebilir misiniz?

 

[slymn1]

ö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

 

[danersin]

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.

 

[balca]

Peki size göre çalışma kitabınızda bağlantı olmaması mı lazım?

Þunun için soruyorum bazen siz ne kadar bağlantıları kaldırmış olsanız bile kırık linkler kalabiliyor. Ama üzülmeyin çaresi var...

Eğer bağlantı olmaması lazım diyorsanız bu konuda yardımcı olabilirim.

 

[slymn1]

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

 

[Levent Menteşoğlu]

Düzen-bağlantıları tıklayarak hangi dosyaya bağlantı olduğunu görebilirsiniz.

 

[slymn1]

sn.leventm
Edit/link ile dosya ismini görebiliyorum fakat eski bir dosya ve belirtilen klasörde mevcut değil.
teşekkürler

 

[Levent Menteşoğlu]

Birde şunu deneyin. Araçlar-seçenekler-görünüm-formüller checkboxını işaretleyerek tüm formülleri görünür yapın ve böylece bağlantılı formülü bulabilirsiniz sanırım.

 

[slymn1]

sn.leventm
onuda denedim fakat bulunmuyor
teşekkürler

 

[balca]

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

 

[slymn1]

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