DOSYA DIŞINDAN LİNK ALAN HÜCRELERİ BULUP PASTE VALUE YAPMAK

[Türker]

Merhabalar

Aylık olarak bana gönderilen bir dosyada protect olmayan hücreler dışarıdan link almaktadır.Bu linklerin çok olması nedeni dosyada işlem yapmam zorlaşıyor.Bu linkleri bir topluca kopyalayıp paste value yapmam gerekiyor.Bunun için kısa bir yol var mı eğer yoksa macro ile nasıl yapılabilir.
Teşekkürler

 

[mehmett]

Menülerden şu komutu verin;

Düzen > Bağlantılar > Bağlantıyı kes.

 

[Türker]

Merhaba
Dosya şifreli olduğu için bağlantı kes tuşu pasif durumda ve çalışmıyor.
Bu nedenle bu özelliği kullanamıyorum.Çözüm için farklı bir çözüm var mı?
Teşekkürler k::

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub degeryaz()
On Error Resume Next
Link = ActiveWorkbook.LinkSources(xlExcelLinks)
For a = 1 To UBound(Link)
ActiveWorkbook.BreakLink Name:="" & Link(a), Type:=xlExcelLinks
Next
End Sub