Move Minus (Revisited)
We have a text file from SAP that brings over 28,000 rows of information. The minus is on the wrong end for Excel AND commas are already part of the number.
Private Sub FixNegativeValues()
range("D8").Select
range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
For Each cel In Selection.Cells
On Error Resume Next
If Right(cel.Text, 1) = "-" Then
cel.Value = Round(CCur(cel.Text), 2)
End If
Next
On Error Goto 0
End Sub
The TRIM statement gets rid of the extraneous junk that was messing with the numbers.
|