özel menü sorunu

[Ömer64]

eklediğim üsten açılır menülerde, istediğim kayda ait formu, raporu nasıl getirebilirim arkadaşlar herkeze iyi geçeler

 

[janveljan]

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.

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

 

[Ömer64]

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.