dosya bağlantı hakkında

[yelgecak]

aradım sitede ama bulamadım

=EĞERHATA(DÜŞEYARA(anasayfa!B2;'\\OSMAN\Users\Public\MEMLEKET\ocak\[02.xls]Kurtarılan_Sayfa1'!$A$14:$I$1000;7;0);0)


yukarıdaki şekilde bi formülüm var burada 02.xls dosyasından veri alıyor. benim istediğim klasör içinde 02.xls dosyası yoksa bu hücrenin boş olması.

şimdiden teşekkürler

 

[yelgecak]

yokmu cevap verecek biri arkadaşlar ?

 

[yelgecak]

yokmu cevap verecek bi usta ?

 

[levo26]

Merhaba,

Düzen>bağlantılar>bağlantıyı kes diyerek tüm bağlantıları kaldırabilir. Yada bağlantılı olanı ayni adımları kullanarak kaldır diyerek yapabilirsiniz.

 

[yelgecak]

Merhaba,

Düzen>bağlantılar>bağlantıyı kes diyerek tüm bağlantıları kaldırabilir. Yada bağlantılı olanı ayni adımları kullanarak kaldır diyerek yapabilirsiniz.

bağlantıyı kes dediğin zaman formüller siliniyor. formüller silinmeden hücre değerini sıfırlamak istiyorum. dosya yoksa hücre boş dosya varsa dosyadaki değeri.

yardımlarınızı rica ediyorum

 

[levo26]

Merhaba;
Aşağıdaki kodları çalışma kitabının modülüne yapıştırarak makroyu çalıştırınız. Bağlantılı hücreler sarı ile renklendirilecektir.

Sub ExRef()
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.ClearContents
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