Macro for special copy and paste

Status
Not open for further replies.

laravindh

New Member
Joined
Aug 25, 2018
Messages
8
Please provide me a VBA code that will run and do the below task automatically. I would be grateful if you provide me a solution.
I am having around 100 to 150 excel files having different file names.
I mentioned the exact requirement in Steps:
Step:1 Sample 100 files are listed here but this names also will vary for each project.
[TABLE="width: 436"]
<tbody>[TR]
[TD]247001.xls
[/TD]
[TD]247021.xls
[/TD]
[TD]247041.xls
[/TD]
[TD]247061.xls
[/TD]
[TD]247081.xls
[/TD]
[/TR]
[TR]
[TD]247002.xls
[/TD]
[TD]247022.xls
[/TD]
[TD]247042.xls
[/TD]
[TD]247062.xls
[/TD]
[TD]247082.xls
[/TD]
[/TR]
[TR]
[TD]247003.xls
[/TD]
[TD]247023.xls
[/TD]
[TD]247043.xls
[/TD]
[TD]247063.xls
[/TD]
[TD]247083.xls
[/TD]
[/TR]
[TR]
[TD]247004.xls
[/TD]
[TD]247024.xls
[/TD]
[TD]247044.xls
[/TD]
[TD]247064.xls
[/TD]
[TD]247084.xls
[/TD]
[/TR]
[TR]
[TD]247005.xls
[/TD]
[TD]247025.xls
[/TD]
[TD]247045.xls
[/TD]
[TD]247065.xls
[/TD]
[TD]247085.xls
[/TD]
[/TR]
[TR]
[TD]247006.xls
[/TD]
[TD]247026.xls
[/TD]
[TD]247046.xls
[/TD]
[TD]247066.xls
[/TD]
[TD]247086.xls
[/TD]
[/TR]
[TR]
[TD]247007.xls
[/TD]
[TD]247027.xls
[/TD]
[TD]247047.xls
[/TD]
[TD]247067.xls
[/TD]
[TD]247087.xls
[/TD]
[/TR]
[TR]
[TD]247008.xls
[/TD]
[TD]247028.xls
[/TD]
[TD]247048.xls
[/TD]
[TD]247068.xls
[/TD]
[TD]247088.xls
[/TD]
[/TR]
[TR]
[TD]247009.xls
[/TD]
[TD]247029.xls
[/TD]
[TD]247049.xls
[/TD]
[TD]247069.xls
[/TD]
[TD]247089.xls
[/TD]
[/TR]
[TR]
[TD]247010.xls
[/TD]
[TD]247030.xls
[/TD]
[TD]247050.xls
[/TD]
[TD]247070.xls
[/TD]
[TD]247090.xls
[/TD]
[/TR]
[TR]
[TD]247011.xls
[/TD]
[TD]247031.xls
[/TD]
[TD]247051.xls
[/TD]
[TD]247071.xls
[/TD]
[TD]247091.xls
[/TD]
[/TR]
[TR]
[TD]247012.xls
[/TD]
[TD]247032.xls
[/TD]
[TD]247052.xls
[/TD]
[TD]247072.xls
[/TD]
[TD]247092.xls
[/TD]
[/TR]
[TR]
[TD]247013.xls
[/TD]
[TD]247033.xls
[/TD]
[TD]247053.xls
[/TD]
[TD]247073.xls
[/TD]
[TD]247093.xls
[/TD]
[/TR]
[TR]
[TD]247014.xls
[/TD]
[TD]247034.xls
[/TD]
[TD]247054.xls
[/TD]
[TD]247074.xls
[/TD]
[TD]247094.xls
[/TD]
[/TR]
[TR]
[TD]247015.xls
[/TD]
[TD]247035.xls
[/TD]
[TD]247055.xls
[/TD]
[TD]247075.xls
[/TD]
[TD]247095.xls
[/TD]
[/TR]
[TR]
[TD]247016.xls
[/TD]
[TD]247036.xls
[/TD]
[TD]247056.xls
[/TD]
[TD]247076.xls
[/TD]
[TD]247096.xls
[/TD]
[/TR]
[TR]
[TD]247017.xls
[/TD]
[TD]247037.xls
[/TD]
[TD]247057.xls
[/TD]
[TD]247077.xls
[/TD]
[TD]247097.xls
[/TD]
[/TR]
[TR]
[TD]247018.xls
[/TD]
[TD]247038.xls
[/TD]
[TD]247058.xls
[/TD]
[TD]247078.xls
[/TD]
[TD]247098.xls
[/TD]
[/TR]
[TR]
[TD]247019.xls
[/TD]
[TD]247039.xls
[/TD]
[TD]247059.xls
[/TD]
[TD]247079.xls
[/TD]
[TD]247099.xls
[/TD]
[/TR]
[TR]
[TD]247020.xls
[/TD]
[TD]247040.xls
[/TD]
[TD]247060.xls
[/TD]
[TD]247080.xls
[/TD]
[TD]247100.xls
[/TD]
[/TR]
</tbody>[/TABLE]

All above Excel files have a common column name as highlighted in below snap. I need to copy that columns “TITLE 1, TITLE 2, TITLE 3, LOCATION” , “DRAWING” and “SHEET, NO OF TOTEL SHEET”



Step 2: I need to paste the copied columns into another master file with name “MASTER” in the format as shown in below snaps.

Step 3: This process continuesfor all the files one after the another continuously
(Ref:Fig:1).
. Please refer below.
Butthe drawing priority for the copy and paste to be followed from another excel(Ref:Fig:2).

Fig 1: Copy paste one after another
<strike></strike>


Fig :2 Priority Follow excel

<strike style="background-attachment: scroll; background-clip: border-box; background-color: transparent; background-image: none; background-origin: padding-box; background-position-x: 0%; background-position-y: 0%; background-repeat: repeat; background-size: auto; color: rgb(0, 0, 0); font-family: Calibri; font-size: 16px; font-size-adjust: none; font-stretch: 100%; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: normal; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; orphans: 2; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; text-align: left; text-decoration: line-through; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;"></strike><strike></strike>

<strike></strike><strike></strike>

<strike></strike><strike></strike>
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
Status
Not open for further replies.

Forum statistics

Threads
1,223,914
Messages
6,175,351
Members
452,638
Latest member
Oluwabukunmi

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