Transform text in cells in to table (VBA)

Dzirt07

New Member
Joined
Oct 10, 2017
Messages
11
Hello, dear VBA masters

Does anybody know how to transform text in cell into table using VBA
I have a list of our customers with their contact information. The emails and phone numbers are being stored in the cells. I need to extract them and create the table and use them / update and etc in future


This is the link for the file with the example

https://drive.google.com/open?id=10dsxoHesEgI3jv7kIWmZbThfawZGPGVo

Plz help

For example (what I have in cells):

Code:
Emails

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.
 




 




xxxxxx@yahoo.com




First seen Sep 2009 and last seen Sep 2009 
 
 Run an email report  
 




 




xxxx11@yahoo.com




First seen Apr 2013 and last seen Aug 2018 
Type Personal 
 Run an email report  






 




xxxxxx2222@aol.com




First seen Nov 2008 and last seen Aug 2018 
Type Personal 
 Run an email report  






 




xxxxx44444@yahoo.com




 
Type Personal 
 Run an email report

needs to be similar to this:

[TABLE="width: 500"]
<tbody>[TR]
[TD][TABLE="width: 262"]
<tbody>[TR]
[TD="class: xl65, width: 262"]User #1[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 437"]
<tbody>[TR]
[TD="class: xl65, width: 437"]xxxx11@yahoo.com[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 522"]
<tbody>[TR]
[TD="class: xl65, width: 522"]First seen Apr 2013 and last seen Aug 2018 ,Type Personal, Run an email report[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 262"]
<tbody>[TR]
[TD="class: xl65, width: 262"]User #1[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 437"]
<tbody>[TR]
[TD="class: xl65, width: 437"]xxxxxx2222@aol.com[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 522"]
<tbody>[TR]
[TD="class: xl65, width: 522"]First seen Nov 2008 and last seen Aug 2018, Type Personal, Run an email report[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]


thank you for your help
 

Excel Facts

Easy bullets in Excel
If you have a numeric keypad, press Alt+7 on numeric keypad to type a bullet in Excel.

Forum statistics

Threads
1,223,714
Messages
6,174,052
Members
452,542
Latest member
Bricklin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top