Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Right Click Option Missing
I have a template that users have the option to right click in any cell in
column A after row 1 and select a custom menu option. For most users there is no problem. For one particular user the custom option doesn't appear in the list - the default options do. I've checked for errors and stepped through the code and it does execute the .Caption and the .OnAction code but with no result (and no error codes generated). The users are on xl 2002 and 2003. This issue is on 2002. This template has gone out to about a hundred users; this is the only user having this problem. I'm using Worksheet_BeforeRightClick on the sheet-level object. Any ideas? -- MacGuy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Right Click Option Missing
Is this the only user on xl2000? can you post your entire option assignment code? -- Breakfast Guy ------------------------------------------------------------------------ Breakfast Guy's Profile: http://www.thecodecage.com/forumz/member.php?userid=5 View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Right Click Option Missing
The user is on xl 2002. Here's the code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim mapGL As Object For Each mapGL In Application.CommandBars("cell").Controls If mapGL.Tag = "rpct" Then mapGL.Delete Next mapGL If Not Application.Intersect(Target, _ Range([a1].Offset(1, 0), [a1].Offset(ActiveSheet.UsedRange.Rows.Count - 1, 0))) Is Nothing Then With Application.CommandBars("cell").Controls.Add(Type: =msoControlButton, befo=5, temporary:=True) .Caption = "REMOVE PAY CYCLE from TEMPLATE FEED" .OnAction = "RemovePayCycle" 'runs this sub located in the RemoveItem Module .Tag = "rpct" End With End If End Sub -- MacGuy "Breakfast Guy" wrote: Is this the only user on xl2000? can you post your entire option assignment code? -- Breakfast Guy ------------------------------------------------------------------------ Breakfast Guy's Profile: http://www.thecodecage.com/forumz/member.php?userid=5 View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Right Click Option Missing
I see nothing wrong with the code as such you could make things a little more generic: -If Not Application.Intersect(Target, _ Range([a1].Offset(1, 0), [a1].Offset(ActiveSheet.UsedRange.Rows.Count - 1, 0))) Is Nothing Then- could read: -If Not Application.Intersect(Target, _ Range("A1").Offset(1, 0), Range("A1").Offset(ActiveSheet.UsedRange.Rows.Coun t - 1, 0))) Is Nothing Then- if the code is in a worksheet module you could further qualify it by using: -Me.Range("A1").OffSet(1,0)...etc- You can find all the data you need on this subject he 'How to customize menus and menu bars in Excel' (http://tinyurl.com/637bxz) -- The Code Cage Team Regards, The Code Cage Team www.thecodecage.com ------------------------------------------------------------------------ The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2 View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6880 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
trendline option missing | Excel Worksheet Functions | |||
Missing Excel option | Excel Discussion (Misc queries) | |||
Missing Autofilter option !! | Excel Discussion (Misc queries) | |||
Define Name option missing?? | Excel Discussion (Misc queries) | |||
Toolbars Missing, And option to Add Missing | Excel Discussion (Misc queries) |