Macro Doesn't Run Automatically

[matthewlouis]

Several months ago, I had some help creating the following macro.

Sub clicky()
For t = 1 To 100
Application.Calculate
Range("J10").Value = Range("J10").Value + 1
If Range("F11").Value <= 0.8 Then Range("J12").Value = Range("J12").Value + 1
Debug.Print t & ":" & Range("F11")
MsgBox t
Next t
End Sub

The macro works well except for one thing. It doesn't run automatically. When I hit CTRL-Shift-C, I want it to run the macro automatically 100 times. However, I am having to hit the Esc button each time to run ONE simulation, or 100 times to complete it. Am I missing a line in the code? I circled back to the person who helped write this code but I never heard back from him . . . it's been 3 months . . . so I hope the moderators understand this isn't a re-post.

Thanks in advance!

Several months ago, I had some help

 

[matthewlouis]

I give up, too Someone else did this code because I don't do VBA, strictly excel functions. Yes, I do have a lot of excel functions in the background that would need explaining . . . but, at this point, if I can't just fix the code to get automation, so be it, I'll just do it manually because displaying / uploading the whole thing and explaining it . . . pretty time consuming and I don;t want to waste your time any more than I have . . . I really appreciate your effort in helping me! Thanks so much.

 

[Zyndstoff]

Sorry I couldn't help.

 

[GWteB]

@matthewlouis, haven't actually read all posts within this thread yet, but where do you store the individual results of your intended simulations?
It seems to me that each result will be overwritten by the next one and that the code as of your post #19 just give you one result: the result of the last iteration.

 

[matthewlouis]

@GWteB, the individual results are not stored . . . each simulation overrides the previous simulation, however, I thought the code was compiling and accumulationg each simulation with the + 1.

 

[GWteB]

Your code runs 100 times but if you don't store the results you end up with just the result of the last run.

 

[matthewlouis]

 

[matthewlouis]

The picture shows 300 simulations . . . 68 failed and 232 were successful. Every time a simulation is done, it is complied per the code in the Failures and Successful.

So even though it's overriding the previous calculation, it is still adding each one up. So, it is storing each one.

 

[GWteB]

So for my understanding, when your macro runs once (with its 100 iterations), that is considered to be just ONE simulation. Am I right?

 

[matthewlouis]

When my macro runs once, yes, it is one simulation.

Right now, I am having to run the macro with Ctrl-Shift-C, hit Esc, and then I have to click the Esc button 100 times to get 100 simulations.

What I am wanting is to run the macro with Ctrl-Shift-C, hit Esc, and it automatically runs and accumulates 100 simulations.

This is the code:

Sub clicky()
For t = 1 To 100
Application.Calculate
Range("J10").Value = Range("J10").Value + 1
If Range("k2").Value <= 0.8 Then Range("J12").Value = Range("J12").Value + 1
MsgBox t
Next t
End Sub

 

[Zyndstoff]

The bold 300 seems to be J10.... So the macro running once corresponds to 100 simulations.