İstenilen Dosyaları Açma

[unsal_]

Bir sitede şöle bir kod buldum.

Private Declare Function openpdf Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal Cengel As Long, ByVal Operasyon As String, ByVal Dosya As String, _
ByVal Parametreler As String, ByVal Dizin As String, _
ByVal GosterimKomutu As Long) As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "C:\Belgelerim\" & Range("A" & ActiveCell.Row).Value & ".pdf"

  openpdf 0, vbNullString, Range("A" & ActiveCell.Row).Value & ".pdf", vbNullString, "C:\Belgelerim\", 1

End Sub

Bu kod çalışıyor ama , şöle bir sıkıntım var
E:\personel\ klasörünün içine Personele ait Bilgileri Rar la sıkıştırarak kaydediyorum rarlı dosya işmi TC kimlik No oluyor rarlı dosyanın içindeki pdf dosyalarınıda personelin ismi ile kaydediyoru.

Sorun B sütunundaki tc noya tıkladığımda Rarlı dosyayı açıyor
A sütununa tıklasamda dosyaları açıyor.
Benim istediğim Sadece B stununa tıkladığımda Dosyanın açılması.
nasıl bir düzenleme yapmak gerekiyor.

 

[Huseyinkis]

ekteki gibi denermisiniz.

Private Declare Function openpdf Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal Cengel As Long, ByVal Operasyon As String, ByVal Dosya As String, _
ByVal Parametreler As String, ByVal Dizin As String, _
ByVal GosterimKomutu As Long) As Long

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

If Target.Column <> 2 Then Exit Sub
MsgBox "C:\Belgelerim\" & Range("A" & ActiveCell.Row).Value & ".pdf"

  openpdf 0, vbNullString, Range("A" & ActiveCell.Row).Value & ".pdf", vbNullString, "C:\Belgelerim\", 1

End Sub

 

[unsal_]

Huseyinkis ,
Teşekkür ederim istediğimizi tam anlamı ile veriyor.