Here is one VBA solution that ignores values unless they contain a dash
(minus
sign). Using this method, you need to make your selection first, then run.
Watch for line wrapping:
Dim lDash As Long
Dim sValue As String
Dim rCell As Range
For Each rCell In Selection
If InStr(1, rCell.FormulaR1C1, "-", vbTextCompare) <> 0 Then
lDash = InStr(1, rCell.FormulaR1C1, "-", vbTextCompare)
sValue = Application.WorksheetFunction.Replace(rCell.FormulaR1C1,
lDash, 1, "")
rCell.FormulaR1C1 = "-" & sValue
End If
Next rCell
HTH
"(E-Mail Removed)" wrote:
> Hi
>
> I have a column of data.
>
>
> Unfortunately the negative symbol is on the right of the numbers to
> represent a negative number.
>
>
> What I need is a macro to look down a column and if it find the first
> character to the right of that cell is a "-" symbol then move that to
> the first character on the left of the cell to make the numbers
> negative.
>
>
> I hope this is possible and someone can help,
>
>
> Thank you so much in advance,
>
> Andrea
>
>
|