Macro to copy numbers as texts by adding an apostrophe in front of the numbers

Please Login or Register  to view this content.

The macro works perfectly! Thanks jindon!

You are welcome and thanks for the rep.

Wait.... if the numbers are in the five digits, the macro does not work!

Can the macro be modified to convert any numbers with any number of digits?

Should work for any digits.

Aye... it was not working well... but after I saved and closed the file and re-opened it... the macro is working! Thanks jindon!

Dear jindon... would you be kind to explain to me what is the "4" for and what does the following statement do?

"In Columns("d").SpecialCells(4).Areas"

Thank you.

While you are in vbe
[view] - [Object Browser] then type xlspecialcells in search box.
Click on XLCellType in the bottom pane within the Function.
Click on xlCellTypeBlanks and you will see the value in the bottom pane showing "Const xlCellTypeBlanks = 4"

Areas:
Just highlight Areas and hit F1.
You will see the help.

Originally Posted by jindon

While you are in vbe
[view] - [Object Browser] then type xlspecialcells in search box.
Click on XLCellType in the bottom pane within the Function.
Click on xlCellTypeBlanks and you will see the value in the bottom pane showing "Const xlCellTypeBlanks = 4"

Areas:
Just highlight Areas and hit F1.
You will see the help.

Thanks for pointing me to the place to see help.. I still blur blur...

The macro seems not to work when I added more numbers to the list... please see attached file below. Please help! Thanks.

Wait... now it seems to work... is the macro a bit unstable or is it my Excel version?

Perhaps only your Excel...

Ya.. most likely... thanks jindon!