Make Numbers Negative

[Jenawade]

The numbers added to this sheet from other workbooks are all positive numbers, but if the form is being created as an increase, then the numbers need to be changed to negative, something like this:

    If frmPartLoc.cboType.Value = "Increase" Then
    Range("J5:K15").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    End If

That doesn't actually change the numbers to negative, though. What will work here?

Thanks!

 

[JamesW]

Hi,

Try:

    For Each i In Selection
        i.Value = -i.Value
    Next

 

[VoG]

Try like this

If frmPartLoc.cboType.Value = "Increase" Then
    Range("J5:K15").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    For Each c In Range("J5:K15")
        c.Value = -c.Value
    Next c
End If

 

[Jenawade]

Beautiful; thank you!!!