Excell Macro

[djeerd]

I have a folder named "FAB" on my desktop. Inside the folder "FAB" I have 850 Excell spreadsheet files. I need to get some data off each file and have it put it on a new spreadsheet. The data is in cell A2, B2, D5 and E10 for each of the 850 files. I am running Windows 7

 

[djeerd]

The Macro works. Thank you so much.

There is one issue I hope you can also solve. Data in cell n39 is actually a formula (j10+j23+K13) so the macro returns "#REF" for cell N39. I could have the macro list cells J10, J23 and K13 then I could add them together but I was hoping to be able to just have the macro list out the value from the formual for N39.

 

[Ruddles]

Instead of:-

.Range("N39").Copy Destination:=ws.Cells(iRow, "D")

do this:-

.Range("N39").Copy
ws.Cells(iRow, "D").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[djeerd]

Thank you for your patience.

When I add the correct line i get the following message "Complie Error" "expected: end of statement".

 

[Ruddles]

"Line"? You mean "lines", yes? The copy and the paste are two separate statements.

 

[djeerd]

OK, got it.

I played around with it and got it to work. Thank You so much for your help.

 

[Ruddles]

Ok, good - and thanks for the feedback.