bağlantıları koparmak

[akd]

Merhaba arkadaşlar,
bir çok çalışma kitabımız, diger çalışma kitaplarından sayfa alış arişinde bulunuyoruz, bundan dolayı her açılışta " bu çalışma kitabı diger çalışma kitaplarıyla otomatik bağlantılar içeriyor diye uyarı çıkıyor
bu bağlantıları makro ile tamamen silemezmiyiz.

Ben böyle bir kod bulursam xla olarak kaydedip yardım menüsünün yanına kaydetmeyi düşünüyorum.
saygılar...

 

[Hüseyin]

Merhaba akd.
Foruma hoşgeldiniz. :hey:

Excelin bu durum için bir menü seçeneği var.
Düzen menüsünden Bağlantıları seçin.
Gelen sayfada bir veya birden fazla bağlantı listenmiş olacak.
Bağlantısını kesmek istediğiniz linki veya linkleri seçin Bağlantıyı Kes butonuna tıklayın.
Bu linklerin bulunduğu hücrelerde artık en son aldıkları değer statik veri olarak kalacaktır.

Umarım sorununuzu çözer.
:wink:

 

[akd]

Merhaba sayın hüseyin hoşbulduk,
ben ofis2000 kullanıyorum bu dediginiz bağlantıyı kes seçenegini bulamadım.
1- şimdi güncelleştir
2- kaynağı aç
3- kaynağı degiştir
var bunlarla bu bağlantıları silemiyorum malesef.
selamlar...

 

[Hüseyin]

Selam tekrar,
http://www.herber.de/andere/findlink.zip
adresinde hazır bir eklenti var.
Bunu kurduğunuzda Araçlar manüsünde Find Links diye bir seçenek ekleniyor.
Bir inceleyin belki işinize yarar.

:icelim:

 

[ahmet79]

bendede aynı problem var. yukarıdaki eklentide işe yaramıtor

 

[red_lion_72]

Selam,

Sayfada başka formüller yoksa yada bağlantıların olduğu hücreler yan yana ise kopyalayıp özel yapıştır ile değerleri yapıştırın. Ama sayfada başka formüller varsa dikkat....

Kolay gelsin.

 

[balca]

Merhaba;
Aşağıdaki kodları bi deneyin.. :hey:

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)
MyRange.Value = MyRange.Value

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

 

[Levent Menteşoğlu]

Birde aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=4372&highlight=g%FCncelle%FEtir

 

[akd]

Sayın ahmet79 ,
ben çareyi şöyle buldum
çare 1-ofisxp yükle, düzen/bağlantılar/dış bağlantıları iptal et seçenginden
çare 2- ekle/ad/tanılayı açın oradaki daha önce tanımlı olan alanlar var,
diğer belgelere tanımlı olanları silerseniz ,
sorunun mümkün meretebe azalır,
çare 3- belgelerimin içine boş bir excel belgesi açın, düzen/bağlantılar/kaynağı degiştiri seçip, tek tek listedeki bağlantıları, belgelerime oluşturduğunuz, excel çalışma kitabına bağlayın.
bu kadar.......

 

[balca]

Merhaba:

Verdiğim kodlar bağlantılı olan verileri değere dönüştürüyor istediğiniz bu değil mi?

 

[yıldız57]

BAĞLANTI UYARISI

Arkadaşlar sizler birer dahisiniz. Hüseyin arkadaşın dediği gibi yaptım otomatik güncelleme uyarısı sizlere ömür, yoksa kafayı yiyecektim. Tüm siteye geçenlere bizzat minnettarım. her konuda çok faydalarını görüyorum. Çooooooook teşekkürler; :arkadas:

 

[hsayar]

arkada&#351;lar exref makrosunu &#231;al&#305;&#351;t&#305;rd&#305;m
ayr&#305;ca t&#252;m alan isimlerinide sildim

Sub silalanismi()
Dim alani As Name
For Each alani In ActiveWorkbook.Names
alani.Delete
Next
End Sub

buna ra&#287;men d&#252;zen ba&#287;lkant&#305;lar&#305; d&#252;zenlede link var ama ba&#287;lant&#305;lar&#305; g&#252;ncelle&#351;tireyimmi diye sormuyor.
buna ra&#287;men beni rahts&#305;z ediyor.
nas&#305;l d&#252;zeltebilirim.