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!


--
MACRE0
------------------------------------------------------------------------
MACRE0's Profile: http://www.excelforum.com/member.php...o&userid=10848
View this thread: http://www.excelforum.com/showthread...hreadid=478087

If '12345

is in the active Cell

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

End Sub

--
Regards,
Tom Ogilvy


"MACRE0" wrote in
message ...

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!


--
MACRE0
------------------------------------------------------------------------
MACRE0's Profile:
http://www.excelforum.com/member.php...o&userid=10848
View this thread: http://www.excelforum.com/showthread...hreadid=478087

I appreciate it, thanks.


--
MACRE0
------------------------------------------------------------------------
MACRE0's Profile: http://www.excelforum.com/member.php...o&userid=10848
View this thread: http://www.excelforum.com/showthread...hreadid=478087