bağlantı iptali

Katılım
18 Aralık 2005
Mesajlar
86
Excel Vers. ve Dili
EXCELL 2003 TR
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
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
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.
 
Katılım
18 Aralık 2005
Mesajlar
86
Excel Vers. ve Dili
EXCELL 2003 TR
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
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
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]
 
Katılım
18 Aralık 2005
Mesajlar
86
Excel Vers. ve Dili
EXCELL 2003 TR
sayın ripek tek kelime ile harikasınız teşekkür ederim :)
 
Üst