hücredeki yazan dosyayı açmak

[ermanusta]

"Firma" adındaki klasör içinde "Faturalar" adında bir çalışma kitabım var

bu çalışma kitabında A sütununda 1 den 5000 e kadar rakam var

örneğin "A245" hücresine çift tıkladığımda Firma klasörü içindeki "faturalar" klasöründe bulunan 245 numaralı dosya açılmalı

bu mümkün mü?

 

[TEGCreative]

Evet,mümkün. Köprü ile bu işi yapabilirsiniz.

 

[lark]

Sayfanın kod bölümüne yapıştırıp, dosya yolunu kendinize göre düzeltin.

Option Explicit

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

    Dim alan As Range, myShell As Object

    Set alan = Range("A1:A5000")

    If Intersect(Target, alan) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Cancel = True

    On Error GoTo x:

    Set myShell = CreateObject("WScript.Shell")

    myShell.Run "C:\firma\faturalar\" & (Target) & ".pdf"

x:

    Application.EnableEvents = True

    Set alan = Nothing

    Calculate

End Sub