tahsinanarat
Altın Üye
- Katılım
- 14 Mart 2005
- Mesajlar
- 2,158
- 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)
a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column
c = ActiveWindow.RangeSelection.Address
ad = Worksheets(ActiveSheet.Name).Cells(a, b).Value
Dosya = Worksheets(ActiveSheet.Name).Cells(a, b).Value
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
Cancel = True
End Sub
C:\Users\tahsin.anarat\Desktop\selami_çalış\deneme1.pdf |
C:\Users\tahsin.anarat\Desktop\selami_çalış\deneme2.pdf |
C:\Users\tahsin.anarat\Desktop\selami_çalış\deneme3.pdf |
C:\Users\tahsin.anarat\Desktop\selami_çalış\deneme4.pdf |
Yukarıdaki kod ile a sutununda bulunan dosya yolunu çift tıklama ile açabiliyorum. Burda herhangi bir sıkıntım yok.
Tekrar excel dosyasına maus ile tıkladığımda imleç aktif oluyor.
Benim istediğim pdf dosyasını açtıktan sonra imlecin tekrar üzerine çift tıkladığım hücrede aktif olmasını istiyorum.
Bir türlü yapamadım yardımcı olacak arkadaşlarıma şimdiden teşekkür ediyorum. Saygılar.