Showing popup menu only when EntireRow is selected

[tweedle]

Sooo, I have my pop-up menu popping on BeforeRightClick, and I have suppressed the 'normal' context popup; How can I test to know that the user has selected a single entire row? That's really the only time I want the custom menu to display. The menu items are rather dedicated to replicating/producing entire rows within a project management template.

Below are my failed attempts....

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'    If ActiveSheet.Selection.EntireRow Then 'nope
'    If TypeName(Selection) = "Range" Then 'no
'    If Selection.Rows.Count > 0 Then    'not working
    If Selection.EntireRow.Count > 0 Then    'not working
    
    ShowMyMenu    'Shows my menu
    Cancel = True    'Suppresses the 'normal' context menu
    
    End If
End Sub

 

[Weaver]

maybe

if selection.columns.count=1 and selection.rows.count=rows.count then 'must be an entire column

 

[RoryA]

If selection.Rows(1).Cells.Count = Columns.Count then

 

[tweedle]

Both suggestions work, Thank You!!

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'If Selection.Rows.Count = 1 And Selection.Columns.Count = Columns.Count Then    'must be an entire column
    If Selection.Rows(1).Cells.Count = Columns.Count Then
        ShowMyMenu    'Shows my menu
        Cancel = True    'Suppresses the 'normal' context menu
    End If
End Sub

Rory, your signature line is hysterical

 

[RoryA]

Thank you.

 

[taurean]

If your intent is showing custom menu when ONLY one row is selected then this should work:

[face=Calibri][COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_BeforeRightClick([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range, Cancel [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Boolean[/COLOR])
[COLOR=darkblue]With[/COLOR] Selection
    [COLOR=darkblue]If[/COLOR] .Rows.Count = 1 And .Count = Columns.Count [COLOR=darkblue]Then[/COLOR]
[COLOR=green]    ShowMyMenu    'Shows my menu[/COLOR]
    Cancel = [COLOR=darkblue]True[/COLOR]    [COLOR=green]'Suppresses the 'normal' context menu[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
End [COLOR=darkblue]Sub[/COLOR][/face]