Exceldeki linkleri kaldırmak

[blueall]

Merahabalar,

.xlsx veya .xls kayıtlı excell dosyalarımdan bazıları linklenmiş. Menülernden liklere gelip linkleri bırakmasını istiyorum ama olmuyor çünkü linkleri bulamadığı için silemiyorum. Kaynağı olmayan linkleri silemediğim içinde dosyada enable macro dediğimiz zaman program çaklıyor.


Bu dosyaları tekrardan oluşturma şansım yok zira 1 milyon satıra kadar raporlarımız var.

Yardımcı olurmusunuz ne yapmalıyım.

Teşekkürler,

 

[blueall]

Cevap olmadığına göre sorum net anlaşılmamış olabilinir.

Eskiden başka yerlerde linklenmiş excelleri şu an açmaya çalıştığımda ilgili linki bulamadığından dosya kitleniyor ve uzun süre sonra linkleri bulamıyorum diyor. Linkleri brakmasını veya silmesini istiyorum ama silmiyor. Yardımcı olabilirmisiniz. Eski linkleri nasıl kaldırırım excel dosyasından ?

iyi çalışmalar,

 

[cellswhite]

Merhaba,

Aşağıdaki kodu bir donguye bağlayarak sorunu çözebilirsiniz.

Sub RemoveHyperLink()
For x=1 to [a65536].End(3).Row
  Range("a"&x).Select
  Range("a"&x).Hyperlinks.Delete
Next
End Sub

 

[blueall]

Nasıl yapıcam bunu, yardımcı olurmusunuz.

 

[cellswhite]

Merhaba,

Dosyanın içindeki özel bilgileri silip ornek teşkil etmesi açısından "rastgele verilerden oluşan" dosyayı paylasabilirmisiniz.

 

[blueall]

Hemen paylaşıyorum.

Dosyayı açtığınızda Enable Content die bişey çıkar tepede. Enable diyince dosya kitleniyor yaklaşık 5-6 dk sonra hata veriyor şu linkleri bulamadım die.

 

[blueall]

Aşşağıdaki resimdeki gibi link çıkıyor. Bu linki ne silebiliyorum nede temizleyebiliyorum.

Link 'in asıl yeri yok zaten,

[/URL] Uploaded with ImageShack.us[/IMG]

 

[cellswhite]

Dosyayı açamıyorum desem inanırmısınz.
Aklıma soyle birşey geldi.
Boş br excel açıp Activex Setting ozellğini Disable yaparmısın.
Daha sonra istediğini silebilirsin diye düşünüyorum ( Dosyayı bulmaya calisiyor dosyada olmadıgından dolayı kitleniyor )
Ekteki resme bakabilirsiniz.

 

[cellswhite]

düzeltiyorum , External connect özelliklerinide disable yapıp denermisin. Daha sonra bunları yenıden enable yapabilirsin.

 

[cellswhite]

merhaba,

test ettim dosya rahatlıkla açılabiliyor.

 

[blueall]

Merhabalar,

Söylediğiniz gibi yaptım ve dosya açıldı. Daha önceden de açılıyordu ama link i gösteriyor.

Amacım bu linki silmek, cünkü bunu gibi bir dünya excel dosyası var, bunları bi şekilde temizlemeliyim.

 

[cellswhite]

İyi geceler,

Linklerin A kolonundan oldugu varsayılmıstır.

Sub RemoveHyperLink()
For x=1 to [a65536].End(3).Row
  Range("a"&x).Select
  Range("a"&x).Hyperlinks.Delete
Next
End Sub