bağlantı iptali

[ozay27]

arkadaşlar merhaba. kasa raporumu açtığımda başka bir çalışma kitabıyla bağlantı uyarısı alıyorum resimlerini çektim. baktığım yerlerde bulamadım bağlantı başka bir günün kasa raporunda onu tespit ettim benim bulmak istediğim bağlantının hangi hücrede olduğu bukonuda yardımlarınıza ihtiyacım var teşekkür ederim

 

[Recep İpek]

Sayın ozay27,

Edit(Düzen)>Links(Link) menüsünde;

bağlantılarla ilgili tüm bilgileri bulabilirsiniz.

Ayrıca dosya açılırken güncelleme sorusunun iptali vb.işlemleri Startup Prompt

bölümünden yapabilirsiniz.

 

[ozay27]

teşekkür ederim syn ripek ama ben iptal etmek değilde direk bağlantının yapıldığı hücreyi bulmak istiyorum çözümlerden biride kaynağı değiştir deyip aynı çalışma kitabını gösterdiğimizde birdaha sorun olmuyor ama dedimya bağlantı hangi hücrede onu bulmam gerekiyor

 

[ozay27]

başka fikri olan varmı arkadaşlar

 

[Recep İpek]

Sayın ozay27,

Bu işinize yarar mı?

[vb:1:c80444c253]
Sub LinkBul()
Dim alan As Range
Dim i, j, adet As Integer
Dim Mesaj1, Mesaj2, Mesaj3 As String
Dim MyArray()
For i = 1 To Worksheets.Count
adet = 0
For Each alan In Sheets(i).UsedRange
If InStr(1, alan.Formula, "[") Then
alan.Interior.ColorIndex = 6
adet = adet + 1
ReDim MyArray(1 To adet)
MyArray(adet) = Sheets(i).Name & " --- " & alan.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then Mesaj2 = Mesaj2 & Chr(13) & MyArray(j)
Next
End If
Next
Mesaj1 = Mesaj1 & Chr(13) & Sheets(i).Name & " Sayfasında " & adet & " adet "
Next
Mesaj3 = "(Bulunan Hücreler Sarı Renkle İşaretlenmiştir)"
MsgBox Mesaj1 & Chr(13) & WorksheetFunction.Rept("--", 25) & Chr(13) _
& "Dış Bağlantılı Hücre Bulundu." & Chr(13) & Chr(13) _
& "Bulunan Hücreler :" & Chr(13) & Mesaj2 & Chr(13) & Chr(13) & _
Mesaj3, , "Uyarı"
End Sub
[/vb:1:c80444c253]

 

[ozay27]

sayın ripek tek kelime ile harikasınız teşekkür ederim