Looping Macro to Stop After Certain Cell Value is attained.

[cpatel13]

Hie,
So basically i have created a Excel File in which random numbers are generated. In which
A1 Input Value
A2 Low
A3High
These are the input values and the result is random numbers generated between the Low and high value, B5:B13 has this formula =ROUND(RANDBETWEEN($B$2,$B$3),-1). and B15 has this forumula =B1-SUM(B5:B13). Which gives me exactly the total when all the numbers in B5:B15 equals to the A1 which the input value, and C15 has this formula =IF(OR(B15<b2,b15>B3),"Failed","Success"), which states that whether the number is between the lower and higher value or not.Now what i have done is made an automation in the process, added a macro to help me. which is as follows:</b2,b15>

Sub Button5_Click()
Range("B5:B13").Calculate
End Sub

What i want is to run the macro untill C15 becomes success and when C15 becomes success the macro stops immediately.

Thanks Again.

 

[Fishboy]

Hie,
So basically i have created a Excel File in which random numbers are generated. In which
A1 Input Value
A2 Low
A3High
These are the input values and the result is random numbers generated between the Low and high value, B5:B13 has this formula =ROUND(RANDBETWEEN($B$2,$B$3),-1). and B15 has this forumula =B1-SUM(B5:B13). Which gives me exactly the total when all the numbers in B5:B15 equals to the A1 which the input value, and C15 has this formula =IF(OR(B15<b2,b15>B3),"Failed","Success"), which states that whether the number is between the lower and higher value or not.Now what i have done is made an automation in the process, added a macro to help me. which is as follows:</b2,b15>

Sub Button5_Click()
Range("B5:B13").Calculate
End Sub

What i want is to run the macro untill C15 becomes success and when C15 becomes success the macro stops immediately.

Thanks Again.

Hi cpatel13, welcome to the boards,

If i am understanding you correctly then I think you can just do the following:

Sub Button5_Click()
Do Until Range("C15").Value = "Success"
Range("B5:B13").Calculate
Loop
End Sub

 

[cpatel13]

Thanks Fishboy, that's exactly what i was looking forward. thanks very much, i am trying to improvise the doc, i think so i may require a few more codes. but thanks again, you are genius.

 

[Fishboy]

Thanks Fishboy, that's exactly what i was looking forward. thanks very much, i am trying to improvise the doc, i think so i may require a few more codes. but thanks again, you are genius.

No problem, happy to help. Many thanks for the positive feedback and pressing the Like button