• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

1

1mak1mak

Katılım
9 Ocak 2011
Mesajlar
354
Excel Vers. ve Dili
2007 Türkçe
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.
 
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
 
ugrkrnfl' Alıntı:
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
Genişletmek için tıkla ...
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.
 
Son düzenleme:
Ç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.

Kod: 
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
 
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.
 

Ekli dosyalar

  • Ornek.xlsm
    Ornek.xlsm
    14.6 KB · Görüntüleme: 6
  • Ornek1.png
    Ornek1.png
    9.5 KB · Görüntüleme: 6
ugrkrnfl' Alıntı:
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.
Genişletmek için tıkla ...
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ü.
231292
 
Merhaba,
Ben office 365 kullanıyorum. Örnek dosyayı .xls formatında yeniden paylaştım.
Umarım faydası olur.
 

Ekli dosyalar

ugrkrnfl' Alıntı:
Merhaba,
Ben office 365 kullanıyorum. Örnek dosyayı .xls formatında yeniden paylaştım.
Umarım faydası olur.
Genişletmek için tıkla ...
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.
 
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
Kod: 
Application.EnableEvents = False  (OnAction = "Macro1") yerine
Application.EnableEvents = True   (OnAction = "Macro2") yerine
 

Ekli dosyalar

Elinize sağlık..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst