Ardışık Sıralı Hyperlink

[apocal07]

Herkese merhaba. Şu an yaptığım bir iş için excel dosyasında yaklaşık 2400 tane .pdf dosyasını tek tek B sütunundaki hücrelere hyperlink bağlantı kurmam gerekiyor.

Örn:
B19 ("14") -->C:\Users\apocal\Desktop\without_alarms\TR_Report0014.pdf
B20 ("15")-->C:\Users\apocal\Desktop\without_alarms\TR_Report0015.pdf
B21 ("16")-->C:\Users\apocal\Desktop\without_alarms\TR_Report0016.pdf

Bunu yapabilmenin kolay bir yolu var mıdır acaba? http://i54.tinypic.com/2ms23av.jpg Screensot ne demek istediğimi daha kolay anlatır umarım. İkinci sorum ise excel .pdf dosyalarından belirli verileri belirli hücrelere atayabilir mi? (Böyle bir şey mümkün mü?) Onun için de şöyle bir screenshot koyayım: http://i55.tinypic.com/vrwn5y.jpg
Tamam ikinci isteğim biraz saçma olabilir ama ilki için yardım edebilirseniz sevinirim . Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub PdfLinkEkle()
 
    Dim aDres As String, i As Long, sAyac As String
 
    aDres = "C:\Users\apocal\Desktop\without_alarms\TR_Report"
 
    For i = 6 To Cells(Rows.Count, "B").End(xlUp).Row
        sAyac = Format(i - 5, "0000")
        ActiveSheet.Hyperlinks.Add Cells(i, "B"), aDres & sAyac & ".pdf"
    Next i
    
End Sub

.

 

[apocal07]

Hocam, Allah ne muradın varsa versin. Eline koluna bilgisayarına klavyene sağlık.

İkinci sorumun bir yolu yok sanırım .

 

[Ömer]

Teşekkür ederim.

İkinci sorum ise excel .pdf dosyalarından belirli verileri belirli hücrelere atayabilir mi?

Bu sorunuzla ilgili bir bilgim yok maalesef.

.

 

[apocal07]

Peki çok teşekkürler hocam, gerçekten büyük bir zahmetten kurtardın beni.