Dosya Bağlantısı

[dumanibo]

Elimdeki bir excel dosyasının başka bir dosyaya bağlantısı olmadığı halde bağlantı var görünüyor. Bu nasıl oluyor bu bağlantıyı nasıl yokedebilirim?

 

[masuk500]

formüllerinizi yeniden düzenleyin.dosyayı eklerseniz daha iyi olur

 

[Ayhan Ercan]

İlgili dosyanızın Formüllerini denetleyiniz...

 

[Leoncio]

Merhaba;
Aşağıdaki kodları denermisiniz. (kodlar alıntıdır.)

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

 

[Leoncio]

Alternatif olması açısından;
Düzen=>Bağlantılar=>Bağlantıları Düzenle=>Durunu Denetle.
Kaynak bulunamadı mesajı veren bağlantıyı kesin.

Veya;

Sub olmayan_linki_kaldir()
Dim i As Integer
link = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(link) Then
For i = 1 To UBound(link)
If Len(Dir(link(i))) = 0 Then
ActiveWorkbook.BreakLink Name:=link(i), _
Type:=xlLinkTypeExcelLinks
End If
Next i
End If
End Sub

 

[dumanibo]

Teşekkürler Sn. Leoncio,

Formülünüz işime yaradı. Bir kaç tane adlanmış alan varmış. Onları temizledim.
Peki bir sayfayı başka bir dosyaya kopyalarken o sayfadaki tanımlanmış alan adlarının kopyalanmasını nasıl engelleyebiliriz acaba?