Makro çalışmıyor

[mami68]

Sayın üstatlarım bu macroyu çalıştırmak istiyorum hiç tepki vermiyor hatam nerede.Sayaf1 kod sayfasında yazılıdır.İlginize teşekkürler.İyi çalışmalar...

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Targe As Range, Cancel As Boolean)
On Error GoTo Son
If ActiveSheet.Name <> "Anasayfa" Then
Sheets("AnaSayfa").Select
ElseIf Target.Value <> "" Then
Sheets(Target.Value).Select
End If
Exit Sub
Son:
Sordum = MsgBox(Target.Value & "Adlı Sayfa Yok,Eklemek istemisiniz?", vbYesNo, Target.Value & "Adlı sayfanın Açılması")
If Sordum = vbYes Then
Sheets("sablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Value
MsgBox Target.Value & "Sayfası Açıldı...", vbOKOnly, " Hoşgeldiniz"
If Worksheets.Count > 2 Then
For i = 2 To Worksheets.Count - 1
For j = 3 To Workshhets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).More before:=Worksheets(i)
End If
Next j
Next i
End If
End If
End Sub

 

[Ayhan Ercan]

Say&#305;n &#252;statlar&#305;m bu macroyu &#231;al&#305;&#351;t&#305;rmak istiyorum hi&#231; tepki vermiyor hatam nerede.Sayaf1 kod sayfas&#305;nda yaz&#305;l&#305;d&#305;r.&#304;lginize te&#351;ekk&#252;rler.&#304;yi &#231;al&#305;&#351;malar...

Merhaba Sn mami68

Kodu Sayfa1'e de&#287;il Thisworkbook'a yaz&#305;p denermisiniz...

Makroyuda doublu clik yani &#231;ift t&#305;klama ile uygulamaya ge&#231;irin...

 

[mami68]

Sayın Ayhanosyayı gönderdim kontrol edebilirmisiniz?

 

[Ayhan Ercan]

Tekrar Merhaba Sn mami68

ne yapmak istedi&#287;inizi kesin anlamamakla beraber a&#351;a&#287;&#305;da verdi&#287;im kodlar&#305; denermisiniz?

ThisWorkbook'a

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Targe As Range, Cancel As Boolean)
Dim target As Range
On Error GoTo Son
If ActiveSheet.Name <> "Ana Sayfa" Then
  Sheets("Ana Sayfa").Select
ElseIf target.Value <> "" Then
  Sheets(target.Value).Select
End If
Exit Sub
Son:
Set target = ActiveCell
    Sordum = MsgBox(target.Value & "Adl&#305; Sayfa Yok,Eklemek istemisiniz?", vbYesNo, target.Value & "Adl&#305; sayfan&#305;n A&#231;&#305;lmas&#305;")
If Sordum = vbYes Then
Sheets("sablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = target.Value
MsgBox target.Value & "Sayfas&#305; A&#231;&#305;ld&#305;...", vbOKOnly, " Ho&#351;geldiniz"
          If Worksheets.Count > 2 Then
        For i = 2 To Worksheets.Count - 1
         For j = 3 To Worksheets.Count
         If Worksheets(j).Name < Worksheets(i).Name Then
            Worksheets(j).Move before:=Worksheets(i)
            End If
        Next j
       Next i
     End If
   End If
End Sub

 

[mami68]

Say&#305;n Ayhan bey &#246;nce &#246;z&#252;r dilerim ge&#231;en mesajda selam vermeyi unutmu&#351;um.Dalg&#305;nl&#305;k y&#252;z&#252;nden.&#350;imdi sizin makroyla amac&#305;ma ula&#351;t&#305;m.Eme&#287;inize ve ilginize binlerce te&#351;ekk&#252;r ederim.
Ne istedi&#287;imi anlayamam&#305;&#351;s&#305;n&#305;z diyorsunuz? &#304;ste&#287;im: ismin &#252;st&#252;ne t&#305;klad&#305;&#287;&#305;m zaman o isme ait sayfa a&#231;&#305;ls&#305;n.&#304;yi &#231;al&#305;&#351;malar