Summary Sheet Macro

Hi,

I am really new to this but have had a go and I am really struggling.

I need to create a Summary sheet that looks up values from the files within the folder.

The files in the folder are all exactly the same I just need to select certain values.

I would like to create a summary sheet with standard headings etc and the run the Macro and this would then be populated from the all the files within the folder.

Is this possible?

Any help would be greatly appreciated.

Thanks
Christian

Hi and welcome!
Copy this code in Module, change red parameters: path to the folder with your files and Range you want to copy from all workbooks.

Please Login or Register  to view this content.

Hi Thanks for the response,

I am struggling to update the range. I need "O44:Q44" , "X49: Z84" and "X84:Z84"

How would I include this?

Thanks again

Why not attach a workbook showing the desired results and where you want the values to appear. It is not clear how you would wish to group the ranges as they are different lengths

Regards

Dav

Hi,

I have attached both an example of what the summary sheet would look like and the file I am trying to summarise.

Thanks
Christian

Perhaps something along the lines of

Please Login or Register  to view this content.

Thanks for that.

I've updated but it is not producing anything? I press the run button but nothing happens?
Thanks again

Yeah, I changed it to the place with all the files in.

"C:\Users\xxxx\Desktop\New folder"

Thanks

It should be "C:\Users\xxxx\Desktop\New folder\"

It's working and outputs the information from only one file.

Then it runs into a runtime error:'1004' Application -defined or object-defined error.

I debug it and the following line is highlighted:
wbkNew.Sheets("summary").Range("a" & NR & ":a" & endrow).Value = ThisWorkbook

The file I am pulling the information from also loads with a couple of blue lines on.

Thanks
Christian

Remove this strange line:

Please Login or Register  to view this content.

Thanks Kasan and everyone for helping!

It works now. I think I follow the code as well so I am going to add in a few more lines and it should be a great tool for me!

Thanks again!

Christian

Great! Good luck

I am now trying to set the program to take the current directory, but it is not recognizing the "\" just before the .xlsb

Set wbkNew = ThisWorkbook
strPath = ActiveWorkbook.Path 'folder with all files
strFileName = Dir(strPath & "\*.xlsb")