Makro ile PDF Dosyasını Çağırma

Katılım
8 Aralık 2009
Mesajlar
13
Excel Vers. ve Dili
excel 2010
Merhabalar,
Makro ile PDF formatındaki dosyaları çağırmak istiyorum. Örnek dosyada bir kod yaptım fakat döngüsel hata veriyor ve daha iyi şekilde çalışacak şekilde geliştirilmesi lazım yardımcı olursanız çok sevinirim. Şimdiden teşekkürler.Örnek Dosya
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
28,901
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Deneyiniz.

C++:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Dosya_Adi As String, Yol As String
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target <> "" Then
        Dosya_Adi = Target.Offset(, 1).Text & "-" & Target.Text & ".pdf"
        Yol = ThisWorkbook.Path & "\dosya\"
        If Dir(Yol & Dosya_Adi) <> "" Then
            CreateObject("Shell.Application").Open Yol & Dosya_Adi
        Else
            MsgBox "Dosya bulunamadı!", vbCritical
        End If
    End If
End Sub
 
Katılım
8 Aralık 2009
Mesajlar
13
Excel Vers. ve Dili
excel 2010
Çok Teşekkür ederim. Gerçekten tam istediğim gibi olmuş ellerinize sağlık.
 
Üst