Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign kbd shortcut to a macro using vba
I have copied a macro from one (master) spreadsheet to another using the code
below. But when I open the spreadsheet which the code has been copied into up the kbd shortcut which I had given it is lost. The code works if I go alt+F8 | run; and I can re-assign the kbd shortcut through options but I want it to be there automatically. Is there any way to do this when I copy the code across? Thanks, Dean. 'copy macro to validated wookbook Dim FName As String With Workbooks("TEAMS_Master.xls") FName = .Path & "\code.txt" .VBProject.VBComponents("Module9").Export FName End With Workbooks("CBev.xls").VBProject.VBComponents.Impor t FName 'code I am copying to new workbook Sub Macro_t() ' ' Macro_t Macro ' Macro recorded 05/04/2007 by Dean ' ' Keyboard Shortcut: Ctrl+t ' Range("Y2").Select Selection.AutoFilter Selection.AutoFilter Field:=25, Criteria1:="0", Operator:=xlAnd Range("A1").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign kbd shortcut to a macro using vba
Dean,
try this: Application.MacroOptions Macro:="Macro_t", ShortcutKey:="t" -- Hope that helps. Vergel Adriano "Dean" wrote: I have copied a macro from one (master) spreadsheet to another using the code below. But when I open the spreadsheet which the code has been copied into up the kbd shortcut which I had given it is lost. The code works if I go alt+F8 | run; and I can re-assign the kbd shortcut through options but I want it to be there automatically. Is there any way to do this when I copy the code across? Thanks, Dean. 'copy macro to validated wookbook Dim FName As String With Workbooks("TEAMS_Master.xls") FName = .Path & "\code.txt" .VBProject.VBComponents("Module9").Export FName End With Workbooks("CBev.xls").VBProject.VBComponents.Impor t FName 'code I am copying to new workbook Sub Macro_t() ' ' Macro_t Macro ' Macro recorded 05/04/2007 by Dean ' ' Keyboard Shortcut: Ctrl+t ' Range("Y2").Select Selection.AutoFilter Selection.AutoFilter Field:=25, Criteria1:="0", Operator:=xlAnd Range("A1").Select End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign kbd shortcut to a macro using vba
Thanks Vergel, that works great.
Cheers, Dean "Vergel Adriano" wrote: Dean, try this: Application.MacroOptions Macro:="Macro_t", ShortcutKey:="t" -- Hope that helps. Vergel Adriano "Dean" wrote: I have copied a macro from one (master) spreadsheet to another using the code below. But when I open the spreadsheet which the code has been copied into up the kbd shortcut which I had given it is lost. The code works if I go alt+F8 | run; and I can re-assign the kbd shortcut through options but I want it to be there automatically. Is there any way to do this when I copy the code across? Thanks, Dean. 'copy macro to validated wookbook Dim FName As String With Workbooks("TEAMS_Master.xls") FName = .Path & "\code.txt" .VBProject.VBComponents("Module9").Export FName End With Workbooks("CBev.xls").VBProject.VBComponents.Impor t FName 'code I am copying to new workbook Sub Macro_t() ' ' Macro_t Macro ' Macro recorded 05/04/2007 by Dean ' ' Keyboard Shortcut: Ctrl+t ' Range("Y2").Select Selection.AutoFilter Selection.AutoFilter Field:=25, Criteria1:="0", Operator:=xlAnd Range("A1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Assign shortcut keys | Excel Discussion (Misc queries) | |||
assign shortcut to macro | Excel Programming | |||
Assign ShortCut-key To Toggle VBA-toolbar? | Excel Programming | |||
assign a symbol to a shortcut key | Excel Discussion (Misc queries) | |||
not getting the "assign macro" shortcut | Excel Programming |