Need Help With Loop Until in VBA

[palaceofreverie]

Hey guys,

I've been starting to use VBA recently so its still pretty new to me
Although, i do know you can use it to add to a number in specific integers until a value is reached, I'm not completely sure how to write this.

for example

A1=1 and B1=5

If A1 is < B1 then A1 + .5 until A1 >= B1

Anyone have any suggestions,
whatever help provided would be much appreciated.

 

[perimidt]

I guess your example is just for learning the structure.

Sub LoopUntil()
Do While Range("a1") < Range("b1")
    Range("a1") = Range("a1") + 0.5
Loop


End Sub

Best regards
Per Erik

 

[palaceofreverie]

Thanks for your response!

Does there happen to be a way to do this automatically?
I've entered the code you provided and it doesn't seem to do anything with the numbers in the cells.

If there is a way to do this automatically, is there also a way to apply this to a command button?

 

[perimidt]

Well

You will have to run the code first.
Either by clicking Alt+F8 or assign it to a button.

To assign it to a button go to the developer tab and insert the first button (Under Form Control) and select the macro LoopUntil.


Per Erik

 

[palaceofreverie]

Thank you very much, this worked perfectly!

Might I add that the vba code came out looking like this:

Sub LoopUntil()
Do While Range("a1") < Range("b1")
Range("a1") = Range("a1") + 0.5
Loop


End Sub


Private Sub CommandButton1_Click()
LoopUntil
End Sub

Thank you once again