TC kimlik numarasına göre klasöre gitmek

[metin_0606]

C:\ nin icinde TC kimlik numaralarina göre kayitli 500 klasorum var. Ve bu kalsorlerde bu peronellere ait PDF , doc ve xlsx uzantılı dosyalar var. Sayfa 1 in A sütununda bu 500 kişinin TC kimlik numaraları kayıtlı. Ben sayfa 1 de kimin TC kimlik numarasına tiklarsam onun klasörü açılsın istiyorum. Bu konuda yardımlarınızı bekliyorum şimdiden tesekkurler

 

[kulomer46]

Merhaba

Aşağıdaki kod işinizi görür.

İlgili TC hücresini çift tıkladığınızda, eğer C:\ altında tıkladığınız hücredeki değerle aynı isimli klasör varsa o klasör otomatik açılır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

dosya = "C:\" & target.value

If dosya <> "" Then
    CreateObject("Shell.Application").Open (dosya)
End If

End sub

Not: Ek Bilgi
İsterseniz tıklama sonunda bilgisayarınızdaki istediğiniz dosya yada dosyaların otomatik açılmasınıda sağlayabilirsiniz.
Bunun için yukardaki kod bloğundaki dosya = kısmını aşağıdaki örneğe göre kendi bilgisayarınızdaki dosya yerine göre değiştirmeniz yeterlidir.

dosya = "D:\Desktop\Pictures\Resimlerim\Kakuro Örnekleri PDF.pdf"

Kolay gelsin...

 

[metin_0606]

Teşekkürler tam istediğim gibi

 

[kulomer46]

Teşekkürler tam istediğim gibi

Selamlar...