popup konusunda yardım

[metinak]

arkadaşlar popup menü için aşagıdaki kodları yazdım. ama sürekli hata veriyor. sorunun kaynağını bulabilirmisiniz.

Option Explicit
Const MenuAdi As String = "TemporaryPopupMenu"

Sub PopupSil()
On Error Resume Next
CommandBars(MenuAdi).Delete
On Error GoTo 0
End Sub

Sub PopupYap()
Dim cb As CommandBar
PopupSil
Set cb = CommandsBar.Add(MenuAdi, msoBarPopup, False, True)
With cb
With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro1"
.FaceId = 71
.Caption = "Makro1"
End With

With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro2"
.FaceId = 72
.Caption = "Makro2"
End With

With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro3"
.FaceId = 73
.Caption = "Makro3"
End With

With .Controls.Add(Type:=msoControlButton)
.OnAction = "Makro4"
.FaceId = 74
.Caption = "Makro4"
End With
End Sub


Sub Makro1()
ActiveCell.Value = 1
End Sub

Sub Makro2()
ActiveCell.Value = 2
End Sub

Sub Makro3()
ActiveCell.Value = 3
End Sub

Sub Makro4()
ActiveCell.Value = 4
End Sub

Sub auto_close()
PopupSil
End Sub

Sub auto_open()
PopupYap
End Sub



Option Explicit
Const MenuAdi As String = "TemporaryPopupMenu"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
Application.CommandBars(MenuAdi).ShowPopup

End Sub

 

[xxrt]

Sayın Bedersu'nun foruma verdiği kodları deneyin.
http://www.excel.web.tr/showpost.php?p=28442&postcount=7

 

[Haluk]

Veya;

http://www.excel.web.tr/showthread.php?p=8375