Adding a Minus Sign with a macros

[DaleKeel]

I need to add a minus sign in front of a number in cell G8 and one in H8.

Thank you for your time

 

[Kenneth Hobson]

Sub Main()
  Dim c As Range
  For Each c In [G8:H8]
    If c > 0 Then c = c * -1
  Next c
End Sub

 

[DaleKeel]

Thank you very much. It worked perfectly.

 

[Rick Rothstein]

Here is another macro (a one-liner) that will also do what you want...

Sub Main()
  [G8:H8] = [IF({1},-ABS(G8:H8))]
End Sub

 

[footoo]

Here is another macro (a one-liner) that will also do what you want...

Sub Main()
  [G8:H8] = [IF({1},-ABS(G8:H8))]
End Sub

Is the IF function necessary?
This seems to work:

Sub Main()
[G8:H8] = [-ABS(G8:H8)]
End Sub

 

[Rick Rothstein]

Is the IF function necessary?
This seems to work:

Sub Main()
[G8:H8] = [-ABS(G8:H8)]
End Sub

Yes, it is necessary. Without it, if you put two different numbers in G8 and H8, the number in G8 ends up in both cells.

 

[MARK858]

Yes, it is necessary. Without it, if you put two different numbers in G8 and H8, the number in G8 ends up in both cells.

Hi Rick, I put 36 in G8 and 27 in H8 and got -36 and -27 respectively in the cells with the code by footoo Can you elaborate on when you get the same number in each cell.

 

[Rick Rothstein]

Hi Rick, I put 36 in G8 and 27 in H8 and got -36 and -27 respectively in the cells with the code by footoo Can you elaborate on when you get the same number in each cell.

Weird... when I do the same thing, I get -36 in both cells.

Maybe it is version related... I am using XL2010, what version are you using?

 

[MARK858]

Currently 365 but if I get a chance over the weekend I'll see if I get the same results with 2010.

 

[footoo]

I'm using XL2016.