macro code to change positive numbers into negative numbers

[jts2004]

I know ASAP has a feature to do this but I need the code in a bigger macro that I wrote.

EX: -1 needs to be 1

 

[Jubjab]

Ok, in your title you say "change positive numbers into negative numbers", but in your example you do the opposite. This code change positive figures into negatives (does not change negatives).

If [a1].Value > 0 Then [a1].Value = [a1].Value * -1

 

[Jonmo1]

couldn't you multiply ANY number (both positive and negative) by -1...and that reverses the cosign?

in other words

-1 * -1 = 1
1 * -1 = -1

-35 * -1 = 35
35 * -1 = -35

Am I thinking to simple??

so you could just use formulas
=A1*-1
and fill down

that will reverse the cosigns...

if you ONLY want to change negatives to positives...it would be

=abs(a1) <---edited found better way than the IF statement.

or if you wanted to change positive to negative

=-abs(a1)

 

[Jonmo1]

in code, you can also use the ABS Function...

Range("A1").Value = Abs(Range("A1"))

 

[jts2004]

my example is backwards

could you write one opposite your original post

 

[jts2004]

in code, you can also use the ABS Function...

Range("A1").Value = Abs(Range("A1"))

I actually need it to work just like the ASAP utility function becuase its in a bigger macro

 

[Jonmo1]

Well, without more details, you can do an entire range like so...

Sub test()
For Each Cell In Range("a1:z100")
If Cell.Value < 0 Then
    Cell.Value = Abs(Cell.Value)
End If
Next Cell
End Sub

this will change any negative numbers in range A1:Z100 to Positive.

 

[jts2004]

how would you then change the positive into negative?

 

[Jonmo1]

Sub test() 
For Each Cell In Range("a1:z100") 
If Cell.Value > 0 Then 
    Cell.Value = cell.value * -1 
End If 
Next Cell 
End Sub

 

[jts2004]

thanks!

Thanks