Belirlediğim makroyu sağ tuşa eklemek

[Baggwell]

Merhaba,

Forumda bir kaç örnek konu araştırdım ama nasıl yapılacağını çözemedim

Örneğin ben aşağıdaki belirlediğim bir makroyu, excel menüsünde sağ tuş olarak eklemek istiyorum. Bu konuda class modül ile alakalı açıklamalar var sanırım.

Fakat bu makroyu nasıl ekliyoruz çözemedim.

Örnek bunun gibi :
http://prntscr.com/3m53r2

Sub Sekmelerigizle()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub Sekmelerigöster()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Mesela buradaki konuda anlatılanları denedim. Eklenti olmuyor

 

[turist]

Dosyanız eklidir.

 

[Muzaffer Ali]

Private Sub Auto_Open()
    Dim cBut As CommandBarButton
    On Error Resume Next
    With Application
        .CommandBars("Cell").Controls("Sekmeleri Gizle").Delete
        Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
    End With
    With cBut
        .Caption = "Sekmeleri Gizle"
        .Style = msoButtonCaption
        .OnAction = "Sekmelerigizle"
    End With
    On Error GoTo 0
End Sub

Private Sub Auto_Close()
    On Error Resume Next
    With Application
        .CommandBars("Cell").Controls("Sekmeleri Gizle").Delete
    End With
    On Error GoTo 0
End Sub

Sekmelerigizle başlıklı kodlar bir module içerisinde olmalıdır.

 

[Baggwell]

Dosyanız eklidir.

ilginiz için teşekkürler. Bilgisayarımda açtığım tüm dosyalarda aktif olması için ne yapmam gerekiyor.


dalgalikur öncelikle avatarınızı çok begendim harika olmuş )

İkinci konu ise verdiğiniz kodları nereye ekleyeceğim tüm excelde aktif olması için

 

[turist]

Excel eklentisi(xla) olarak dosya eklidir.
Dosyayı direkt Microsoft/Addins klasörüne kopyalayın.
Daha sonra excel menüsünde eklenti olarak ekleyin.
Bütün dosyalarınızda kullanabilirsiniz.

Detaylı bilgi için, bakınız:
EKLENTi-ExcelWebTr
Excel Eklenti

 

[Muzaffer Ali]

ilginiz için teşekkürler. Bilgisayarımda açtığım tüm dosyalarda aktif olması için ne yapmam gerekiyor.


dalgalikur öncelikle avatarınızı çok begendim harika olmuş )

İkinci konu ise verdiğiniz kodları nereye ekleyeceğim tüm excelde aktif olması için

Yeni bir excel dosyası açın vba kod editörünü açın(Ctrl+F11) Yeni bir module ekleyin (Insert/Module) Açılan sayfaya verdiğim kodları ekleyin. Excel Dosyanızı *.xlam olarak kaydedin.(Kaydet 'e tıkladıktan sonra açılan yerde Kayıt Türü "Excel Eklentisi *.xlam" seçin) Addins klasörünü kendisi açacaktır kayıt yerini değiştirmeden kaydedin.

 

[Baggwell]

Merhaba, iki yöntemi de denedim fakat menüde aktif olmuyor; ekran görüntüsü

http://prntscr.com/3mqjxg

 

[turist]

Merhaba, iki yöntemi de denedim fakat menüde aktif olmuyor; ekran görüntüsü

http://prntscr.com/3mqjxg

Excel Menüsünde görmek için değil, sayfada hücrede iken mouse ile "SAĞ KLİK" yaparsanız açılan listenin en altında Gizle- Göster olarak görürsünüz.

 

[Baggwell]

Excel Menüsünde görmek için değil, sayfada hücrede iken mouse ile "SAĞ KLİK" yaparsanız açılan listenin en altında Gizle- Göster olarak görürsünüz.

Sayın üstadım onu göremediğimi belirtmek istemiştim bende, yani belirtilen adımları uyguladım demek istedim...

Buyrun o halde daha net bir ekran görüntüsü paylaşayım

http://prntscr.com/3n12oi

 

[turist]

Sayın üstadım onu göremediğimi belirtmek istemiştim bende, yani belirtilen adımları uyguladım demek istedim...

Buyrun o halde daha net bir ekran görüntüsü paylaşayım

http://prntscr.com/3n12oi

Easy-XL eklentisi eklemişsiniz.
Bu eklenti kendisinden başka eklentileri silecektir.Bu nedenle eklentiyi göremiyorsunuz.

 

[Baggwell]

Anladım o halde Easy XL deneme süremiz bitene kadar bekleyeyim daha sonra kaldırıp bu işlemleri tekrar uygularım. Teşekkürler

 

[Baggwell]

Easy XL kaldırınca sorun çözüldü teşekkürler

Bende Easy Xl gibi kendi ismimde bir menü oluşturmak istiyorum onu

Örn:

Hızlı Menü>
- Sekmeleri Gizle
- Sekmeleri Göster

>a
-B
-C
-D


gibi

 

[turist]

Örnek kodu isteğinize uygun hale getirip kullanabilirsiniz.

Sub OzelMenuEkle()
Dim özelmenü As CommandBarControl

On Error Resume Next
Application.CommandBars(1).Controls("Benim Özel Menüm").Delete
On Error GoTo 0
'Menüyü silen bu satır , yazılmazsa her seferinde bir menü daha ekler
Set özelmenü = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With özelmenü
.Caption = "Benim Özel Menüm"
.Tag = "MyTag"
.BeginGroup = False
End With
If özelmenü Is Nothing Then Exit Sub

'ALT MENULERİ EKLEME
With özelmenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Menü 1"
.OnAction = "Menu1_Calistir"
End With

With özelmenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Menü 2"
.OnAction = "Menu2_Calistir"
End With

With özelmenü.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Menü Kaldır"
.OnAction = "Menu_Kaldir"
End With

End Sub

Sub Menu1_Calistir()
MsgBox "Menü 1"
End Sub

Sub Menu2_Calistir()
MsgBox "Menü 2"
End Sub

Sub Menu_Kaldir()
Application.CommandBars(1).Controls("Benim Özel Menüm").Delete
'Özel Menüyü siler
End Sub

 

[Baggwell]

Teşekkürler hocam, deneyip geri dönüş sağlayacağım

 

[Baggwell]

Menüyü aldım, yeni modül oluşturup eklenti olarak kaydettim.

Excel seçeneklerinden, eklentiler bölümüne girdim, Menu aktif ettim ama sağ tuşta herhangi birşey çıkmıyor yapamadım sanırım

Alternatif olarak aşağıdaki, gibi bir kod buldum, sağ tuşa direk çıktı. Burada benim aktif etmek istediğim makroyu tam olarak nereye yazmam gerekiyor

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