SAÐ KLÝK

[hamitcan]

excelde herhangi bir hücrenin içindeyken sað klik yaptýðýmda "yazdýr" komutu çýksýn istiyorum

þimdiden yardýmlarýnýz için teþekkürler...

[lovekiller]

Þu kodlar iþini görür:

Sub SpecialCellMenu()
Dim cb As CommandBar
Set cb = Application.CommandBars("Cell")
'
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Lovekiller Menu"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton, ID:=4)
.Visible = True
End With
End With
Set MenuObject = Nothing
End Sub

Kolay gelsin

[boracarli]

bu kodla nereye yazýlýyor

[genesis]

:hey:
Exceli açýn,alt+F11(alt ve F11 tuþlarýna birlikte basýn) ,insert module ,yukarda verilen kodu açýlan modüle kopyalayýn sadece bu kadar. :keyif:


:uyku:

[hamitcan]

YANLIÞLIKLA BÝRDEN FAZLA YAPTIM. SÝLMEK ÝÇÝN NE YAPMALIYIM

[Haluk]

@hamitcan:

Aþaðýdaki linkte yer alan PanZehir isimli proseduru bir module yerleþtirip, çalýþtýr.

http://www.excel.web.tr/viewtopic.php?t=181

[hsayar]

yada başka menülerinizde varsa sağ tuşta bu kodu deneyin;

Sub SagTusKaldırYaz()
'*hücrenin sağtuş menüsüne eklenen komutları kaldır
On Error Resume Next
'================================================= ==================
Application.CommandBars("Cell").Controls("Lovekiller Menu").Delete

End Sub