Hücrelerdeki linkleri toplu olarak değiştirme

[maakbulut]

Merhaba;

1.500 adet hücredeki linkleri toplu olarak değiştirmem gerekiyor. Ekteki dosyada örneğin F:\0001.pdf olan hücrenin linkini \\pc\0001.pdf olarak değiştirmem gerekiyor. 1.500 adet hücrenin linkindeki "F:" yerine "\\pc" olarak değiştirebilecek bir yöntem var mı?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub linkdegistir()
For a = 3 To [a65536].End(3).Row
If Cells(a, "a").Hyperlinks.Count > 0 Then
link = Cells(a, "a").Hyperlinks(1).Address
Cells(a, "a").Hyperlinks(1).Address = Replace(link, "F:", "\\pc")
End If
Next
End Sub

 

[maakbulut]

Levent Bey,

Kod işe yaradı, elinize sağlık. Fakat aralarda link bulunmayan hücreler var. Bu hücrelere kadar yapıyor sonrasında hata veriyor. Bunları atlamasını sağlayabilir miyiz? Yoksa tek tek tarayarak link olmayan satırları aradan çıkartmam gerekecek.

 

[Levent Menteşoğlu]

Üstteki mesajımdaki kodu değiştirdim. Tekrar deneyebilirsiniz.