Aşağıdaki kodlar bir menü ekler ve menüye "Form" adında bir alt menü ekler. Buna tıklandığında goster makrosu çalışarak Userform1 gösterilir. Sorunuzun bu örnek üzerinden detaylandırabilirsiniz.
Kod:
Sub auto_open()
Dim AnaMenu As CommandBarControl
Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Formlar"
.BeginGroup = False
End With
With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
.FaceId = 30
.Caption = "Form"
.OnAction = "goster"
End With
End Sub
Sub goster()
UserForm1.Show
End Sub
Sub auto_close()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
Sy Janveljan,eklediğim örnekte kişi bilgileri formunda bulunan butonların yaptığı işlemi formun açılır menüsündeki tutanaklar kısmında yapmak istiyorum, formları açtırıyorum ancak ilgili kayıtı getirecek formülü ve makroda nereye yazılacağını bulamadım.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.