bulduğum bu kodu düğme tıklanınca çalışsın şekline getiremiyorum

[dimor]

:yardim:


Sub Düğme1_Tıklat()



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Path = "C:\Users\Admin\Desktop\"
File = Target & ".*"
DosyaAdı = Dir(Path & File)
If DosyaAdı = "" Then
MsgBox "Bu İsimde Dosya Bulunamadı"
Else
ThisWorkbook.FollowHyperlink Path & DosyaAdı
End If
End If
End Sub
End Sub



Expected End Sub hatası diyor. düğmeye tıklayınca bu Private Sub ile başlayan kodu nasıl çalıştırabilirim.Şimdiden teşekkürler

 

[PLİNT]

:yardim:

Sub Düğme1_Tıklat()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Path = "C:\Users\Admin\Desktop\"
File = Target & ".*"
DosyaAdı = Dir(Path & File)
If DosyaAdı = "" Then
MsgBox "Bu İsimde Dosya Bulunamadı"
Else
ThisWorkbook.FollowHyperlink Path & DosyaAdı
End If
End If
End Sub
End Sub



Expected End Sub hatası diyor. düğmeye tıklayınca bu Private Sub ile başlayan kodu nasıl çalıştırabilirim.Şimdiden teşekkürler

Merhaba
Kırmızı bölümleri silin

 Sub Düğme1_Tıklat()
[a1].select     'Aranacak dosyanın adı hangi hücre ise düzeltin
[COLOR="Blue"]If Selection.Column = 1 Then[/COLOR]
Path = "C:\Users\Admin\Desktop\"
File = Target & ".*"
DosyaAdı = Dir(Path & File)
If DosyaAdı = "" Then
MsgBox "Bu İsimde Dosya Bulunamadı"
Else
ThisWorkbook.FollowHyperlink Path & DosyaAdı
End If
End If
End Sub