delete non numberic characters
You need WorksheetFunction.Find and
"David T" wrote:
I am trying to come up with a "Do until Loop" macro to find and remove
non-numeric characters from all cells in a column, leaving only the numbers.
For example, if cell b6 contains
"$6,800 - ", I would like the macro to delete the "-" so that the cell will
have a value of -6,800.
I need the macro to Loop until the last row. I've tried to come up with a
macro but have not been successful. So far i have come up with this but it
stops me at the "Find" in my formula.
Sub CalculateOA()
Dim i As Integer
i = 5
Do Until [last row, what is the formula?]
Cells(i, 11).Value = Left(Cells(i, 11), (Find(("-"), Cells(i, 11)) - 1))
* -1
i = i + 1
Loop
Please help
|