Klasörden dosya çekmek

[Orion1]

Dosya ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:a10,D1:D10]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 1 Then yol = "\xxx\"
If Target.Column = 4 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

 

[security]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:a10,D110]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 1 Then yol = "\xxx\"
If Target.Column = 4 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

Evren Bey Yine excel i Konuşturmuşsunuz... Tşk..

 

[Orion1]

Evren Bey Yine excel i Konuşturmuşsunuz... Tşk..

Sayın security.
Sanmıyorum,ciddi olduğunuzu.Bunlar küçük şeyler sizin içinde .Sizede çerez kalır bu konular.Bana çitçit çekirdek gibi çitliyorum.çerezlik.coke

 

[sosorry]

Dosya ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:a10,D1:D10]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 1 Then yol = "\xxx\"
If Target.Column = 4 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

çok teşekkür ederim

 

[Orion1]

çok teşekkür ederim

Rica ederim.