do until loop and output

[arom]

I will put any number in cell B2. This number is called 'd2' and will be referenced in the code.

i want to write code that will do the following:

let p1 = .01
then do p1 = p1 + d2 until p1 = 1 - d2 + .01 and put these numbers in column C.

any ideas??

thanks!!

 

[jbeaucaire]

This macro seems to follow your logic, but I can't fathom your number series yet. What number values are you dealing with? If you can explain your number series, I could put checks into the macro to keep it from spinning off the page like it's doing for me right now.

Sub NumSeries()
Dim p1 As Double, d2 As Double, NR As Long
p1 = 0.01
d2 = Range("B2")
NR = 1

    Do
        p1 = p1 + d2
        Cells(NR, "C") = p1
        NR = NR + 1
        If p1 >= 1 - d2 + 0.01 Then Exit Do
    Loop

End Sub

I added the >= instead of just = to at least get it to stop when it passes the point that it would NEVER match.

 

[arom]

actually, that's fine. i can leave it as >= for now. thank you so much for your help!! i really appreciate it!

 

[Norie]

arom

What is the series?

What values are you using in B2?