formüllü dosyamı her açtığımda update-dont update diye sormasın-

[tekocan]

:alkolik: formüllü dosyamı her açtığımda update-dont update diye sormaması için ne yapmalıyım.
Saygılarımla..

 

[Necdet]

Linkli hücreleri bulmak

Başka bir dosyaya olan linkli hücre(ler)i bulup kaldırmanız gerekir.
Aşağıdaki kodları bu siteden bulmuştum, kimin yaptığını anımsamıyorum, yazanın eline sağlık.

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

Yukarıdaki kodlar bulmazsa, aşağıdaki kodları deneyiniz

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

 

[Ferhat Pazarçevirdi]

Nejdet hocama ek olarak diğer alternatifleri de ben vereyim.

(1) Alternatif : Eğer, "Dosyamda hiç link olmasın" diyosanız -ki bunlar muhtemelen işe yaramaz, ölü linklerdir- Menüden, Düzen->Bağlantılar'dan, ilgili bağlantıyı seçip, BAĞLANTIYI KES diyebilirsiniz.

(2) Alternatif : "Linkler dursun, bana bir zararı yok ama her zaman açılışta sormasın kardeşim, kendi kendine güncellesin" diyorsanız ...Araçlar->Seçenekler->Düzen'den, "Otomatik Bağlantıları Güncelleştirmek için sor" seçeneğinin karşısındaki işareti kaldırın.

(3) Alternatif : "Linkler dursun, bana bir zararı yok ama her zaman güncelleştirmesin" diyorsanız, Araçlar->Seçenekler->Hesaplama'dan "Uzak Başvuruları Güncelleştir" seçeneğinin karşısındaki işareti kaldırın.