Nate,
I tried your suggestion for the following:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/8/2002 by Mike Zaccardo
'
Dim cell As Range
'where I replaced .Range("M2:M" & lastrow) = "If(RC[-2]<0,RC*-1,RC)" with
For Each cell In Range("m1:m" & lastrow)
If cell.Offset(, -2).Value < 0 And cell.Value > 0 _
Then cell = -cell.Value
Next cell
End Sub
On the coding above I'm getting a DEBUG msg on "For Each cell....."
Trying to change the value in a cell to a negative number if the total sales 2 cells to the left is negative.
I tried your suggestion for the following:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/8/2002 by Mike Zaccardo
'
Dim cell As Range
'where I replaced .Range("M2:M" & lastrow) = "If(RC[-2]<0,RC*-1,RC)" with
For Each cell In Range("m1:m" & lastrow)
If cell.Offset(, -2).Value < 0 And cell.Value > 0 _
Then cell = -cell.Value
Next cell
End Sub
On the coding above I'm getting a DEBUG msg on "For Each cell....."
Trying to change the value in a cell to a negative number if the total sales 2 cells to the left is negative.