Moving "-" From beginning to end.

[GreatOffender]

I have posted this on another board but I am now on a time crunch so I am grasping at straws. I would use a formula but this is something that will be used again and again by persons other than myself. I need to move the "-" from the end of the number to the beginning. I have cobbled together bits and pieces from other boards/threads and my final result lacks a "trim" which I cannot get to work successfully. The end result is always the same "--" in the front.

Any and all help is always appreciated.

Sub Fix_Minus_Sign()For Each cell In Range("BE1:BE" & Cells.End(xlDown).Row)
If InStr(1, cell.Value, "-") Then
cell.Value = "-" & Left(cell.Value, Len(cell.Value) - 1)
End If
Next
End Sub

 

[DataBlake]

this worked for me? I changed the range to A1:A2
i put "abc-" in A1
and "adv-" in A2

it change to "-abc" and "-adv"

are there instances where "-" appears more than once? or appears somewhere thats not the end?
can you supply an example?

 

[Fluff]

I have posted this on another board

Thanks for letting us know, but could you please supply a link to the other site, as per Forum Rules (see rule 13 here along with the explanation: Forum Rules)

 

[DataBlake]

AHHH its probably formatted as a number try this

Sub Fix_Minus_Sign()
Range("BE1:BE" & Cells.End(xlDown).Row).NumberFormat = "@"

For Each cell In Range("BE1:BE" & Cells.End(xlDown).Row)
If InStr(1, cell.Value, "-") Then
cell.Value = "-" & Left(cell.Value, Len(cell.Value) - 1)
End If
Next

End Sub

 

[GreatOffender]

"Fluff"ed out of this one. Thank you BlakeSkate for your wisdom.

 

[Fluff]

You haven't been "Fluff"ed out. I was simply asking you to provide the link, so please do that.