Macro to invert sign

Closed

Vicki - Jun 7, 2010 at 06:26 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jun 7, 2010 at 06:52 PM

Hello,

I need a macro that will flip a positive to a negative and vice verse. I had the following but it stopped working all of a sudden...

Dim Cel As Range
For Each Cel In Selection
If IsNumeric(Cel.Value) Then
If Cel.Value < 0 Then
Cel.Value = Abs(Cel.Value)
Else: Cel.Value = Abs(Cel.Value) * (-1)
End If
Next Cel
End Sub

Uh-oh... looks like we can't get you in your account on this device. please try signing in from the device you use most often.
You need the official whatsapp to use this account ✓ - WhatsApp Forum
Synaptics pointing device driver - Guide
This account has been deactivated due to inactivity, but we would love to welcome you back! click sign up below to create your new account. ✓ - Yahoo Mail Forum
Www.facebook.com/device - Facebook Forum
This account has been deactivated due to inactivity ✓ - Yahoo Mail Forum

1 response

Answer 1 / 1

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jun 7, 2010 at 06:52 PM

A macro is not supposed to stop working for no reason. There has to be a cause. Have you tried to debug and step thru the code.

It is same as yours, just a minor tweak

Dim Cell As Range

    For Each Cell In Selection
    
        If (IsNumeric(Cell.Value) And Cell <> "") Then Cell.Value = Cell.Value * -1
    
    Next Cell

Similar discussions

Try signing in from the device you use most often

Yahoo can't get sign you in on this device

We can’t sign you in right now. Please try again in a while.

Can’t access settings for a few days lock out

Uh-Oh, we can't recover your account online

Similar discussions

Subscribe To Our Newsletter!