Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Hot Keys question
I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination
for every combo except four. I'm running out of hotkeys. Can anyone suggest something I can use in my macro that allows me to run the macro with more hotkeys than I have? Thanks in advance. G |
#2
|
|||
|
|||
Greegan,
Sorry I don't have a specific answer for your question, however, I have a suggestion to solve your problem. Have you thought about using a customised menu? i.e. Adding a menu to Excel's menu bar to contain all those macros? if you are using them often, and have so many, you must have a large list of what key combination does what. By adding the menu, you can simplify your use, and if in a corporate environment, increase the useability of your macros if/when you move on (OK, maybe that's not what you want, but at least it will simplify your tasks....) Steve "Greegan" wrote in message ... I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination for every combo except four. I'm running out of hotkeys. Can anyone suggest something I can use in my macro that allows me to run the macro with more hotkeys than I have? Thanks in advance. G |
#3
|
|||
|
|||
Thanks Steve,
Yes I'm actually setting up a menu bar with a total of 5 menues and most of them are on the list already. But I was hoping someone could tell me how i could modify the macro so I don't need to use the shortcut keys anymore. I had asked this once before but we have since reinstalled XP and office. Here is a sample of my macro. Keep in mind it is a basic one but useful to what I do. Also, its strange but when I create the menues in Office XP they are not appearing in Office 97 or 2000 at work. I'm wanting to know if I have to save the file to be compatible to 97-2003 as the save as drop list indicates or is there an easier way? Anywho, here is my macro, Thanks again Sub AlphaCaseChange() ' ' AlphaCaseChange Macro ' Macro recorded 03/10/2004 by Scott Beattie ' ' Keyboard Shortcut: Ctrl+Shift+D ' Cells.Select Selection.Replace What:="a", Replacement:="A", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="b", Replacement:="B", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="c", Replacement:="C", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="d", Replacement:="D", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="e", Replacement:="E", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="f", Replacement:="F", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="g", Replacement:="G", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="h", Replacement:="H", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="i", Replacement:="I", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="j", Replacement:="J", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="k", Replacement:="K", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="l", Replacement:="L", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="m", Replacement:="M", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="n", Replacement:="N", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="o", Replacement:="O", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="p", Replacement:="P", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="q", Replacement:="Q", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="r", Replacement:="R", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="s", Replacement:="S", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="t", Replacement:="T", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="u", Replacement:="U", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="v", Replacement:="V", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="w", Replacement:="W", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="x", Replacement:="X", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="y", Replacement:="Y", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="z", Replacement:="Z", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False End Sub "Steve Smallman" wrote in message ... Greegan, Sorry I don't have a specific answer for your question, however, I have a suggestion to solve your problem. Have you thought about using a customised menu? i.e. Adding a menu to Excel's menu bar to contain all those macros? if you are using them often, and have so many, you must have a large list of what key combination does what. By adding the menu, you can simplify your use, and if in a corporate environment, increase the useability of your macros if/when you move on (OK, maybe that's not what you want, but at least it will simplify your tasks....) Steve "Greegan" wrote in message ... I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination for every combo except four. I'm running out of hotkeys. Can anyone suggest something I can use in my macro that allows me to run the macro with more hotkeys than I have? Thanks in advance. G |
#4
|
|||
|
|||
does anyone have any more suggestions on this?
"Greegan" wrote in message ... Thanks Steve, Yes I'm actually setting up a menu bar with a total of 5 menues and most of them are on the list already. But I was hoping someone could tell me how i could modify the macro so I don't need to use the shortcut keys anymore. I had asked this once before but we have since reinstalled XP and office. Here is a sample of my macro. Keep in mind it is a basic one but useful to what I do. Also, its strange but when I create the menues in Office XP they are not appearing in Office 97 or 2000 at work. I'm wanting to know if I have to save the file to be compatible to 97-2003 as the save as drop list indicates or is there an easier way? Anywho, here is my macro, Thanks again Sub AlphaCaseChange() ' ' AlphaCaseChange Macro ' Macro recorded 03/10/2004 by Scott Beattie ' ' Keyboard Shortcut: Ctrl+Shift+D ' Cells.Select Selection.Replace What:="a", Replacement:="A", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="b", Replacement:="B", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="c", Replacement:="C", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="d", Replacement:="D", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="e", Replacement:="E", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="f", Replacement:="F", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="g", Replacement:="G", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="h", Replacement:="H", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="i", Replacement:="I", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="j", Replacement:="J", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="k", Replacement:="K", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="l", Replacement:="L", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="m", Replacement:="M", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="n", Replacement:="N", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="o", Replacement:="O", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="p", Replacement:="P", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="q", Replacement:="Q", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="r", Replacement:="R", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="s", Replacement:="S", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="t", Replacement:="T", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="u", Replacement:="U", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="v", Replacement:="V", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="w", Replacement:="W", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="x", Replacement:="X", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="y", Replacement:="Y", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="z", Replacement:="Z", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False End Sub "Steve Smallman" wrote in message ... Greegan, Sorry I don't have a specific answer for your question, however, I have a suggestion to solve your problem. Have you thought about using a customised menu? i.e. Adding a menu to Excel's menu bar to contain all those macros? if you are using them often, and have so many, you must have a large list of what key combination does what. By adding the menu, you can simplify your use, and if in a corporate environment, increase the useability of your macros if/when you move on (OK, maybe that's not what you want, but at least it will simplify your tasks....) Steve "Greegan" wrote in message ... I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination for every combo except four. I'm running out of hotkeys. Can anyone suggest something I can use in my macro that allows me to run the macro with more hotkeys than I have? Thanks in advance. G |
#5
|
|||
|
|||
How do you create the menus?
If by ToolsCustomize and dragging menu items to the worksheet menu bar then these customizations are saved in your Excel.XLB file and not with the workbook. Others won't have access to this *.XLB file so customized menus won't show up. If you assign macros to a bunch of buttons onto a new Toolbar, you can attach the Toolbar to the workbook. Best to create menus "on the fly" with code in the workbook. The sites below give example code and tips. Note: some sites say for XL97, but same for 2003 http://support.microsoft.com/default...b;EN-US;830502 http://support.microsoft.com/support.../Q159/6/19.asp http://support.microsoft.com/support.../Q162/8/78.asp http://support.microsoft.com/default...EN-US;Q166755& Gord Dibben Excel MVP On Thu, 2 Dec 2004 23:29:58 -0000, "Greegan" wrote: does anyone have any more suggestions on this? "Greegan" wrote in message ... Thanks Steve, Yes I'm actually setting up a menu bar with a total of 5 menues and most of them are on the list already. But I was hoping someone could tell me how i could modify the macro so I don't need to use the shortcut keys anymore. I had asked this once before but we have since reinstalled XP and office. Here is a sample of my macro. Keep in mind it is a basic one but useful to what I do. Also, its strange but when I create the menues in Office XP they are not appearing in Office 97 or 2000 at work. I'm wanting to know if I have to save the file to be compatible to 97-2003 as the save as drop list indicates or is there an easier way? Anywho, here is my macro, Thanks again Sub AlphaCaseChange() ' ' AlphaCaseChange Macro ' Macro recorded 03/10/2004 by Scott Beattie ' ' Keyboard Shortcut: Ctrl+Shift+D ' Cells.Select Selection.Replace What:="a", Replacement:="A", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="b", Replacement:="B", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="c", Replacement:="C", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="d", Replacement:="D", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="e", Replacement:="E", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="f", Replacement:="F", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="g", Replacement:="G", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="h", Replacement:="H", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="i", Replacement:="I", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="j", Replacement:="J", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="k", Replacement:="K", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="l", Replacement:="L", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="m", Replacement:="M", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="n", Replacement:="N", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="o", Replacement:="O", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="p", Replacement:="P", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="q", Replacement:="Q", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="r", Replacement:="R", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="s", Replacement:="S", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="t", Replacement:="T", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="u", Replacement:="U", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="v", Replacement:="V", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="w", Replacement:="W", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="x", Replacement:="X", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="y", Replacement:="Y", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="z", Replacement:="Z", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False End Sub "Steve Smallman" wrote in message ... Greegan, Sorry I don't have a specific answer for your question, however, I have a suggestion to solve your problem. Have you thought about using a customised menu? i.e. Adding a menu to Excel's menu bar to contain all those macros? if you are using them often, and have so many, you must have a large list of what key combination does what. By adding the menu, you can simplify your use, and if in a corporate environment, increase the useability of your macros if/when you move on (OK, maybe that's not what you want, but at least it will simplify your tasks....) Steve "Greegan" wrote in message ... I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination for every combo except four. I'm running out of hotkeys. Can anyone suggest something I can use in my macro that allows me to run the macro with more hotkeys than I have? Thanks in advance. G |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating shortcut keys | Excel Discussion (Misc queries) | |||
drop down list question | Excel Discussion (Misc queries) | |||
In Excel keyboard arrow keys no longer work | Setting up and Configuration of Excel | |||
instead of moving cells my arrow keys scroll the page | Excel Discussion (Misc queries) | |||
How to make [toggling] shortcut keys to superscript and subscript, respectively? | Excel Discussion (Misc queries) |