Macro to save text of active cells to notebook

**Taislin** · 03-21-2013, 08:38 PM

Hi. I need a macro to get the content of a collumn of cells. The thing is that i need it to get only the data from the cells who have data shown on them, because i have a formula in those cells as, for example, IF(A1="";"";A1). So if A1 is "" then it will show nothing but if is [email protected], for example, it will show this mail. So in a collum i have this kind (more complex) of formulas (C1:C100) and i need a macro to get the content of the cells in this range who shows values only. But the macro as to get these mails and paste them as: "[email protected]; [email protected]; ....and so on" in a new notebook file which as to be stored with the name of the file MAIL in the same folder of the workbook.

I added a example file which shows exactly what i need and a image so you can understand what i really mean.
Thank you very much and hope someone can help.

**Leith Ross** · 03-21-2013, 09:15 PM

Hello Taislin,

Add a VBA module to your workbook and add the code below to it.

Please Login or Register  to view this content.

**Leith Ross** · 03-21-2013, 09:16 PM

Hello Taislin,

Add a VBA module to your workbook and add the code below to it.

Please Login or Register  to view this content.

**Taislin** · 03-22-2013, 01:58 PM

@Leith Ross

Hi. Thank you for your quick response. I tried this code in my sample workbook (the one ip added in the first post) and it does nothing. I think the code is not directed for my sample workbook i provided. Perhaps you could download the file and see what i really need and put the code for the example i made so i can understand better the code with my sample please. If you dont want to download the xls file there is also an image of a printscreen that explains really well the excel sample file and what i need the macro to do in that sample. So if you could help i would be really gratefull.
Thank you
Regards:
Mário Machado

**Leith Ross** · 03-22-2013, 02:32 PM

Hello Taislin,

I have installed the macro in the attached workbook. There is a button on the page to run the macro. The emails will save to a text file named EMAIL.txt in the same directory as the workbook.