Merhaba,
hücrede sağ klik yapıldığında standart başlıkların (copy,paste v.s.) yok olmasını onların yerine aşağıdaki başlıkların ve action'ların olmasını istiyorum. Bunun için nasıl bir ekleme yapmam gerekiyor.elimde yine bu siteden aldığım sağ klikteki menüleri yok etme kodları var ama birleştiremedim. Sağ klikte sadece aşağıdaki başlıkların görünmesi için yardımınızı rica ederim.
Private Sub Workbook_Open()
Dim TABANFORM As CommandBarControl
Dim SIPARISFORM As CommandBarControl
Set TABANFORM = Application.CommandBars("Cell").Controls.Add
With TABANFORM
.Caption = "TABAN MODEL FORMU"
.OnAction = "Module1.den"
End With
'......................................................................
Set SIPARISFORM = Application.CommandBars("Cell").Controls.Add
With SIPARISFORM
.Caption = "SIPARIS FORMU"
.OnAction = "Module1.GEN"
End With
'......................................................................
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("TABAN MODEL FORMU").Delete
Application.CommandBars("Cell").Controls("SIPARIS FORMU").Delete
End Sub
hücrede sağ klik yapıldığında standart başlıkların (copy,paste v.s.) yok olmasını onların yerine aşağıdaki başlıkların ve action'ların olmasını istiyorum. Bunun için nasıl bir ekleme yapmam gerekiyor.elimde yine bu siteden aldığım sağ klikteki menüleri yok etme kodları var ama birleştiremedim. Sağ klikte sadece aşağıdaki başlıkların görünmesi için yardımınızı rica ederim.
Private Sub Workbook_Open()
Dim TABANFORM As CommandBarControl
Dim SIPARISFORM As CommandBarControl
Set TABANFORM = Application.CommandBars("Cell").Controls.Add
With TABANFORM
.Caption = "TABAN MODEL FORMU"
.OnAction = "Module1.den"
End With
'......................................................................
Set SIPARISFORM = Application.CommandBars("Cell").Controls.Add
With SIPARISFORM
.Caption = "SIPARIS FORMU"
.OnAction = "Module1.GEN"
End With
'......................................................................
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("TABAN MODEL FORMU").Delete
Application.CommandBars("Cell").Controls("SIPARIS FORMU").Delete
End Sub