VBA comparing signs of rows in 2 columns

[zeno]

Hi,

I am comparing the signs of rows in 2 columns. If the sign is different, I want to multiply the 2nd column by (-1). I have the code below, but it is not working.

For k = 2 to k
    If sgn(k,"O")<>sgn(k,"P") then range("P"&k)*(-1)
Next k
   End If

 

[Jonmo1]

Try

If sgn(Cells(k,"O"))<>sgn(Cells(k,"P")) then range("P"&k).Value = Range("P"&k)*-1

 

[zeno]

Thanks, that makes it work!