A sutunundaki dosyayı açtıktan sonra tekrar aynı hücreye dönmesi

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,158
Excel Vers. ve Dili
Ofis 2019 Türkçe
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.
 
Üst