Using for and next options in VBA

Hi all,

I am in learning phase of VBA.

My task is simple. Please refer the attached images (Image 1 and Image 2).

My cell B1 is 2, B2 is based on " i " value (initial i value is 2)

if i add B1 and B2 in B3, the output should be 10.
Until the addition becomes 10, the value of B2 have to be changed in the increment of 1 (i.e. i + 1)

I have tried a code of my own. But i am facing errors.

Please help me in resolving this.


Thanks,
Prabhu P

Image 1.PNGImage 2.PNG

Attach your workbook, rather than an image.

Go Advanced -> Manage Attachments -> Upload

1. The assignment of variable "c" seems redundant in your code.
2. B3 has never been assigned with a value.
3. The "IF...THEN...ELSE..." structure is not a loop but executes only once. Even if it's written properly it does increment the value of B2 from 2 to 3, but not up to 8 to make up with a total of 10. (if I understand your question correctly).
Instead, you may use "Do while loop" or "Do until loop" to execute the part of code for increment (which is potentially executed more than once).

Hi kersplash,
sorry, the file have been uploaded in the previous comment. Can you please use it..

Hi Pensis,
yes, you are upto my requirement.
Can you please write a code to execute the task.

Originally Posted by prabhu04

Hi Pensis,
yes, you are upto my requirement.
Can you please write a code to execute the task.

Try to replace the last part of the your code with below:

c = a + b

Do While c < 10
    b = b + 1
    c = a + b
Loop

Range("b2").Value = b
Range("b3").Value = c