Hyperlink kontrolü

[emregeckin]

Tablomda dosya sunucumuz (\\10.0.0.12 gibi yerel) üzerindeki dwg ve pdf uzantılı dosyalara ulaşan hyperlinklerim var. Binlerce...

Bu hyperlinklerin çalışıp çalışmadığını kontrol etmek istiyorum.

Bir hyperlinke ulaşamadığımda "cannot open the specified file" uyarısını alıyorum.
Acaba bu uyarının =ERROR.TYPE benzeri şekilde kontrol edilebilecek hata kodu var mıdır ?

Ya da bildiğiniz başka bir yöntem var mıdır ?

Teşekkürler...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Bağlantı kuramadığı hücreyi kırmızıya boyar.

Sub LinkKontrol()
    
    Dim Hücre As Range
    Dim Yol     As String
    
    For Each Hücre In Selection
        If Hücre.Hyperlinks.Count > 0 Then
            Yol = Hücre.Hyperlinks.Item(1).Address
            If Dir(Yol) = "" Then Hücre.Interior.ColorIndex = 3
        End If
    Next Hücre
 
End Sub

 

[emregeckin]

...1......1...

 

[Necdet]

Merhaba,

İşyerinde her yere bağlanamıyoruz malasef.

 

[emregeckin]

...1......1...