I apolozgize. I'm not used to posting and didn't understand why I didn't see
my reply at the beginning of the post. Won't happen again.

"Peo Sjoblom" wrote:

For future posts please stay in the original thread, by multiposting you
make
people irritable and you are decreasing the chance of getting an answer.

--


Regards,


Peo Sjoblom

"Sojo" wrote in message
...
I am writing a macro to automate several processes. I have the following
table where column A has positive and negative values and column B is
blank.
I need a formula that will find all the negative values in column A and
move
them to column B. In essence, it needs to say if number in column A < 0,
then cut it and paste it into column B.


1. Original Negative
2. 3.72545
3. 3.4584
4. 3.1071
5. -0.460399
6. -0.803222
7. -1.12457

I have several excel docs each with only 1 worksheet. My columns run from
A
to DO (this will be constant) and rows go to 2280 (this will not be
constant). Because of this I would prefer a macro function instead of a
formula.

IanC's gave me the following macro.

For r = 2 To 100
If Cells(r, 1).Value < 0 Then
Cells(r, 1).Copy
Cells(r, 2).PasteSpecial
Cells(r, 1).Value = ""
End If
Next

I copied and pasted the macro as is into a VB module, but it didn't work.
I
don't know much about code, so can't figure out what I did wrong.