extract email address from the cell if it matches one from the list

[mumsys]

Hi,
i have a problem with my macro project. With help of the colleagues from the forum i have a macro that deletes the certain domain name from the cells in column 1...i would like to have the other way around.

What i need is the macro to look through the column A and find email adresses with the domain name from the list. If it finds it should only take the actual email address that matched the domain from the list, and copy it to next column.
Please look on the example in the attachment

If it would help here is macro that i have in the first place:

Please Login or Register  to view this content.

THANKS A LOT FOR ALL THE HELP

[sktneer]

Try this to see if this works as per your requirement.

Please Login or Register  to view this content.

Please find the attached sheet and click on the Green Button on Test Sheet to get the desired output in col. B.

[mumsys]

Hi Sktneer,
That works just like i would want. The only thing is that there could be a very long list of the domains that could be extracted from the column. I wonder if its possible to take the variables email1, email2 and so on from the particular list.

But without a doubt thats the idea and it works perfectly.

[sktneer]

Try this code. The code assumes that the col. G contains the domain list starting from G2.

Please Login or Register  to view this content.

[mumsys]

Hi Sktneer,
That works brilliant - much appreciated. Great skills You have.

Thank You very much !

[sktneer]

You're welcome. Glad I could help.
If that takes care of your question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.
Moreover you may also click on * (star) to Add Reputation if the solution provided helped you. This is another way to say thanks.