Sadece a stununa çift tıklayınca eklesin

[mcetinkaya65]

Aşağıdaki makro ile ana sayfadaki her hangi bir hücredeki yazıya çift tıklayınca o yazıya göre sayfa varsa o sayfayı açıyor.Sayfa yoksa örnek sayfadan saayfa ekliyor.
Benim istediğim Ana sayfanın her hücresi için geçerli olan bu makroyu sadece A stunu için geçerli hale getirmek
Saygılarımla..

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim sayfa As String

If ActiveSheet.Name <> "Ana Sayfa" Then
    Sheets("Ana Sayfa").Select
Else
    sayfa = Target.Value
    If sayfa <> "" Then Sheets(sayfa).Select
End If
Exit Sub
Son:
Sordum = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sordum = vbYes Then
    Sheets("Örnek").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    Range("A1").Value = ActiveSheet.Name '**** ilave
End If
End Sub

 

[ÖmerBey]

Merhaba,
Kodun başına aşağıdaki satırı ilave ediniz.

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

 

[mcetinkaya65]

Üstad başı derken hangi satırdan sonra.

 

[ÖmerBey]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
On Error GoTo Son

 

[mcetinkaya65]

Teşekkür ederim.
Allah razı olsun