Vba to Copy from Mass Specific Cells Range to a workbook

Hi All, Good Morning..

Yes, i know that is easy to copy from a worksheet to another, or copy Workbook.. Believe me
i learn a lot excel stuff from you.. and i know how to copy in many ways
Except this time, that i can reach on how to start (other conventional ways of copy, already did it)

I been looking all over the Net and this forums with no succeed, matter of Fact i think i need a VBA
(I'm not an expert on macro, By i know decently, and i can't find the starting on this thing)

What i need, then the explanation
==========================
what i need is to Extract the data column located in A3:A38 from each of the 300 workbook and copy
(In Date order older to newest date, left to right, on Cell a,b,c,d,e,f, etc,etc.. starting in Row 3 down )
on one Workbook named Col-A.xlsm

Explanation :
==========
I have over 300 Worksheet with Data
As a Name Each Worksheet is using the Date when created
e. i.
Apr 1.xlsm, Apr 2.xlsm, Apr 3.xlsm,Apr 4.xlsm, Apr 5.xlsm, etc,etc,etc...

Each workbook have plain numbers Sorted on special way, but they are In Alternated Cells like for example
starting in Cell A3 to A38, Then Jump to C3 to C38, Then
E3 to E38,
G3 to G38,
I3 to I38,..... W3 to W38,

Here is a the way how look the Workbook with the Plain Numbers data:

R 2___ A_____C____E____G____I____K____M____O .... etc
R 3___11____11___11___12___10___09___14___14 .... etc
R 4___24____29___30___10___09___15___15___12 .... etc
R 5___32____10___12___04___23___10___24___05 .... etc
R 6___14____28___05___09___15___11___10___10 .... etc
R 7___20____05___10___01___14___21___30___15 .... etc
R 8___33____23___32___28___05___01___12___09 .... etc
R 9___16____14___20___02___01___18___18___32 .... etc
R 10__29____32___15___24___12___14___13___33 .... etc

NOTES :
======
1-.I can't post a Sample workbook because there are big file's (over 10 mb) and data is dependable
(or concatenated ) and i can't make it smaller or Cut.
2-. In reality, i need to Transfer each of the Column (6600 columns)
(all Cell "A" from the 300 workbooks in to Workbook Col-A.xlsm)
(all Cell "C" from the 300 workbooks in to Workbook Col-C.xlsm)
(all Cell "E" from the 300 workbooks in to Workbook Col-E.xlsm) etc,etc,etc

I just need how to start w/ VBA or formula then i figure it out everything else

3-. It doesn't matter if with the code/VBA/Formula, i have to process/Copy 3 files at the time..


Thank you !!

Best Regards

David

Youll need to look at the filesystemobject to loop through the files, and then you can do what you need with copy & paste to oldworkbook.range("a:a").copy newworkbook.range("a1").paste.

Hi

You need to add a reference to Microsoft Scripting Run Time (tools--> references)

This should do it, i havent tested as dont have dummy data or time to create it.

Please Login or Register  to view this content.