For-next loop with 2 variables

[Rasberry]

How do I get my loop to change the p and i at the same time without nesting?

For i = 1 To Number_of_Periods
For p = 1 To Number_of_Periods
ActiveCell.FormulaR1C1 = "=R7C3/2"
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "=R8C3/2"
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "=POWER(1+RC[-2], p)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-5]/RC9"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-5]/RC9"
ActiveCell.Offset(1, -6).Select
Next p, i

Thanks,

Rasberry

 

[Norie]

The reason I asked about the active cell is because you don't actually need to do all that selecting.

You could use something like this.

Set rng = ActiveCell
For I = 1 To Number_of_Periods - 1
    rng.FormulaR1C1 = "=R7C3/2"
    rng.Offset(0, 2).FormulaR1C1 = "=R8C3/2"
    rng.Offset(0, 4).FormulaR1C1 = "=POWER(1+RC[-2], " & I + 1 & " )"
    rng.Offset(0, 6).FormulaR1C1 = "=RC[-5]/RC9"
    rng.Offset(0, 7).FormulaR1C1 = "=RC[-5]/RC9"
    Set rng = rng.Offset(1, 0)
Next I

By the way I'm not 100% sure about the offsets but hopefully you get the idea.

 

[Rasberry]

O.K. Thanks! I like more efficient code.

Have a great day.