Excel eklenti hakkında

[Baggwell]

Arkadaşlar öncelikle merhabalar

Aşağıdaki kodları "Bu çalışma kitabı"' na ekleyince excel sağ tuş menüsünde My Macro adında bir menü oluşturuyor.

Kaydedip eklenti haline getirdikten sonra excel gelişmiş seçeneklerinden aktif ediyorum.

Açılan yeni sayfada eklenti çalışmıyor.

Aynı kodu Modüle eklediğim zaman sağ tuşta menü çıkmıyor

Nasıl çözeriz bu işi

Private Sub Workbook_Deactivate()

    On Error Resume Next

            With Application

                .CommandBars("Cell").Controls("My Macro").Delete

            End With

    On Error GoTo 0

End Sub





Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim cBut As CommandBarButton



    On Error Resume Next

        With Application

            .CommandBars("Cell").Controls("My Macro").Delete

            Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)

        End With

        

        With cBut

           .Caption = "My Macro"

           .Style = msoButtonCaption

           .OnAction = "My_Macro"

        End With

    On Error GoTo 0

End Sub

 

[Korhan Ayhan]

Boş bir kitap açın.
İçine boş bir modül ekleyin.
Modül içine aşağıdaki kodu uygulayın.
Tabi "My Macro" makrosunuda dosyaya uygulayın.
Son olarak dosyayı eklenti olarak kayıt edip kapatın.

En son olarak eklentiyi aktif edip denemeler yapın.

Sub Auto_Open()
    Dim cBut As CommandBarButton

    On Error Resume Next
    
    With Application
        .CommandBars("Cell").Controls("My Macro").Delete
        Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
    End With

    With cBut
        .Caption = "My Macro"
        .Style = msoButtonCaption
        .OnAction = "My_Macro"
    End With
    
    On Error GoTo 0
End Sub

Sub Auto_Close()
    On Error Resume Next
    With Application
        .CommandBars("Cell").Controls("My Macro").Delete
    End With
    On Error GoTo 0
End Sub

 

[Baggwell]

Korhan Hocam çok teşekkür ederim, oldu. Konuyla ilgili olarak sizden ufak bir düzenleme daha rica edeceğim o da aynı makroya alt menü eklemek. Vaktinizi ayırırsanız çok sevinirim.

İyi günler

My Macro
A
B
C

 

[Korhan Ayhan]

Örnek dosyayı inceleyiniz.

 

[Baggwell]

Ne kadar teşekkür etsem azdır, siz yanıt yazana kadar bende internetten araştırmasını yaptım türlü türlü makrolar denedim olmamıştı.
Sonunda istediğim gibi bir düzen buldum teşekkür ederim hakkınızı helal edin