Hücreye Çift Tıklayarak Makro Çalıştıma

[mesyen47]

Merhaba
Aşağıda İf yapısını kuramıyorum. Amacım hangi hücreye çift tıklandıysa o hücreye ait fonksiyonu çalıştırmak.


Sub D_4825()
Shell "explorer.exe /select, C:\AYAK\AYAK-Ø60-P.01-M16.SLDPRT, vbMaximizedFocus"
End Sub

Sub D_4826()
Shell "explorer.exe /select, C:\AYARLI\M16.SLDPRT, vbMaximizedFocus"
End Sub

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

If Intersect(Target, [D4825]) Is Nothing Then Exit Sub
MsgBox "Dosya Konumu Açılıyor Lütfen Bekleyiniz!", vbInformation
D_4825
If Intersect(Target, [D4826]) Is Nothing Then Exit Sub
MsgBox "Dosya Konumu Açılıyor Lütfen Bekleyiniz!", vbInformation
D_4826

End Sub

 

[EmrExcel16]

Merhaba , bu şekilde deneyiniz..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [D4825:D4826]) Is Nothing Then Exit Sub
    MsgBox "Dosya Konumu Açılıyor Lütfen Bekleyiniz!", vbInformation
    If Target.Address = "$D$4825" Then
        D_4825
    ElseIf Target.Address = "$D$4826" Then
        D_4826
    End If
End Sub

 

[mesyen47]

Kod çalıştı teşekkür ederim.

And Target.Value >= 4 bu ne anlama geliyor.

 

[EmrExcel16]

Merhaba , o bölüm gereksizdi sildim deneme yaparken unutmuşum , sizde silebilirsiniz.