Sayın Jezus, elinize sağlık tam istediğim gibi çok teşekkür ederim. k::
Aşağıdaki kodu modül içerisine yazmışsınız, bunu userformun initialize kısmına alsam bir sorun olurmu? Ben denedim herhangi bir hata vermedi. Yinede sorayım dedim olaki farkında olmadan bir hataya neden olabilir. Saygılarımla
Private Sub UserForm_Initialize()
Dim cbMenu As CommandBarControl
Set cbMenu = Application.CommandBars(2).Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Userform1"
.OnAction = "formac"
.Tag = "MyTag"
.BeginGroup = True
End With
If cbMenu Is Nothing Then Exit Sub
Set cbSubMenu = Nothing
Set cbMenu = Nothing
End Sub
Ayrıca, Combobox1`de "sicil No" çıkıyor bunu yok etmek mümkün 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.