Excel automatically copies selection on right click

[ronniemodigh]

Hi, I have a small problem that has been bugging me since I installed Excel 2007. If I have several cells selected and right click on the selection, Excel automatically puts this in the clipboard, as if I had chosen 'Copy' or pressed Ctrl+C, and the moving boarder appears around the selection.

Sometimes the reason for right clicking a selection of cells is that you want to use the 'Insert copied cells' function, or the copy special menue, but since Excel automatically puts the selection right on top of the clipboard, I need to go through other ways to performe these tasks.

I know it is not a big deal, but I find it annoying and I have spent quite some time trying to figure out what is wrong. I would be very grateful if anyone of you geniuses could assist me on this.

Thanks and best regards,

Ronnie

 

[Jerry Sullivan]

Welcome to the Board Ronnie,

What you describe is not the default installation for Excel 2007.

When you have a range selected and then Right-Click on it, you should get a Right-Click menu that gives a dozen or so options beginning with Copy, Copy, Paste.

It's possible you have some customization that is being applied. Perhaps in Personal.xlsb or an Add-In. I've seen some posts in the past in which people had customization like that in xl2003 and were asking how to get it back when they moved to xl2007.

 

[ronniemodigh]

Thanks Jerry and thanks for taking the time to answer!

This was not a problem I had on Excel 2003, and I am not sure if this problem actually started because I installed 2007 or because i switched computer as those two happened simultaneously.

However, this is the list of Add-ins installed on my Excel, could you see if you find any suspicious ones?

Active Application Add-ins:
Hyperion Essbase OLAP Server DLL (non-Unicode) *1
Hyperion Essbase Query Designer AddIn *1

Inactive Application Add-ins:
Analysis ToolPak
Analysis ToolPak - VBA
Conditional Sum Wizard
Custom XML Data
Euro Currency Tools
Financial Symbol (Smart tag lsts)
Headers and Footers
Hidden Rows and Columns
Hidden Worksheets
Internet Assistant VBA
Invisable Content
Lookup Wizard
Person Name (Outlook e-mail recipients)
Send to Bluetooth
Solver Add-in *1

Disabled Application Add-ins:
EXCEL and EQD COM Addin

*1 These applications are necessary and did not cause this problem in my 2003 installation.

If the problem is due to some customization in my Personal.xlsb, could you provide any ideas on how to remove that?

Thank you again for taking the time to read this, and hopefully you have the knowledge on how to solve this!

Best regards,

Ronnie

 

[Jerry Sullivan]

Let's check your Personal.xlsb file first since that is more straight forward.

To access that file...

Hit Alt-F11 to get to the Visual Basic Editor

Look for the Project Explorer Pane (Showing a tree mapping of your open VBA Projects)
If you don't see it, hit Ctrl-R to open it.

Find Personal.xlsb in the Project Explorer
Hit the "+" symbol to expand the objects.
Look to see what, if any, VBA code you have in any of the objects.

 

[ronniemodigh]

Hi Jerry,

Thanks again for your quick reply!

There are no macros stored under Microsoft Excel Objects. However I use my personal.xlsb actively and keep a few macros in Module 1. These add up to a 6.378 characters long list and I was hesitant to post them here as I don't know if it would add value to this thread. But as I couldn't find an 'upload file' option - here they are.

If you could find something here that would cause this problem I would be very grateful!

Best regards,

Ronnie

Sub Paste_Formulas()
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

_______________________________________________________________


Sub Paste_values()
'
' Paste_values Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

_________________________________________________________________


Sub Paste_Formats()
'
' Paste_Formats Macro
'
' Keyboard Shortcut: Ctrl+Shift+F
'
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub


_________________________________________________________________



Sub Format_numbers()
'
' Format_numbers Macro
'
' Keyboard Shortcut: Ctrl+q
'
Selection.NumberFormat = "#,##0"
End Sub


_________________________________________________________________




Sub Dynamics_format()
'
' Dynamics_format Macro
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Dim iAmountcol As Integer
Dim iDatecol As Integer
iAmountcol = Application.WorksheetFunction.Match("Amount", Range("A2:AA2"), 0)
iDatecol = Application.WorksheetFunction.Match("Posting Date", Range("A2:AA2"), 0)
ActiveSheet.Cells(2, iAmountcol).Select
Selection.EntireColumn.Select

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Selection.TextToColumns Destination:=Cells(1, iAmountcol), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=False

Selection.NumberFormat = "#,##0.00"

Rows("3:3").Select
ActiveWindow.FreezePanes = True

Lastrow = Range("A" & Rows.Count).End(xlUp).Row
With Range("C1")
.Value = "0"
.Copy
End With
Range(Cells(3, iDatecol), Cells(Lastrow, iDatecol)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy;@"

Application.CutCopyMode = False
Range("C1").ClearContents

Range("A3").Select
Selection.AutoFilter
End Sub


_________________________________________________________________






Sub Hyp_formatting()
'
' Hyp_formatting Macro
'
' Keyboard Shortcut: Ctrl+L
Dim Lastrow As Integer
Dim Toprow As Integer
Dim Endcol As String
'Insert A column and insert formula

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Lastrow = Range("B65536").End(xlUp).Row
Toprow = Range("B1").End(xlDown).Row
Endcol = Mid(Range("B" & Toprow).End(xlToRight).Address, InStr(Range("B" & Toprow).End(xlToRight).Address, "$") + 1, InStr(2, Range("B" & Toprow).End(xlToRight).Address, "$") - 2)


Range("A" & Toprow).Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(FIND(""acfg"",RC[1])),IF(LEN(RC[1])-(FIND(""acfg"",RC[1]))=6,2,IF(LEN(RC[1])-FIND(""acfg"",RC[1])>7,IF(ISNUMBER(VALUE(MID(RC[1],FIND(""acfg"",RC[1])+5,FIND("")"",RC[1])-FIND(""acfg"",RC[1])-5))),3,4),1)),0)"

Selection.AutoFill Destination:=Range("A" & Toprow & ":A" & Lastrow)

' Formatting
Range("B" & Toprow).Select
ActiveCell.EntireRow.Select
ActiveWindow.FreezePanes = True

ActiveWindow.DisplayGridlines = False

Range("B" & Toprow - 1).Select
ActiveCell.CurrentRegion.Select
Range("B" & Toprow).Offset(1, 0).Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = -0.14996795556505
.Weight = xlThin
End With

Range("A" & Toprow - 1).Select
ActiveCell.FormulaR1C1 = "a"
Range("B" & Toprow - 1).Select
ActiveCell.FormulaR1C1 = "b"
Selection.AutoFilter
ActiveSheet.Range("$A$" & Toprow - 1 & ":$" & Endcol & "$" & Lastrow).AutoFilter Field:=1, Criteria1:="1"
Range("A" & Toprow - 1 & ":" & Endcol & Lastrow).Select
Range("B" & Toprow).Offset(1, 0).Activate
Selection.Font.Bold = True

ActiveSheet.Range("$A$" & Toprow - 1 & ":$" & Endcol & "$" & Lastrow).AutoFilter Field:=1, Criteria1:="2"
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599963377788629
End With

ActiveSheet.Range("$A$" & Toprow - 1 & ":$" & Endcol & "$" & Lastrow).AutoFilter Field:=1, Criteria1:="3"
With Selection.Font
.Name = "Arial"
.FontStyle = "Halvfet"
.Size = 8
End With

ActiveSheet.Range("$A$" & Toprow - 1 & ":$" & Endcol & "$" & Lastrow).AutoFilter Field:=1, Criteria1:="4"
With Selection.Font
.Name = "Arial"
.FontStyle = "Halvfet Kursiv"
End With
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
End With
ActiveSheet.Range("$A$" & Toprow - 1 & ":$" & Endcol & "$" & Lastrow).AutoFilter Field:=1

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft

Range("B" & Toprow).Select
ActiveCell.CurrentRegion.Select
Selection.NumberFormat = "#,##0"

Range("A" & Toprow - 1).Select
ActiveCell.ClearContents

With ActiveSheet.PageSetup
.PrintTitleRows = "$" & Toprow - 1 & ":$" & Toprow - 1
.PrintTitleColumns = ""
End With

End Sub

 

[Jerry Sullivan]

I'm not seeing anything that jumps out.
You have some shortcut keys and I suppose it's possible there could be an unintended mapping there.

To rule out the Personal.xlsb, you could temporarily move the code out of your file into a Notebook file, save Personal.xlsb, exit out of Excel, reopen and test your Right-click.

 

[Bothasio]

I'm not seeing anything that jumps out. You have some shortcut keys and I suppose it's possible there could be an unintended mapping there. To rule out the Personal.xlsb, you could temporarily move the code out of your file into a Notebook file, save Personal.xlsb, exit out of Excel, reopen and test your Right-click.

Try following steps : Open the workbook that you want to inspect for hidden data and personal information. Click the Microsoft Office Button , click Save As, and then type a name in the File name box to save a copy of your original workbook. Important It is a good idea to use the Document Inspector on a copy of your original workbook because it is not always possible to restore the data that the Document Inspector removes. In the copy of your original workbook, click the Microsoft Office Button , point to Prepare, and then click Inspect Document. In the Document Inspector dialog box, select the check boxes to choose the types of hidden content that you want to be inspected. For more information about the individual Inspectors, see What information can the Document Inspector find and remove from workbooks? Click Inspect. Review the results of the inspection in the Document Inspector dialog box. Click Remove All next to the inspection results for the types of hidden content that you want to remove from your document. Important If you remove hidden content from your document, you might not be able to restore it by clicking Undo. If you remove hidden rows, columns, or worksheets that contain data, you might change the results of the calculations or formulas in your workbook. If you do not know what information the hidden rows, columns or worksheets contain, close the Document Inspector, unhide the hidden rows, columns, or worksheets, and then review their contents.