• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
8 Ağustos 2011
Mesajlar
11
Excel Vers. ve Dili
excel2003 türkçe
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
 
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
 
Son düzenleme:
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.
 
Geri
Üst