çoklu köprü ekleme

[selocan46]

Arkadaşlar Merhaba
Excel listeme çoklu olarak köprü eklemek istiyorum.
Bir klasör içerisinde yaklaşık 600 tane pdf uzantılı resimlerim var.
A hücresinde resmin adı listelenmiş durumda .E hücresinde köprü olsun tıkladığımda A daki resim koduna göre klasörden resmi açsın istiyorum.
Örnek A2: 1002.39.pdf E2 deki köprü adresi C:\Users\selahattin\Desktop\SELAHATTİN TEDARİKÇİ NOTLARI\SARIMET\sarımet teknik resimler

Yardımlarınız için şimdiden teşekkür eder iyi çalışmalar dilerim

 

[askm]

Aşağıdaki kodu bir butona atayın. Hangi satırda iseniz butona tıkladığınızda o satırdaki A sütunundaki dosyayı açar.

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub PDF_Ac()
yol = "D:\"
dosya = Cells(ActiveCell.Row, 1)
Belge = yol & dosya
ShellExecute 0, "Open", Belge, "", "", vbNormalNoFocus
End Sub

 

[selocan46]

Sayın Askm
Yardımınız için çok teşekkür ederim.
http://dosya.co/pqltlopkjxu3/1.xlsm.html


İlgili dosyayı linke yükledim.
D hücresi aktif olsun tıklayınca açılabilirmi? Düğmeye makro atayınca özellikle alt satırlarda sorun olacak.
Teşekkürler iyi çalışmalar