Menü olayları

[Recep İpek]

Excel menülerinin açıldığını nasıl kontrol edebiliriz.

Örneğin Insert (Ekle) menüsüne tıkladığımızda a1 hücresine
"Menü Açık" gibi bir ifade yazdırabilirmiyiz?

İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Seyit Tiken]

Bu kodu bir deneyiniz belki bir fikir verir.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
MenuBars(xlWorksheet).Menus("Insert").Enabled = False
MsgBox "Menü Kapalı"
ElseIf [A1] = 2 Then MenuBars(xlWorksheet).Menus("Insert").Enabled = 1
MsgBox "Menü Açık"
End If
End Sub

 

[Recep İpek]

Sn.Seyit Tiken

Aradığım buna yakın bir çalışma.
Fakat benim asıl yapmak istediğim herhangi bir menü açıldığında a1 hücresine "Menü Açık" yazsın.

Bir nevi,

Private Sub Worksheet_Activate()
[a1]="Menü Açık"
End Sub

olayı gibi...

Sanırım menülerin olayları yok ama bununla ilgili başka çözümler çıkabilir.

 

[Levent Menteşoğlu]

..........Sanırım menülerin olayları yok ama bununla ilgili başka çözümler çıkabilir.

Evet böyle olaylar yok ama menülerdeki butonlara makro atayabilirsiniz. Görünüm-araç çubukları-özelleştir penceresi açıkken, menüdeki herhangi bir buton üzerine sağ-klik yaparsanız açılan pencerede makro ata seçeneğini görebilirsiniz.

 

[Recep İpek]

......... yaparsanız açılan pencerede makro ata seçeneğini görebilirsiniz.

Makro ata menüsü aktif değil.Sanırım eksik bir işlem yapıyorum.

 

[Seyit Tiken]

Özelleştir > Makrolar > Özel Düğme ... > Makro Ata ...

 

[Levent Menteşoğlu]

Aşağıdaki resimde işlemi anlattım. Örneğin burada ZA sıralama butonuna makro atanıyor.

 

[Recep İpek]

Pardon.Ben direk Insert(Düzen) menüsüne bakmıştım.Oradaki pasif durumda..

Butonlarda denemedim.