Change Number to a negative in VBA

[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

 

[Gord Dibben]

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

 

[Jerry W. Lewis]

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