Convert a number formatted as text to a number in a macro

  • Thread starter Thread starter MACRE0
  • Start date Start date
M

MACRE0

Anyone have a simple macro that converts a number in a cell that was
formatted as text or proceeded by an apostrophe?

Or a work around
Coverting " 12345 - xyz"

Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=MID(RC[1],3,7)"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

to "12345" such that a vlookup can then match this to "12345" that's
formatted as a number already.

Thanks for any and all help!
 
If '12345

is in the active Cell

Sub aaa()
ActiveCell.NumberFormat = "General"
ActiveCell.Value = ActiveCell.Value

End Sub
 
Back
Top