klasörden belirli koşula göre pdf dosyalarını ekleme

[selocan46]

Değerli Arkadaşlar
Excel dosyamda 1842.71 gibi kodlar var.
Klasör ve alt klasörler içerinde 1842.71 isimli pdf dosyalarım var.
Klasör adresi;
C:\Users\klasör
C:\Users\klasör\klasörb
C:\Users\klasör\klasörb\klasörc
C:\Users\klasör\klasörd
C:\Users\klasör\klasöre
Yapmak istediğim hücrede hangi kod (1842.71,1845.87 vb) varsa klasör ve alt klasörler içerisine bakıp o koddaki pdf dosyasını açması sağlamak.
Yardımlarınız için teşekkürler.

http://dosya.co/zkwb16byx6va/pdf_ekleme_deneme.xlsx.html

 

[muygun]

Merhaba;
Dosya yolunu kendinize göre düzenleyin.
B2 : C65536 aralığında çift tıklayın. Dosya varsa açılacaktır.
İyi çalışmalar.

Link:
http://s7.dosya.tc/server2/irp6hu/selocan46-pdf_ekleme_deneme.zip.html

 

[selocan46]

Sayın Muygun Merhaba
Dosya yolunu düzenleyin derken aşağıdaki koddamı yoksa hücre içerisindeki c hücresinemi klasör adresini yazacağım acaba?
Bir yere kadar geldim farklı bir kodla pdf ler tek yerde olsa hücreyi tıklayınca açacağım ama pdf ler c de iç içe klasörler içerisinde tek yere toplamam gerekiyor...


İlginize teşekkür eder iyi çalışmalar dilerim


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:c65536")) Is Nothing Then
satır = Target.Row
Cancel = True

yol_dosya = Cells(satır, "c") & "\" & Cells(satır, "b") & ".pdf"
If yol_dosya <> "" Then
CreateObject("Shell.Application").Open (yol_dosya)
End If
End If
End Sub

 

[muygun]

Merhaba;
Kodlarda herhangi bir düzeltme yok. Sadece deneme yapabilmek için C sütununda dosya yolunu değiştirmiştim. (düzeltme yapacağınız yer burası)
İyi çalışmalar.