Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
Hi there,
I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
I'm guessing there is a lot of code out there with the same problem.
Probably some of mine too. This seems to work... Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Target.Rows.Count = Me.Rows.Count Then If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End If End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "John" wrote in message Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
Hi Jim,
Thanks very much for your reply. Prompted by your example I've decided to go for: If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then as that seems ok for my purpose. Thanks for the workaround. Best regards John "Jim Cone" wrote in message ... I'm guessing there is a lot of code out there with the same problem. Probably some of mine too. This seems to work... Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Target.Rows.Count = Me.Rows.Count Then If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End If End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "John" wrote in message Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
here's what i use, not saying it's the best way, but works for me
If Target.Count = 1 Then If Not Intersect(Target, Columns("e")) Is Nothing Then If Worksheets("call report").ProtectContents = True Then -- Gary "John" wrote in message ... Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
Thanks Gary. I hadn't thought about just using Target.Count.
Yet another way! Thanks again. John "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... here's what i use, not saying it's the best way, but works for me If Target.Count = 1 Then If Not Intersect(Target, Columns("e")) Is Nothing Then If Worksheets("call report").ProtectContents = True Then -- Gary "John" wrote in message ... Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
and i use the protectcontents = true so it only works when the sheet's
protected. if it's unprotected, the right click context menu is displayed -- Gary "John" wrote in message ... Thanks Gary. I hadn't thought about just using Target.Count. Yet another way! Thanks again. John "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... here's what i use, not saying it's the best way, but works for me If Target.Count = 1 Then If Not Intersect(Target, Columns("e")) Is Nothing Then If Worksheets("call report").ProtectContents = True Then -- Gary "John" wrote in message ... Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
RightClick Range
if target.cells.count = 1 then
would be equivalent John wrote: Hi Jim, Thanks very much for your reply. Prompted by your example I've decided to go for: If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then as that seems ok for my purpose. Thanks for the workaround. Best regards John "Jim Cone" wrote in message ... I'm guessing there is a lot of code out there with the same problem. Probably some of mine too. This seems to work... Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Target.Rows.Count = Me.Rows.Count Then If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End If End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "John" wrote in message Hi there, I've added a right click popup menu to a range ("Orders" = A15:E40) that works fine (bar my other FaceID problem - see "FaceID not available" post earlier today). The problem is that if I right click on a row or column header the popup, pops up which means I loose the standard context menu. Is there an alternative to the Intersect function that would only detect a cell that's in the range rather than a whole row that happens to run through the range? Thanks in advance John Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("Orders"), Target) Is Nothing Then CommandBars("JohnsPopup").ShowPopup Cancel = True End If End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Rightclick mousebutton desktop hangs !!!!!!!!!!!!!! | Excel Discussion (Misc queries) | |||
Changing RightClick event handling | Excel Programming | |||
Before RightClick event change | Excel Programming | |||
Add Command to RightClick Menu | Excel Programming | |||
worksheet tab - rightclick choices | Excel Programming |