Çoklu Hyperlink Verme

[HEROMEN]

Merhabalar,

Bir çalışma dosyamda A1 den başlayarak "1, 2, 3, 4....6000", numaralar var
Buna karşılık Bilgisayarımın bir klasöründe (örn."c:/1500.Pdf") aynı isimlerde PDF dosyalarım var "1, 2, 3,..1500"

Benim istediğim A Sütununda bulunan Sayılar (değerler) hedef klasördeki dosya isimleriyle eşleşiyorsa hyperlink oluştursun. eşleşmiyorsa link vermesin.

Mesela "5" yazan hücreye bastığım zaman "5" adındaki PDF dosyasını açacak.

Şimdiden yardımlarınız için Teşekkürler.

 

[mancubus]

..............

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz, Kırmızı ile yazılan yeri kendinize göre uyarlayınız.

Sub Kopru_Ekle()
 
    Dim i       As Long
    Dim j       As Long
    Dim Yol     As String
 
    Yol = "[B][COLOR=red]C:\[/COLOR][/B]"
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
 
        If Dir(Yol & Range("A" & i) & ".pdf") > "" Then
            j = j + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:= _
            Yol & Range("A" & i) & ".pdf"
        End If
    Next i
 
    MsgBox j & " Adet Dosyaya Köprü Ekledim..."
 
End Sub

 

[HEROMEN]

Merhaba,

Aşağıdaki kodları dener misiniz, Kırmızı ile yazılan yeri kendinize göre uyarlayınız.

Sub Kopru_Ekle()
 
    Dim i       As Long
    Dim j       As Long
    Dim Yol     As String
 
    Yol = "[B][COLOR=red]C:\[/COLOR][/B]"
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
 
        If Dir(Yol & Range("A" & i) & ".pdf") > "" Then
            j = j + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:= _
            Yol & Range("A" & i) & ".pdf"
        End If
    Next i
 
    MsgBox j & " Adet Dosyaya Köprü Ekledim..."
 
End Sub

Necdet bey çok teşekkürler. Tam istediğim gibi çok işimi gördü. Formlarda çok aradım bulamamıştım.
İyi çalışmalar.

 

[Necdet]

Necdet bey çok teşekkürler. Tam istediğim gibi çok işimi gördü. Formlarda çok aradım bulamamıştım.
İyi çalışmalar.

Güle güle kullanınız.

 

[HEROMEN]

Güle güle kullanınız.

Necdet bey Merhaba tekrar.
Acaba bu kodlara karşılaştırma yapacağı Range'ini (Alanını) sordurtarak hyperlink ekletebilirmiyiz?

mesela : "Hangi alan arası link eklenecek?" a5:a100 gibi

çünkü: A Sütunudaki linkleri her seferinde tekrar ekliyor uzun zaman alıyor.

Teşekkürler.

 

[blackart669]

bu kodları çalıştırmak için excelde nereye yazmamız gerekiyor fx farklı birşey sanırsam bu