Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
Hello:
I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
Are you sure that the others are not erroring out? Put a simple MsgBox at
the start of each and see where you get, or just step through the code. -- HTH Bob Phillips (replace xxxx in the email address with gmail if mailing direct) "childofthe1980s" wrote in message ... Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
Why not just copy the code from your other macros and paste it in the first
macro? Regards, Paul "childofthe1980s" wrote in message ... Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
use:
Application.Run "Col_Headers" Application.Run "Col_Width" Application.Run "Format_Header" You can always run your macros while recording one to see what the code would look like. childofthe1980s wrote: Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
I tried that. It didn't work.
childofthe1980s "PCLIVE" wrote: Why not just copy the code from your other macros and paste it in the first macro? Regards, Paul "childofthe1980s" wrote in message ... Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
I'm afraid that that did not work...any other ideas?
childofthe1980s "trice-nae" wrote: use: Application.Run "Col_Headers" Application.Run "Col_Width" Application.Run "Format_Header" You can always run your macros while recording one to see what the code would look like. childofthe1980s wrote: Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
running multiple macros at once
your code works fine here, except the subtotal part, i didn't duplicate that.
what kind of modules is your code in? sheet or code? can you go to the vbe an press f8 to step through your code and watch what happens? comment out everything but the 3 additional macros and see if they run comment out everything but the sort and see if it works, try to narrow down what doesn't work -- Gary -- Gary "childofthe1980s" wrote in message ... I'm afraid that that did not work...any other ideas? childofthe1980s "trice-nae" wrote: use: Application.Run "Col_Headers" Application.Run "Col_Width" Application.Run "Format_Header" You can always run your macros while recording one to see what the code would look like. childofthe1980s wrote: Hello: I have four separate macros for a spreadsheet. I want to run all four macros at once and in a certain order. I want all four macros combined into one. Here is what I have done to "combine" these macros, so far. After my first macro, I have put the names of my other three macros. My first macro runs, but these last three do not. How can I get all four of these macros to run without the end user having to run the first macro and then run each of the other three manually and separately? Below is my macro. The last three lines are the names of the other three macros. These other three macros are in the same VBA screen as the combined macro. So, that's how the combined macro knows where to reference the other three: Range("A1").Select Selection.CurrentRegion.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(4), _ Replace:=True, PageBreaks:=True, SummaryBelowData:=True Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(4), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True Col_Headers Col_Width Format_Header Thanks! childofthe1980s |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Running VB macros | New Users to Excel | |||
Message box with multiple options running different macros | Excel Discussion (Misc queries) | |||
running macros from IF | Excel Worksheet Functions | |||
Running Macros when on the LAN | Excel Discussion (Misc queries) | |||
Running Macros | Excel Programming |