VBA code to copy and paste between sheets based on the selection criteria being a date

[mps80y]

Hi All,

I have a spreadsheet that has several sheets;

Sheet 'Calc_Sheet' contains a value in cell E1 which lists the last date of the previous month in the format dd/mm/yyyy and is formatted as a Date field - *dd/mm/yyyy.

I have another sheet 'Previous Month' that has all the data of bookings made. Column C in that sheet also has a date in the format dd/mm/yyyy and is also formatted as a Date field - *dd/mm/yyyy

I need to copy all the rows from the 'Previous Month' sheet, that match the date in cell E1 in sheet 'Calc_Sheet' and copy them to the end of a third sheet 'Current Month'.

Another member has helped with the code and its working fine if my computers regional settings are configured to mm/dd/yyyy but the code doesn't work if i change my regional settings back to dd/mm/yyyy (as I'm Australian based).

Any suggestions on how to get around this?

A link to the file is here

TIA

 

[mps80y]

It appears that the issue is with the way cDate handles the date - it only recognises the format mm-dd-yyyy, anyone have any ideas on how to change it to accept dd-mm-yyyy

Revised file is here