Copy Same Cells for Each Workbook in Folder...Frustrated

[jakefish11]

Hello,

I'm a VBA novice and I have found the following code to copy certain non-contiguous cells from each sheet in each workbook to a destination summary workbook. The code works well except I want to add the last used cell of column B to the source range because it varies between sheets. All the other cells are in the same position. I have tried to use xlEndUp to determine the last row for each sheet to no avail. I have tried to add B&LastRow to the source range and then I get no data after it cycles through the 30 files in the directory. It is probably something simple, but it is driving me up the wall. Any help is appreciated.

Please Login or Register  to view this content.

[xladept]

Hi Jake,

Try:

Please Login or Register  to view this content.

[jakefish11]

xladept,

Thanks, that worked!

[xladept]

You're welcome!

[jakefish11]

For some reason, the cell E7 is not included in the data. Is there anything in the Code that would prevent that?

[xladept]

Can there be some other reason?? If not I'll need to see a sample:

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[jakefish11]

It seems to be that E7 is a date field. If I substitute a non-date cell, it works fine.

[xladept]

Maybe:

Please Login or Register  to view this content.