VBA code Copy data into one file

Hello all

for a long time i tried to figure out how to make the right vba code for my problem. Found some examples already but can't succeed to adjust them properly. I lack the knowledge sadly. Maby someone can help me a bit further.

In short: i have about 2000 files made in excel. They are all the same. Now i need to copy name of file in A2, from sheet "Algemeen" D3 in B2, D6 in B3. If there is no data in them i need a warning like *empty , (but thats not stricktly necessary, I also need more data from othersheets but i hope i can figure out that myself later). I found an example code from rondebruin. It works when using his examplefile but when putting into another folder i get a error. Next is how can i "range" the cells; maby i understand "ranging" wrong? SourceRng:="D3,D6", doesnt work. If this code is not suitable can someone send me a link where i can find a better one?

many thanks already.

greetings PeterDV
--------------

Please Login or Register  to view this content.

Please edit your original thread and put your code between code brackets

Please Login or Register  to view this content.

Is this all the code Ron de Bruin provided? Are all the files in the same Folder (Directory) or are there sub folders? Have you search the rest of the furum RoyUK has provided some interesting Code.
http://www.excelforum.com/excel-prog...readsheet.html