Assigning a macro shortcut key to a symbol

[redgrenadine]

Hello

I've searched for a solution to this to no avail. Basically what I would like to do is map the functions increase decimal and decrease decimal to CTRL+Shift+Comma and CTRL+Shift+Period, respectively.

I have the macros set for these functions, but due to the Excel limitations have mapped them to CTRL+Shift+N and M

However, out of sheer force of habit due to almost a decade of using plugin from S&P Capital IQ, I keep hitting CTRL+Shift+Comma and Period. Apparently without the plugin, these key combinations are fill down and fill right which have the double effect of managing to delete the number in the cell in addition to not doing the decimal thing I originally wanted.

I've seen some posts mentioning Application.Onkey but for some reason when I try to use it, it never actually works

Does anyone have any ideas? It would be very much appreciated. Thank you!



Here is the current code I'm using

Sub Increase_Decimal()
'
'Increase Decimal Macro
'Keyboard Shortcut: Ctrl+Shift+N
'
Application.CommandBars.FindControl(ID:=398).Execute
End Sub

Sub Decrease_Decimal()
'
'Decrease Decimal Macro
'Keyboard Shortcut: Ctrl+Shift+M
'
Application.CommandBars.FindControl(ID:=399).Execute
End Sub

[jason.b75]

Please use Code tags when posting code, not Quote tags. Code tags help to preserve formatting.

In the ThisWorkbook Module, enter the following code. (If you have multiple workbooks open, check that it is the correct one, there will be a 'ThisWorkbook' module for each workbook that is open.

Private Sub Workbook_Activate()
    Application.OnKey "+^{<}", "Increase_Decimal"
    Application.OnKey "+^{>}", "Decrease_Decimal"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "+^{<}"
    Application.OnKey "+^{>}"
End Sub

Save your workbook, deactivate the workbook and reactivate it, either by closing it or switching to another one, then back again, your desired shortcuts should now work.

edit:- the deactivate code is there so that it only runs on the workbook with the code, the shortcut keys will return to normal for other workbooks.

[redgrenadine]

You are absolutely amazing. Thank you so much

EDIT - figured out that if I delete the deactivate code it runs on everything which is what I want. Thank you again

[redgrenadine]

Actually wait - it doesn't work unless I have the Personal workbook opened as well. Any way to ensure it runs on every workbook when I open excel?

[jason.b75]

A workbook containing the code needs to be open for it to work.

See if this helps
https://support.office.com/en-gb/art...ad=GB&fromAR=1