Change Number to a negative in VBA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi
I currently have a range of numbers which need to be change from a positive
into a negative however I am not aware of the cell reference as the rows can
be more or less.

Does anyone know how to change a range of numbers from a positive into a
negative using VBA.

I actually need the number to be negative not just the format.

Thanks
Noemi
 
Noemi

If numbers are in Activecell column..........

Sub test()
Dim rcel As Range
Dim Rng As Range
Set Rng = Range(ActiveCell, Cells(Rows.Count, _
ActiveCell.Column).End(xlUp))
For Each rcel In Rng
If rcel.Value <> "" And rcel.Value >= 0 Then
rcel.Value = rcel.Value * -1
End If
Next rcel
End Sub


Gord Dibben Excel MVP
 
VBA is not required for this. Put -1 in an empty cell. Copy that cell.
Select the range of numbers whose sign you want to change. Edit|Paste
Special|Multiply.

Jerry
 
Back
Top