negative number

[D]

I have a spreadsheet with some cells that will be displaying currency....
All the entries in these cells are going to be negative numbers. Is there
anyway to auotmatically have any number entered come up as a negative
number. Just in case i forget to do it manually........

 

[Leo Heuser]

You can use the change event of the sheet.
Rightclick the sheet tab and choose "Show code"
(or similar).
Enter the below code in the righthand window.
Adjust CheckRange to the range at hand.

Private Sub Worksheet_Change(ByVal Target As Range)
'Leo Heuser, 25-3-2004
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Range("A1:C10")

If Union(CheckRange, Target).Address = _
Union(CheckRange, CheckRange).Address Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub

 

[Charlie]

I do not know of a way to do this, but if you format the
cells involved to show negative numbers in red then you
can easily spot a positive number.

Charlie O'Neill

 

[D]

how'd you get so smart?....
thanks... works like a charm.
wish I could learn to write code.
d

 

[Leo Heuser]

You're welcome and thanks
for the feedback.

LeoH