tahsinanarat
Altın Üye
- Katılım
- 14 Mart 2005
- Mesajlar
- 2,164
- Excel Vers. ve Dili
- Ofis 2019 Türkçe
- Altın Üyelik Bitiş Tarihi
- 27-05-2028
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
pth = "C:\GEREKLİ\dilekçe_pdf\"
fname = pth & "*" & Target.Value & "*.pdf"
dosya = Dir(fname)
If dosya <> "" Then
dosya = pth & dosya
ActiveWorkbook.FollowHyperlink dosya
Else
MsgBox "Dosya Bulunamadı..."
End If
End Sub