Tool Bar'a Makroları Durdurmak ve Çalıştırmak için bir Düğme Eklenebilirmi.

[1mak1mak]

Merhaba
Çalıştığım büyük sayfalarda Makroları istediğim zaman çalıştırıp istediğim zaman çalışmasını durdurmak için bir düğme ekleyebilirmiyim.
Bunu bazı dosyalarda sayfaya bir Buton ekleyerek yapabiliyorum ama büyük sayfalarda Buton her zaman görünür olamıyor bu sebepten
Menüye böyle bir komut düğmesi eklemek istiyorum yapılabilirmi acaba.
Yardımcı olacaklara şlmdiden teşekkürler.

 

[ugrkrnfl]

Merhaba ben AddIns menusunde görünen bir menu oluşturup kullanıyorum
Aşağıdaki kodu Alt+F11 ile ThisWorkbook'un içerisini yazacaksınız dosyayı kapattığınızda Ekleyeceğiniz Menü AddIns altından silinsin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next 'in case the menu item has already been deleted
Application.CommandBars("Worksheet Menu Bar").Controls("Menü").Delete 'delete the menu item
Application.StatusBar = False
End Sub

Sonra Herhangi bir Module içerisine de aşağıdaki kodu kopyalayın Auto_open yazısını değiştirmeyin
Dosyayı açtığınızda AddIns altında menuyü göreceksiniz.


Sub Auto_open()

Set myMenuBar = CommandBars.ActiveMenuBar
Set NewMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
temporary:=True)
NewMenu.Caption = "Menü"

Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _
.Controls.Add(Type:=msoControlButton, ID:=2949)
bir.Caption = "AÇIKLAMA"
bir.OnAction = "MAKRO_ADI"

Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _
.Controls.Add(Type:=msoControlButton, ID:=2949)
bir.Caption = "AÇIKLAMA2"
bir.OnAction = "MAKRO_ADI2"

End Sub

 

[1mak1mak]

Merhaba ben AddIns menusunde görünen bir menu oluşturup kullanıyorum
Aşağıdaki kodu Alt+F11 ile ThisWorkbook'un içerisini yazacaksınız dosyayı kapattığınızda Ekleyeceğiniz Menü AddIns altından silinsin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next 'in case the menu item has already been deleted
Application.CommandBars("Worksheet Menu Bar").Controls("Menü").Delete 'delete the menu item
Application.StatusBar = False
End Sub

Sonra Herhangi bir Module içerisine de aşağıdaki kodu kopyalayın Auto_open yazısını değiştirmeyin
Dosyayı açtığınızda AddIns altında menuyü göreceksiniz.


Sub Auto_open()

Set myMenuBar = CommandBars.ActiveMenuBar
Set NewMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
temporary:=True)
NewMenu.Caption = "Menü"

Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _
.Controls.Add(Type:=msoControlButton, ID:=2949)
bir.Caption = "AÇIKLAMA"
bir.OnAction = "MAKRO_ADI"

Set bir = Application.CommandBars("Worksheet Menu Bar").Controls("Menü") _
.Controls.Add(Type:=msoControlButton, ID:=2949)
bir.Caption = "AÇIKLAMA2"
bir.OnAction = "MAKRO_ADI2"

End Sub

Merhaba ilginiz için teşekkürler
Söylediklerinizi yaptım ama ya yanlış yaptım yada yanlış bir şey var.
Hiçbir netice alamadım.
1-Boş bir excel açtım ThisWorkbook içine ilk Kodunuzu girdim Dosyayı Farklı olarak Eklenti (xlam) olarak kaydettim
2-Dosyayı tekrar açıp bir modül oluşturup içine diğer kodu ekledim ve kaydettim.
3-Dosyayı "C:\Documents and Settings\XXX\Application Data\Microsoft\AddIns" klasörüne koydum
4-çalıştırmak istediğim dosyayı açtım Eklentilerde gördüm ve işaretledim
5-Toolbar özelleştirmeye girip Makrolarda aynı eki gördüm ve Hızlı erişime ekledim
6-Simgeye tıkladığımda hiçbir şey olamadı Makro çalışıyor durdurulamıyor hiçbir tepki alamadım.
??-Acaba AÇIKLAMA ve MAKRO_ADI dediğiniz yerlere bir Makro Adımı yazmam lazım benim
Kullanmak istediğim "Nesne" Makrosu o şekildede yazdım gene tepki yok.

Bu işlemi sağ klik'e de koyabilsek olur istediğim Makroyu Butonsuz istediğimde kapatıp istediğimde açabilmek.

 

[1mak1mak]

Çalıştırıp Durdurmak istediğim Makro dedim ama Bir Nesne çalışma kodu aşağıdaki gibi acaba Makro olmadığı için çalışmıyor olabilirmi.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim XL_Shape As Shape
    
    Set XL_Shape = ActiveSheet.Shapes("Nesne")
    
    If Excel.ActiveWindow.VisibleRange.Column > 1 Then
        With XL_Shape
            .OLEFormat.Object.Formula = "=" & Cells(Target.Row, 1).Address
            .TextEffect.FontBold = True
            .TextEffect.FontSize = 11
            .TextEffect.Alignment = msoTextEffectAlignmentCentered
            .TextFrame.Characters.Font.Color = RGB(255, 255, 255)
            .Visible = True
            .Left = Target.Left + .Width + 35
            .Top = Target.Top + (Target.Height - .Height) / 2
        End With
    Else
        XL_Shape.Visible = False
    End If
    Set XL_Shape = Nothing
    If Not Intersect(Target, Range("B5:CZ33")) Is Nothing Then
    Application.StatusBar = Range("A" & Target.Row)
Else
    Application.StatusBar = ""
    End If
End Sub

 

[ugrkrnfl]

Merhaba
Dosyaları ekledim.
Siz de dosyanızı eklerseniz müsait olduğumda bakabilirim.
ACIKLAMA ve ACIKLAMA2 kısımlarına makrolarınızı atamanız yeterli olacak.

 

[1mak1mak]

Merhaba
Dosyaları ekledim.
Siz de dosyanızı eklerseniz müsait olduğumda bakabilirim.
ACIKLAMA ve ACIKLAMA2 kısımlarına makrolarınızı atamanız yeterli olacak.

Merhaba
Benim Kullandığım Excel 2007 Siz farklı bir yeni versiyon kullanıyorsunuz herhalde dosyanızı inceledim benimkiyle aynı bir fark yok
ancak bende AddIns (Eklentiler) Sekmesi yok başka bir Ribbon Eklentiler Sekmesini açıyordu onu aktif ettim ama gene sizin "Menü"
resimde gözüktüğü gibi bir Menü yok versiyonla ilgili sanırım. Ekte Sizin Dosyanızın bendeki görünümü.

 

[ugrkrnfl]

Merhaba,
Ben office 365 kullanıyorum. Örnek dosyayı .xls formatında yeniden paylaştım.
Umarım faydası olur.

 

[1mak1mak]

Merhaba,
Ben office 365 kullanıyorum. Örnek dosyayı .xls formatında yeniden paylaştım.
Umarım faydası olur.

Malesef hiçbir değişiklik olmadı sizide yordum Sağ Klik için bir çalışma buldum onunla deneyeceğim belki çözüm olur.
İlginiz için çok teşekkürler.

 

[ugrkrnfl]

Rica ederim, kolay gelsin.

 

[1mak1mak]

Tekrar Merhaba Üstatlardan destek bekliyorum
Aşağıda Örnek olarak verdiğim Dosyada Korhan hocamın desteğiyle eklediğim bir "Nesne" kodu var
Bu Nesneye her zaman ihtiyacım olmuyor istediğimde durdurup istediğimde çalıştırmak istiyorum.
Sağ Klik'e bir Menü ekledim ama öncelikle Menü Kod Sayfasında F5 yapmadan direk çalışmıyor.
Menüye eklediğim Makroyu Durdur ve Çalıştır diye iki seçeneğim var Buraya Durdurma Komutu girdiğimde
Nesne hiç çalışmıyor, hem durdurma hem çalıştırma komutlarını girdiğimde de hep çalışıyor iki fonksiyonuda
Sağ klik Menü den ayrı ayrı çalışacak şekilde ayarlayamadım.
Destek olacaklara şimdiden çok teşekkür ederim.

Kullandığım Kodlar

Application.EnableEvents = False  (OnAction = "Macro1") yerine
Application.EnableEvents = True   (OnAction = "Macro2") yerine

 

[Korhan Ayhan]

Deneyiniz.

F11 tuşu makroyu PASİF yapar.
F12 tuşu ise tekrar AKTİF hale getirir.

 

[1mak1mak]

Deneyiniz.

F11 tuşu makroyu PASİF yapar.
F12 tuşu ise tekrar AKTİF hale getirir.

Teşekkürler Korhan hocam bu şekilde de kullanışlı oldu gayet güzel çalışıyor elinize aklınıza sağlık.

 

[1mak1mak]

Korhan Hocanın çalışmasına Sağ Klik Menüye Makro Durdur ve Çalıştır Fonksiyonunu da ekledim her iki şekilde de çalışıyor.
İhtiyacı olan olur diye paylaşıyorum.

 

[Korhan Ayhan]

Elinize sağlık..