- Katılım
- 18 Kasım 2012
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft Office 365
- Altın Üyelik Bitiş Tarihi
- 04-07-2024
Herkese Merhabalar,
Aşağıda oluşturulmuş olan kod ile listbox da nesnelerini aynı klasörde olmak kaydı ile görüntüleyebiliyoruz.
Ancak kullanılan dosya ile pdf dosyaları aynı klasör içinde olmalı.
Bu dosyaları farklı bir klasörde tutmak ve oradan çekerek görüntülemek istersem kodu nasıl değiştirmeliyim ?
Yardımları için herkese şimdiden teşekkür eder, iyi çalışmalar dilerim.
Syg,
Aşağıda oluşturulmuş olan kod ile listbox da nesnelerini aynı klasörde olmak kaydı ile görüntüleyebiliyoruz.
Ancak kullanılan dosya ile pdf dosyaları aynı klasör içinde olmalı.
Bu dosyaları farklı bir klasörde tutmak ve oradan çekerek görüntülemek istersem kodu nasıl değiştirmeliyim ?
Yardımları için herkese şimdiden teşekkür eder, iyi çalışmalar dilerim.
Syg,
Kod:
If ListBox1.ListIndex < 0 Then
MsgBox "Listeden seçim yapılmalı!"
Exit Sub
End If
On Error GoTo hata
aranan = ListBox1.List(ListBox1.ListIndex, 9)
DosyaYol = ThisWorkbook.Path & "\" & aranan & ".pdf"
ActiveWorkbook.FollowHyperlink DosyaYol
Exit Sub
hata:
MsgBox "Aranan Dosya bulunamadı"