using a macro to move values in cells if they are a negaive value

[neil_fairweather101]

I have a list of numbers in a column
Some are negative, some are positive.
How can I move all the negative (or positive) values to
another column without doing it manually
Do I use the macro function ?

 

[Don Guillett]

Try this. Adjust to suit. It moves negatives from col C to column F

sub moveem()
for each c in [c2:c200]
if c<1 then c.cut c.offset(,3)
next
end sub