I have modules 7,8,9,10,11,12 that are Subs
Using the Code:
I Believe each macro would run, one at a time, one by one; The question is, is there a way to run by calling these macros to repeat to a specific amount of times before it stops.Code:
Sub MasterMacro()
Call Macro7
Call Macro8
Call Macro9
Call Macro10
Call Macro11
Call Macro12
End Sub
Any help on this is Greatrly Appreciated!!!
Thank you in Advance,
Sincerely
Dennis
Hello!
I may be underestimating your request, but according to my understanding:
[VBA]Sub Loop_Through_Subs()
Dim varIndex As Integer
Dim varTotal As Integer
varTotal = 5 'Number of times your macros will be called inside the loop
For varIndex = 1 To varTotal
'Call Macro1
'Call Macro2
'Call Macro3
'Call Macro4
Next varIndex
End Sub[/VBA]
Regards,
Douglas
if I want the Macros 7,8,9,10,11,12 one at a time meaning;
7 runs then, 8 runs, then 9 runs, then 10 runs, then 11 runs, then 12 runs then It would go and do this over again about over 8000 times then stop.
Code:for i = 7 to 8000
for j = 1 to i
call macro7
call macro8, etc
.... etc
next j
next i
Awsome!!! Ill Give it a test Thank You!!!!!!:)
I appreciate it!!!
so it should look like this? so this is how it should look in regards to settin this up to work?
Code:SubMasterMacro()
For i=7 to 8000
For j = 1 To i
Call macro7
Call macro8
Call macro9
Call macro10
Call macro11
Call macro12
Next j
Next i
More simply
Code:For 1 = 1 to 8000
Call MasterMacro
Next i
I hope you realise that it will take a long time to run, since you will be running the macros 7+8+ 9 + all numbers up to 8000 times. I put it in because that is what you asked for.
So you might want to try setting the i loop limit to something sensible like 20 to start with.
I understand it will take a long time. all macros 7,8,9,10,11,12 take a total of about 2 minutes.
Just want to be sure Im setting it up correctly?
SubMasterMacro()
For i=7 To 8000
For j = 1 To i
Call macro7
Call macro8
Call macro9
Call macro10
Call macro11
Call macro12
Next j
Next i
Your requirements are not totally clear: After you have run all the macros 7 times, are you thinking that you might do something ( like record a result) before you go on to run all the macros 8 times? And then similarly do you want to record are result after 8 times through the macros. If you aren't doing this , then MdMackillop's or d Marcel's solution will run all the macros 8000 times. If you want to record a result in between each set of runs through macros then you need a solution like mine. If you want to record results between each set of runs you would do it like this:
Code:SubMasterMacro()
For i=7 To 8000
For j = 1 To i
Call macro7
Call macro8
Call macro9
Call macro10
Call macro11
Call macro12
Next j
' write code to record results between runs here
Next i
ok sorry for the unclarity,
So I have the modules 7,8,9,10,11,12.
I want to run these one at a time;
run 7 then it ends, then 8 will start then end, then 9 will start and then end, then 10 will start then end, then 11 will start then end, then finally 12 will start then end.
Then I need it to repeat this process for about 8000 times or what ever amount I need it to.
so the end result:
each macro records a result that finally leads to a final result. with the fianl macro.
so each macro performs a task and results it. so it automatically as i do it now shows the result.
So instead of doing it manually running each macro as i do now,
I would open ALT F8 then run then when thats done it would go to next one until it finishes and so on.
Then I would do it all over again.
Here is a simple example. Run Test on a blank worksheet
Code:Dim j
Sub Test()
For j = 1 To 3
Call MasterMacro
Next
End Sub
Sub MasterMacro()
Call Macro7
Call Macro8
Call Macro9
Call Macro10
Call Macro11
Call Macro12
End Sub
Sub Macro7()
For i = 1 To 100000
Cells(i, 1) = i * j
Next i
End Sub
Sub Macro9()
For i = 1 To 100000
Cells(i, 3) = i * j
Next i
End Sub
Sub Macro11()
For i = 1 To 100000
Cells(i, 5) = i * j
Next i
End Sub
Sub Macro8()
For i = 1 To 3
Cells(i, 2) = i * j
Next i
End Sub
Sub Macro10()
For i = 1 To 3
Cells(i, 4) = i * j
Next i
End Sub
Sub Macro12()
For i = 1 To 3
Cells(i, 6) = i * j
Next i
End Sub
the codes that I run depends on the others result.
So I cant Have the first Code 7 run for example 8000 times then have code 8 run 8000 times etc.
They have to be run consecutively 7 then it ends, then 8 then it ends, then 9 then it ends , then 10 then it ends then 11 then it ends then 12 then it ends then repeat.
until it has done this for about 8000 times.
And your question is?
Read MD's entire post. That code runs each of his macro#'s one after the other... 8000 times.
See how long it takes.
so the code above in post 11 should do this?
Im testing now,
just ran it and it replaced my data in column C with "0"
Ok i ran it again and still it turns my data to zero's
I tried also only 10 rows and it still puts zeros where my data is.
it has never done this I copied and pasted the code in post #11 exactly
im having trouble,
I even tried doing the code again an is not working correctly I even tried replacing the "Macro" in the Code to "Module" as the 7 8 9 10 11 12 are Modules.
When i entered my codes I inserted as modules.
the Dim j
Should be under the Sub. I thought that looked odd being its declaring variable should be between Subs.
I ran again and is keeps placing zeros in my data.
its not working like when i do it manually
I aslo rearranged the 7 8 9 10 11 12 to go in order in your code and still it isnt working. Im not sure why its not working.
Im stumped.
if i cant do it this way with call module is there a way to place each code in order under the other?
This might help in regards to macro name and Module number
Sub Test () is module7 (code)
Sub testA_v2() is Module8 (code)
Sub test2 () is Module9 (code)
Sub SplitAddress() is Module10(code)
Sub Test_v3() is Module11 (code)
Sub sbClearCells() is Module12 (code)
It is not modules that you run, they are just containers for procedures, but the procedures themselves. MD showed you exactly what you wanted in post #11, just replace Macro7 with Test, Macro 8 with testA_v2, etc.. The problem with 0s would seem to be your code, there is nothing in MDs code that sets anything, and you never mentioned setting to 0 before.
a quick calculation one iteration takes two minutes, so 8000 interations is going to take:Quote:
I understand it will take a long time. all macros 7,8,9,10,11,12 take a total of about 2 minutes.
2 * 8000= 16000 minutes = 266.66 hours = 11.11 days
Before I tried running a test like that , I would seriously look at trying to speed up macros7 to 12. I would be very surprised if we couldn't help you with that , but we would need to see the macros
Your problem with the zeros is because that the "Dim j" MUST be right at the top of the module before any of the "subs". This defines it as a varialbe which is the same variable where ever it is used within that module. if you look at Md code you will see that each sub used "j" . if it is defined at the top of the module all of the "j"s are the same variable and thus the value gets carried across from sub to sub. If it is not defined at the top then each subroutine creates it's own J , and all but one of them (test) are blank, hence the zeros.Quote:
the Dim j
Should be under the Sub. I thought that looked odd being its declaring variable should be between Subs.
The zeros were appearing when I copied code exactly with dim directly above subs that is when I got the zeros, so I thought it was because of location of Dim
Emph addedQuote:
[mdmackillop: Post 11
Here is a simple example. Run Test on a blank worksheet
Code:Dim j
Sub Test()
For j = 1 To 3
Call MasterMacro
Next
End Sub
'
'
'
'
'
'
'
Ok I ran it on the blank sheet and it places Zeros int F column int first 2nd and 3rd row .
Im new at this method of callung the macros and need help on how to solve this. i dont under stand why some modules in the code have this > For i = 1 To 100000 For i = 1 To 3
ok soI placed the right under
the Sub Test () For j=1 to 100 and i got this below
is this
27 27 27 27 27 27 54 54 54 54 54 54 81 81 81 81 81 81 108 108 108 108 108 108 135 135 135 135 135 135 162 162 162 162 162 162 189 189 189 189 189 189 216 216 216 216 216 216 243 243 243 243 243 243 270 270 270 270 270 270 297 297 297 297 297 297 324 324 324 324 324 324 351 351 351 351 351 351 378 378 378 378 378 378 405 405 405 405 405 405 432 432 432 432 432 432 459 459 459 459 459 459 486 486 486 486 486 486 513 513 513 513 513 494 540 540 540 540 540 520 567 567 567 567 567 546 594 594 594 594 594 572
showing the how many times each macro runs? this is on the blank sheet.S
o if I get it to run on my sheet with data will this be placed over my existing data and not just run my macros ?
Implementation of the demonstration code
ok I watched the demonstration,
does the count that you have in column A have to be there. when i tun the code in mibe i writes over my data
Also when I run mine does the code wait until the first module fisnish before goin on to the next module 8? and so on down the modules. meaning does the call module go as fast as each code/ 7 takes maybe a minute to complete then 8 takes half a minute and so on until the 7 8 9 10 11 12 take a little over 2 minutes to run.
Also you ve in you deveoper box the individual macros call macro 7 then macro 8 etc
my macros in the box show the actual name of the macros not module 7 or module 8 etc or even Macros 7 ro macros 8 etc. im just trying to figure out why it doesnt work
Sub Test () is module7 (code)
Sub testA_v2() is Module8 (code)
Sub test2 () is Module9 (code)
Sub SplitAddress() is Module10(code)
Sub Test_v3() is Module11 (code)
Sub sbClearCells() is Module12 (code)
ok so I had Change the name of the macros to macro 7 8 9 10 11 12
I ran it and it over wrote everything in columns A though F on my sheet with Zeros
so i ran it but the result of my codes didn't occur the only thing that happened was zeros over wrote over my data my codes use to run.
Sub run_all_six()
macro7
macro8
macro9
macro10
Macro11
Macro12
End Sub
could this work to run macros consecutively then add code that will repeat these for 8000 times?
Quote:
Originally Posted by estatefinds
I believe this question has been answered.Code:Sub Test()
For j = 1 To 3
Call MasterMacro
Next
End Sub
I tried that but the only thing I get are zeros over writing my data and the macros are not carrying out the job my macros are meant to do.
Question is why are my macros not being carried out using the call mastermacro?
help on this is appreciated.
Since no one knows what your macros are doing, I think you'll need to revise them to handle 8000 re-runsQuote:
Originally Posted by estatefinds
As Mac says, there have been many examples of how to run your set of macros multiple times
If the ...
... doesn't do what you want, you'll need to revise Macro7, Macro8, ...Code:Sub Test()
For j = 1 To 8000
Call MasterMacro
Next
End Sub
No one here has a clue what you did with the above suggestions.
Writing Code requires great precision in logic, word choice and grammar, and typing and spelling.
Thank you for your help on this!
I appreciate everyone's help!!!
Thank you!
Sincerly,
Dennis
I have that book,Thank you!
I have figured out what exactly I needed,
Sub LoopMacro()
Dim x As integer
For x=1 to (whatever number)
Call (name of macro)
Next x
End sub
Thank you, everyone for your input!
Exactly as you were advised in Post #6