ÖZEL MENÜ

[bekir38]

Ã?ZEL MENÜ

merhaba arkadaşlar,
oluşturmuş olduğum kitap açıldığında bana özel veya o kitaba özel menüler gelsin istiyorum. bunun için bir çalışma yaptım gayet güzel çalışıyor. fakat kitabı her kapatıp açtığımda butonlara atadığım makrolar kayboluyor. bu durumu nasıl aşabilirim.

kodlar aşağıdaki gibidir;

Sub MenüEkle()
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Stok Takip"
.Tag = "MyTag"
.BeginGroup = True
.TooltipText = "Stok Takip Program Menüsü"
End With
If cbMenu Is Nothing Then Exit Sub
'******************************************************************
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Ana Sayfa"
.FaceId = 1016
End With
'*****************************************************************************
'Stok İşlemleri
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kayıt Giriş"
.FaceId = 1014
End With

'Raporlar
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "Raporlar"
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bekleyenler"
.FaceId = 1745
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Bitenler"
.FaceId = 1110
End With
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "İptaller"
.FaceId = 1100
End With


iyi çalışmalar,

 

[exceltims]

syn bekir38,
menü yaptığınız kodların sonuna
[vb:1:0b5ad25c34] Sub RemoveMenu()
DeleteCustomCommandBarControl "MyTag"
End Sub
Private Sub DeleteCustomCommandBarControl(CustomControlTag As String)
On Error Resume Next
Do
Application.CommandBars.FindControl(, , CustomControlTag, False).Delete
Loop Until Application.CommandBars.FindControl(, , CustomControlTag, False) Is Nothing
On Error GoTo 0 [/vb:1:0b5ad25c34]

 

[bekir38]

sayın exceltims,
nasıl yani? yukarıdaki örneğe göre sizin gönderdiğiniz kod menüekle den sonra mı gelecek? yoksa raporlar + yeni kod, ana sayfa + yenikod gibi mi?
açıklarsanız sevinirim,

iyi çalışmalar,

 

[exceltims]

örneği eklerseniz yapılabilir
hangi kod nerede bir şey söyleyemem.
exceltims=mahmut_bayram

 

[bekir38]

mahmut bey sizmiydiniz? merhabalar,
gönderirim tabiki,
bir sıkıntı daha var hazır dosya eklemişken sorayım. dosya ismi değişince makrolar bir garipleşiyor. sebebi ne olabilir?

yardımlarınız için şimdiden teşekkürler,

iyi çalışmalar,

 

[bekir38]

arkadaşlar merhaba,

özel menü hazırlama konusunda desteğe ihtiyacım var. elinde örnek dosyası olanlar veya benim gönderdiğim dosya üzerinden çözüm üretecek arkadaşlardan destek bekliyorum. :yardim: :yardim: :yardim: :yardim:

iyi çalışmalar,

 

[Mahmut Bayram]

sayın bekir38,
.caption
kod satırını altına ekleyin. Aşağıdakini
.OnAction="" 'tırnak işaretlerinin arasına çalıştırmak istediğiniz makronun adını yazın.

1. Çözüm üretilebilir fakat, stok takip üzerine çalışıyorum.
2. Elimde ki dosyayı gönderemem çünkü ticari düşünüyorum.
3. Siz sorun biz anladığmız, bildiğimiz, dilimizin dönüdğünce cevaplamaya çalışalım

 

[bekir38]

merhaba mahmut bey,

çok çok teşekkürler, gayet güzel çalışıyor.
size projelerinizde başarılar dilerim.

iyi çalışmalar,

 

[Mahmut Bayram]

Rica eder.
Ben de sizin çalışmalarınızda başarılar dilerim.