Back to Negative Numbers

[sburkhar]

I'm still looking for a way to make numbers entered in a column appear and function as negetive numbers without having to add the minus sign to every entry.
Is there a way to format the column like this?

I'm code illiterate - so if you have a code for this, please be very specific about where and how to enter this code.

Thank you so much for any help!

 

[mbb4331]

You could enter a positive number in A1, then in B1 enter "=-A1".

 

[sburkhar]

You could enter a positive number in A1, then in B1 enter "=-A1".

that DOES work, but I can't add any more columns to this massive spreadsheet. But barring any other fixes, I'll continue to see if I can make your suggestion work.

thank you

 

[Domski]

You can convert them permanently like this:

- Open a new workbook

- In any cell enter -1

- Copy that cell

- Go back to your list and select the values

- Select Paste Special and Multiply

They should all change from positive to negative and vice versa.

Hope it helps

 

[sburkhar]

You can convert them permanently like this:

- Open a new workbook

- In any cell enter -1

- Copy that cell

- Go back to your list and select the values

- Select Paste Special and Multiply

They should all change from positive to negative and vice versa.

Hope it helps

That is a good "after the fact" choice that I can use too. Thanks!
I was hoping to get the template columns set up to function as negatives immediately upon entering the number. I really thought this was going to be an easy one.
I apologize for all the trouble and thanks to everyone who took the time to answer me.

 

[Domski]

Hi again.

I think this code should work.

To make it work for a whole worksheet use this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Value = Target.Value * -1
End Sub

Or for a specific range use this:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRange As Range, myCell As Range

Set myRange = Range("A1:A10")

On Error GoTo Finish
Application.EnableEvents = False

If Intersect(Target, myRange) Is Nothing Then GoTo Finish

For Each myCell In Target
    Target.Value = Target.Value * -1
Next myCell

Finish: Application.EnableEvents = True

End Sub

Changing the Range("A1:A10") to suit what you require.

You need to right click on your worksheet tab and select View Code and paste it there.

I think it should work although I always warn people I'm a bit of a code novice and have cobbled this together from a few posts so it could be flawed.

One thing you also may need to watch out for is I don't think it will work if people paste the numbers into the cells.