Bir Dosyaya Başvuru ve Güncelleme

[rcagan]

Toplam 42 sayfadan oluşan okulumun maaşını hazırladığım bir dosyam var. Ne zaman yaptığımı hatırlamıyorum ama bu sayfalardan herhangi birinde başka bir çalışma kitabına başvuru yapmışım, bu nedenle dosyayı her açtığımda haklı olarak güncelleştirmemi istiyor. Dosyama, başvurduğu dosyanın ismini verdim ama gene de kurtulamadım. Hangi sayfanın hangi hücresinde başvuru olduğunu tek tek aramam lazım ki bu da çok zor. Bunu bulmamın kolay bir yolu var mıdır acaba?

 

[zafer]

Merhaba

Sn.Haluk'un bir çalışması kodları deneyiniz.
Hangi sayfanın hangi hücresinde bağlantı var yazar ve hücreyi boyar

[FONT=Verdana] [/FONT]
[FONT=Verdana]Sub BAGLANTI_BUL()[/FONT][FONT=Verdana][/FONT]
[FONT=Verdana][B]Dim MyRange As Range
Dim i As Integer, j As Integer, No As Integer
Dim MyMsg[/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] As String, MyMsg[/B][/FONT][FONT=Verdana][B]2[/B][/FONT][FONT=Verdana][B] As String, MyMsg[/B][/FONT][FONT=Verdana][B]3[/B][/FONT][FONT=Verdana][B] As String
Dim MyArray()
For i = [/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] To Worksheets.Count
No = [/B][/FONT][FONT=Verdana][B]0[/B][/FONT][FONT=Verdana][B]
For Each MyRange In Sheets(i).UsedRange
If InStr([/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B], MyRange.Formula, "[") Then
MyRange.Interior.ColorIndex = [/B][/FONT][FONT=Verdana][B]6[/B][/FONT][FONT=Verdana][B]
No = No + [/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B]
ReDim MyArray([/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] To No)
MyArray(No) = Sheets(i).Name & " --- " & MyRange.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then MyMsg[/B][/FONT][FONT=Verdana][B]2[/B][/FONT][FONT=Verdana][B] = MyMsg[/B][/FONT][FONT=Verdana][B]2[/B][/FONT][FONT=Verdana][B] & vbCrLf & MyArray(j)
Next
End If
Next
MyMsg[/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] = MyMsg[/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] & vbCrLf & Sheets(i).Name & " sayfasında " & No & " adet "
Next
MyMsg[/B][/FONT][FONT=Verdana][B]3[/B][/FONT][FONT=Verdana][B] = "(Bulunan hücreler sarı renkle işaretlenmiştir.)"
MsgBox MyMsg[/B][/FONT][FONT=Verdana][B]1[/B][/FONT][FONT=Verdana][B] & vbCrLf & WorksheetFunction.Rept("--", [/B][/FONT][FONT=Verdana][B]20[/B][/FONT][FONT=Verdana][B]) & vbCrLf & "Dış bağlantılı hücre bulundu." _
& vbCrLf & vbCrLf & "Bulunan hücreler :" & vbCrLf & MyMsg[/B][/FONT][FONT=Verdana][B]2[/B][/FONT][FONT=Verdana][B] _
& vbCrLf & vbCrLf & MyMsg[/B][/FONT][FONT=Verdana][B]3[/B][/FONT][FONT=Verdana][B], , "Rapor !"[/B][/FONT][FONT=Verdana][/FONT]
[FONT=Verdana]End Sub[/FONT]

 

[rcagan]

Başka dosyaya bağlantı

Zafer arkadaşım, ilginiz için çok teşekkür ederim. O kodu aldım yeni bir excel dosyasında bir modül ekleyerek oraya yapıştırdım. Dosyama da hem başka bir dosyadan hem de aynı dosyanın ikinci sayfasından bir başvuru yaptırıp kaydettim. Güncelleştirmeden yeniden açtım bir belirti yok, kapatıp bu sefer güncelleştirerek açtım gene bişey yok. Sonra modülü sildim ve ThisWorkbook yazan yere yapıştırdım aynı işlemleri yeniden yaptım gene bişey yok :-((((
Bunca uğraşımdan sonra gene de ben becerememiş olabilirim, yada yazılımda bişey var. Zahmet olmazsa bir dosyada deneyerek bir de siz baksanız? Oluyorsa buraya dosyayı koyarsanız çok memnun olacağım. Belki çok şey istiyorum ama :-((
Bu arada ben başvuru içeren hücreyi buldum, sorunum kalmadı ama bu konuyu öğrenmekte fayda var, ilerde ne olur ne olur Tekrar teşekkürler, iyi çalışmalar.

 

[zafer]

Merhaba

Benim devamlı kullandığım kodlar.Hiç hataya raslamadım.
Kodları bir butona bağlayıp çalıştırdınızmı.

 

[rcagan]

Butona bağlamayı bilmiyorum, dolayısıyla onu yapmadım. Bir önceki mesajda yazdıklarımı yapmıştım. Nasıl yapmam gerektiğini anlatmak çok zor olmayacaksa anlatırsanız mutlu olurum. Teşekkür ederim.

 

[Levent Menteşoğlu]

Eğer linkleri silmek istiyorsanız aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=22291&highlight=LinkSources

Kod yazmadan linkli hücreyi bulmak için control+F ile arama penceresine gelin ve aranan kutusuna [ (köşeli parantez) yazarak tümünü bul butonuna tıklayın.

 

[rcagan]

Başka dosyaya bağlantı

Teşekkür ederim LEVENTM.
Hiç kod falan yazmadan, dediğiniz gibi ne kadar başvuru varsa buluyor. Yalnız çalışma kitabındaki değil sadece o sayfadakileri buluyor. Aynı işlemi kitabın tüm sayfalarında yapınca işlem tamam. Çok işime yaradı çok teşekkür ederim.