Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro help
I have this macro as follows
Sub Copy_ESM_Prices() ' ' Keyboard Shortcut: Ctrl+t ' Sheets("Dump").Select Application.Goto Reference:="R1C1" ActiveSheet.Paste Application.Goto Reference:="ClippedGrid" ActiveWindow.LargeScroll Down:=0 ActiveWindow.ScrollRow = 1 Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("B3") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll ToRight:=1 ActiveWindow.LargeScroll ToRight:=-1 Sheets("TAB1").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("TAB2").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("TAB3").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("Dump").Select End Sub When I remove the section from :- sheets("tab1").select -: down to :- sheets("dump").select (as per example) The macro does not work. Sub Copy_ESM_Prices() ' ' Keyboard Shortcut: Ctrl+t ' Sheets("Dump").Select Application.Goto Reference:="R1C1" ActiveSheet.Paste Application.Goto Reference:="ClippedGrid" ActiveWindow.LargeScroll Down:=0 ActiveWindow.ScrollRow = 1 Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("B3") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll ToRight:=1 ActiveWindow.LargeScroll ToRight:=-1 Sheets("Dump").Select End Sub Can any body help me please. your help will be very much appreciated Thank You Rgs Jerie |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro help
What is it supposed to do and what doesn't happen?
-- HTH RP "Jerie" wrote in message ... I have this macro as follows Sub Copy_ESM_Prices() ' ' Keyboard Shortcut: Ctrl+t ' Sheets("Dump").Select Application.Goto Reference:="R1C1" ActiveSheet.Paste Application.Goto Reference:="ClippedGrid" ActiveWindow.LargeScroll Down:=0 ActiveWindow.ScrollRow = 1 Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("B3") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll ToRight:=1 ActiveWindow.LargeScroll ToRight:=-1 Sheets("TAB1").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("TAB2").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("TAB3").Select Application.Goto Reference:="R1C1" Range("Pricesv3.xls!ClippedGrid").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:A3"), CopyToRange:=Range ("B2"), Unique:=False Sheets("Dump").Select End Sub When I remove the section from :- sheets("tab1").select -: down to :- sheets("dump").select (as per example) The macro does not work. Sub Copy_ESM_Prices() ' ' Keyboard Shortcut: Ctrl+t ' Sheets("Dump").Select Application.Goto Reference:="R1C1" ActiveSheet.Paste Application.Goto Reference:="ClippedGrid" ActiveWindow.LargeScroll Down:=0 ActiveWindow.ScrollRow = 1 Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("B3") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll ToRight:=1 ActiveWindow.LargeScroll ToRight:=-1 Sheets("Dump").Select End Sub Can any body help me please. your help will be very much appreciated Thank You Rgs Jerie |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro help
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |