How to loop and print if the condition becomes negative

[lagsca]

How to test a loop and print if the condition becomes negative?

Example:

I like to loop Cell B1 from values 1 to 500.

Cell B8 output changes depending on the value of Cell B1.

When Cell B8 becomes negative, I like to print it. I like to print each negative until the values reach 500 in cell B1.

Thank you for your help.

 

[dafan]

This will print all negative values in B8 in column C from 1 to x (where x = amount of negative values that pass in B8 when looping from 1 to 500).

Sub Test()
 
j = 0
For i = 1 To 500
    Range("B1").Value = i
    If Range("B8").Value < 1 Then
        j = j + 1
        Range("C" & j).Value = Range("B8").Value
    End If
Next
 
End Sub

I used an easy =IF(MOD(B1,10)=0,-1,1) in B8 so I got a list of 50 times -1 in C1:C50.

HTH.

 

[lagsca]

Thank you Stefan. It works perfectly.

Best regards,
Richard