Makro atayarak dosya çağırma

[lev_sez]

Benim istediğim şu şekilde bir dosya çağırmak olacaktır.

Alt alta kodlar yazıyorum. Örneğin

KM-1107-LS-01
KM-1107-LS-02
KM-1107-LS-03
KM-1107-LS-04
KM-1107-LS-05

Bu şekilde yazdığım kodlar için her seferinde bilgisayarımdaki bir dosyada bulunan aynı isimdeki dosyalara link veriyorum. Yani Hücre üzerine tıkladığımda o lasördeki aynı isimli PDF dosyasını açıyorum. Bunu her seferinde kendim link atamak istemiyorum. Ben her yeni kod yazdığımda otomatik olarak kendi o klasör içerisindeki dosyayı bulsun istiyorum.

Bunu yapmak mümkün müdür?

Örnek dosya ektedir.

 

[halit3]

Bunu denermisiniz. hücreye çift tıklayınca dosya açılıyor

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
Klasor = ThisWorkbook.Path ' BURASI DOSYALARIN BULUNDUĞU YOL
Dosya_Adi = Target.Cells
If Dosya_Adi <> "" Then
CreateObject("Shell.Application").Open (Klasor & "\" & Dosya_Adi & ".pdf")
End If
End Sub

 

[lev_sez]

çok teşekkürler çalışıyor. benü büyük bi külfetten kurtardınız

 

[halit3]

çok teşekkürler çalışıyor. benü büyük bi külfetten kurtardınız

İyi çalışmalar

 

[AkarUgurlu]

Dosya açma

Merhaba.
yaklaşık 4 yıldır yararlandığım ve çok şey öğrendiğim bu platformdaki herkese teşekkür ederim.
Bu benim ilk paylaşımım.
yine bu platformdan aldığım bir personel dosyasını kendime uyarladım fakat userform!a çağırdığım kişinin cv'sini de "CV GÖRÜNTÜLE" tuşu ile görüntülemek istiyorum.(CV dosyası masa üstümde "CV ler " diye kayıtlı)
yardımlarınızı rica ederim

 

[engineer1993]

Merhabalar,
Kısa bir soru sormak istiyorum... VBA yeni başladığım için biraz sorun yaşıyorum... Yukarıda belirtilen kısa yolu ben de kullanmak istiyorum fakat destek olabilir misiniz? Benim dokümanlarımın bulunduğu klasör :
C:\Users\Desktop\Desktop\Müşteri takip ve ben yolu bir butona bağlamak isitiyorum nasıl güncellemem lazım? Destek olabilir misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Cancel = True
Klasor = ThisWorkbook.Path ' BURASI DOSYALARIN BULUNDUĞU YOL
Dosya_Adi = Target.Cells
If Dosya_Adi <> "" Then
CreateObject("Shell.Application").Open (Klasor & "\" & Dosya_Adi & ".pdf")
End If
End Sub