I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to any
who can help.

How about.

Sub makenegpos()
For Each c In Range("r1:r9")
If c.Value < 0 Then c.Value = -c
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.

Don,

I like your example to change Neg to Pos. How do you change Pos to Neg?

I tired the following & it didn't work. I changed only the if statement.

Sub MakePosNeg()
For Each c In Range("A1:ZZ10000")
If c.Value 0 Then c.Value = c
Next c
End Sub
--
Thanks, Kevin


"Don Guillett" wrote:

How about.

Sub makenegpos()
For Each c In Range("r1:r9")
If c.Value < 0 Then c.Value = -c
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.

Try Don's original suggestion.

-c will convert positive to negative and negative to positive.



AFSSkier wrote:

Don,

I like your example to change Neg to Pos. How do you change Pos to Neg?

I tired the following & it didn't work. I changed only the if statement.

Sub MakePosNeg()
For Each c In Range("A1:ZZ10000")
If c.Value 0 Then c.Value = c
Next c
End Sub
--
Thanks, Kevin

"Don Guillett" wrote:

How about.

Sub makenegpos()
For Each c In Range("r1:r9")
If c.Value < 0 Then c.Value = -c
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.



--

Dave Peterson

Dave,

The neg to pos work great. However, I get the following error when I change
it to 0. Run-time error '13': Type mismatch. It doesn't like c.Value = -c
--
Thanks, Kevin


"Dave Peterson" wrote:

Try Don's original suggestion.

-c will convert positive to negative and negative to positive.



AFSSkier wrote:

Don,

I like your example to change Neg to Pos. How do you change Pos to Neg?

I tired the following & it didn't work. I changed only the if statement.

Sub MakePosNeg()
For Each c In Range("A1:ZZ10000")
If c.Value 0 Then c.Value = c
Next c
End Sub
--
Thanks, Kevin

"Don Guillett" wrote:

How about.

Sub makenegpos()
For Each c In Range("r1:r9")
If c.Value < 0 Then c.Value = -c
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.



--

Dave Peterson

I bet that the cell that caused the trouble wasn't a cell that contained a
number.

So you can add a check:

Sub MakePosNeg()
For Each c In Range("A1:ZZ10000")
if isnumeric(c.value) then
If c.Value 0 Then
c.Value = -c.value
end if
end if
Next c
End Sub

I like the block style "if/end if". I changed Don's original suggestion, but it
won't matter.



AFSSkier wrote:

Dave,

The neg to pos work great. However, I get the following error when I change
it to 0. Run-time error '13': Type mismatch. It doesn't like c.Value = -c
--
Thanks, Kevin

"Dave Peterson" wrote:

Try Don's original suggestion.

-c will convert positive to negative and negative to positive.



AFSSkier wrote:

Don,

I like your example to change Neg to Pos. How do you change Pos to Neg?

I tired the following & it didn't work. I changed only the if statement.

Sub MakePosNeg()
For Each c In Range("A1:ZZ10000")
If c.Value 0 Then c.Value = c
Next c
End Sub
--
Thanks, Kevin

"Don Guillett" wrote:

How about.

Sub makenegpos()
For Each c In Range("r1:r9")
If c.Value < 0 Then c.Value = -c
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.



--

Dave Peterson


--

Dave Peterson

If they are all negative put -1 in an empty helper cell and copy it
select all the negatives and paste special multiply
delete the helper cell

"Michaelcip" wrote:

I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to any
who can help.

If they are all negative, then put -1 in a spare cell and copy that cell.

Then select the numbers and EditPasteSpecialMultiply

OK out and clear out the -1.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Michaelcip" wrote in message
...
I want to convert neg. numbers to positive numbers. To be clear, I don't
want them just to DISPLAY as positive but to BECOME positive. As well, I
don't want to have to had another column (the ABS() function). Thanks to
any
who can help.