Klasördeki aynı nolu PDF dosyasını açma işlemi?

[tahsinanarat]

Sn. Haluk hocam 19 nolu mesajda söylediklerinizi bu gün yaptırdım, herşey yolunda, bilginize sağlık. Çok teşekkürler.

 

[mars2]

İyi Günler;

Yukarıda vermiş olduğunuz ve aşağıdaki kodla PDF dosyasını açmaktayım. Ancak Zemin no: 8 karakterli (12345678) olup hücrede aynı karakterle rakam olması halinde (örneğin (12) PDF'lerin bulunduğu dosyaki aynı karakterle başlayan tüm PDF dosyalarını açmakta, bu ise işlem yapmama ve bilgisayarın kasılmasına neden olmaktadır.

Yardımlarınız için şimdiden teşekkürler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column <> 6 Or Target.Value = "" Then Exit Sub
pth = ThisWorkbook.Path & "\parsel\"
fname = pth & Target.Value & "*.pdf"
dosya = Dir(fname)
Do While dosya <> ""
dosya = pth & dosya
ActiveWorkbook.FollowHyperlink dosya
dosya = Dir()
Loop
End Sub