Copy data to master wb based on date criteria.

Hi everyone,
Any help or advice anyone can give me on this would be great.
I am trying to create a delivery schedule workbook which is populated with data captured from my existing delivery note workbooks. I am attempting to based on the date stored in cell k7 of sheet 1 in my delivery note workbook, copy and paste the data to the corrosponding date tab on my master delivery workbook. The sheets are called Jan, Feb, March ect.

I am attempting to copy the data from specified cells to the next available free row in my master.

Date: K5 to A5
Name: C8 to B5
Order No: A14 to C5
prod No: J8 to D5
Carriage: J14 to F5
Town: C10 to H5
Schedule: J9 to I5
Pallets C36 to J5
Info: A 36 to K5

The save as button code is:

Please Login or Register  to view this content.

I have looked high and low for some code that I could adapt to my needs but have not been successful. The only thing i have found doesn't have the functionality that I need and I don't have the knowledge to adapt it myself.

Please Login or Register  to view this content.

Many thanks for any help or advice given.

So am I understanding correctly that the "Save As" code works fine, but you just need help with the "MoveData" code? Will the Delivery Schedule workbook be opened manually, or do you want the code to do that for you?

Hi, Thank you very much for responding. Yes you are totally correct, I just need help adding the "MoveData" code. The Delivery Schedule will be closed so ideally the code will do that.

I would recommend that you give names to the cells needed by the code (Delivery Date, Company, Prod Num, etc.). That will give you flexibility to adjust the layout in the future without affecting the code. The code below assumes this has been done, but you can adjust as needed. Also, the code set up to open the Delivery Schedule for you, but also will work if it is already open. Have fun!

Please Login or Register  to view this content.

Hi Thank you very much for getting back to me and the code looks great. There is only a small issue, the code trips up on the "Sheets(Mnth).Select". Tried tinkering around with it but it keeps getting stuck on that line. Many thanks again.

Massive apologies, I tried adding the code to a Before Close event and it didn't like that very much. However tried adding the code to a button and it works perfectly. Thank you very much for all your help!!