Filter only mails with certain domain name extension

[coldrex]

Hey all,

I have thousands of e-mails in my worksheet with different domain name extensions - .com, .cn, .it, .ru, .lt and so on.

I need to leave only mails with .com extension. Others should be removed to the next worksheet.

How do I filter them correctly?

[Leith Ross]

Hello coldrex,

Can you post the workbook or a small sample of the data? It will make it easier to provide you with a workable solution.

[coldrex]

Yes.
Here is the link to the screenshot http://img813.imageshack.us/img813/8936/scr1.gif

I have underlined mails with .com extension. We should leave only them, and all the others should be removed to the next worksheet.

[Leith Ross]

Hello coldrex,

Based on the image you posted, it appears the emails are all in column "A". If not then let me know so I can adjust the macro. This takes the emails on "Sheet1" and parses out the ".com" domains. The other domains will be moved to "Sheet2" in column "A". No headers are assumed to be present on the worksheets.

Please Login or Register  to view this content.

[coldrex]

Compile error: Expected End Sub.

And marks the string with Sub ParseEmails()

[Leith Ross]

Hello coldrex,

The error "Expected End Sub" would indicate the End Sub statement did not paste into your module. I made some changes to the macro to allow for all legal email characters. Use this macro instead of the previous one.

Please Login or Register  to view this content.

Adding the Macro

1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
   
7. Make any custom changes to the macro if needed at this time.
8. Save the Macro by pressing the keys CTRL+S
9. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

[coldrex]

Thanks a lot for help! Solved!