Loop through files in a folder

[paesu57]

Hi all

I would like to create a Macro which does the following task.
I have a Workbook Master.xlsx with a worksheet "source"
The path of Master.xlsx is C:\Test
In the Directory C:\Test\projects i have about 50 files which all contain the String "Forecast" in their filename.
These Forecast Workbooks need an update in the Worksheet "actuals"

So, i need a Macro that copies WS "source" from WB "Master" to WS actuals in all WB's Forecast.

Can you help me, im new with VBA....

Thanks in advance
Pascal

[Bernie Deitrick]

It depends on what you mean by "need an update" - this code will copy all the cell on sheet "Source" and paste them over the cells on sheet "Actual" of all the workbooks. I would make a copy of all the "Forecast" files and put them into another folder when you test this.

Sorry that I did a bad job of editing after pasting the code into my post

Please Login or Register  to view this content.

[paesu57]

Hi Bernie
Thank you! But I have another problem with your code: The files only contain "Forecast" in their name, but that ain't the whole filename. I'm getting the runtime Error "File not found".
When I directly enter

Set wkbkF = Workbooks.Open(C:\Test\Projects\Forecast.xlsx"), it works, but loops infinitely and unstoppable ^^ ...


)

[millz]

There's a typo and something missing in that code:

Please Login or Register  to view this content.

[paesu57]

Thank you genious

[Bernie Deitrick]

Thanks for catching my bad editing job...