Menü ekleme hakkında

[samsun2005]

Arkadaşlar herkese Selam .....


Aşağıdaki Kodla çalışmama menu ekliyorum . Fakat Eğer Menu eklenmişse Eklemeyi Kesmesini İstiyorum .Yardımlarınızı bekliyorum .

TEŞEKKÜRLER...........
********************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

kolon = ActiveCell.Column
If kolon = 6 Then
Call sagMenu
End If

If kolon <> 6 Then
Application.CommandBars("Cell").Reset
End If


End Sub

*****************************

Sub sagMenu()

Dim cb2 As CommandBar

Set cb2 = Application.CommandBars("Cell")

Set MenuObject2 = cb2.Controls.Add
MenuObject2.Caption = "Seçili Kaydı Sil"
MenuObject2.BeginGroup = True
MenuObject2.Tag = "MyTagR"
With MenuObject2
.OnAction = "kayitsil"
End With

Set cb2 = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing

End Sub

 

[Haluk]

Sub sagMenu()

Dim cb2 As CommandBar
[COLOR=Red][B]Application.CommandBars("Cell").Reset[/B][/COLOR]

Set cb2 = Application.CommandBars("Cell")

Set MenuObject2 = cb2.Controls.Add
MenuObject2.Caption = "Seçili Kaydı Sil"
MenuObject2.BeginGroup = True
MenuObject2.Tag = "MyTagR"
With MenuObject2
.OnAction = "kayitsil"
End With

Set cb2 = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub

 

[samsun2005]

Sn Haluk

&#304;lginize &#199;ok Te&#351;ekk&#252;r Ederim.
&#304;yi &#199;al&#305;&#351;malar.