cells a neg. when a pos. is entered

[Billionzz]

I'm trying to make a column have negative numbers like a checkbook ledger.I'm

If I entered $12.00 into a cell in that column I would like it to actually be ($12.00).

I know this is simple and I have did it several times before but for some reason I can't get it.

I'm using excel 98 version.

Thanks,

 

[Billionzz]

I searched the forum but any answers I found didn't work.

Any idea's?

 

[jindon]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
With Target
   If .Column <> 1 Then Exit Sub
   If WorksheetFunction.Count(.Cells) <> .Cells.Count Then Exit Sub
   Application.EnableEvents = False
   For Each r In .Cells
      r.Value = ABS(r.Value) * -1
   Next
   Application.EnableEvents = True
End With
End Sub

 

[Billionzz]

Thanks I'll try it.

But this is office 98, is that option available or do I access it thru vb?

 

[jindon]

1) right click on sheet tab, click[view Code]
2) paste the code then close the window to get back to excel

change any cell in columnA

 

[Billionzz]

Great, but I don't see the column mentioned in the code. I need it to be column D so where would I change it?

Thanks,

 

[jindon]

Change 1 To 4 (1st Column To 4th Column)
like

   If .Columns<>4 Then Exit Sub

 

[Billionzz]

I pasted this code and it didn'tseem to change anything.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
With Target
If .Columns <> 4 Then Exit Sub
If .Value = "" Then Exit Sub
If WorksheetFunction.Count(.Cells) <> .Cells.Count Then Exit Sub
Application.EnableEvents = False
For Each r In .Cells
r.Value = Abs(r.Value) * -1
Next
Application.EnableEvents = True
End With
End Sub

 

[jindon]

Sorry typo

Should be Column not Columns

If .Column <> 4 Then

 

[Billionzz]

It works great,

Thank you very much, I was looking for the answer for hours. You know how you get on something and don't want to stop until you figure it out.

Have a nice day