Loop fails

[davidam]

Hello,
Can anyone tell me why this does not work?
Points is a function of months.

Dim months As Integer
Dim points As Integer
points = Range("Z2").Value
months = Range("H2").Value
Do While points <> 8
If points < 8 Then months = months + 1
If points > 8 Then months = months - 1
points = Range("Z2").Value
months = Range("H2").Value
Loop

Thank you

 

[mikerickson]

Nothing inside the loop changes the value of points.

 

[davidam]

wait a second...think i see it...of couse i have to set the value of the range...arghh sorry

 

[VoG]

What is it meant to do? It doesn't make any sense to me.

 

[davidam]

Is it human nature that we always see our mistakes one instant too late?

Dim months As Integer
Dim points As Integer
points = Range("Z2").Value
months = Range("H2").Value
Do While points <> 8
If points < 8 Then Range("H2").Value = months + 1
If points > 8 Then Range("H2").Value = months - 1
points = Range("Z2").Value
months = Range("H2").Value
Loop

Thank you!

 

[davidam]

It is supposed to change H2 until if get the value of 8 in Z2...now it does.