Macro to cut/Paste data to sheet2 after 30 days

[Blazingworm]

Sheet 1 contains archived data for my Company's employee access badges. This data needs to be archived, however, using the data is becoming more difficult due to the number of entries. I am hoping to have a macro that will automatically cut/paste all rows for entries made more than 30 days prior to the current date into Sheet 2. The date is in Column A.

[Decar]

Please Login or Register  to view this content.

[Blazingworm]

I received a "Run-time error '13': Type mismatch" dialog. Thanks for the help by the way

[Decar]

np

It is hard to help you without having a sample file. Best would be if you post a sample workbook where you use maybe only 20 fake entries for 2 columns and have 2 sheets with some entries in the archive already.

And for the code to work in general you have to change the "sheet1" and "sheet2" names to fit the names you want the macro to run in.

[Blazingworm]

hopefully this works I think I attached the file. The sheets haven't been named yet but sheet 1 will be named "Current 30 Days" and Sheet 2 will be "Archive". Sorry it took so long I didn't receive your message before I left work.

[Decar]

that should do it

Test #2.xlsm

[Blazingworm]

It worked except for columns E & G. They were turned into some odd decimal numbers. They are supposed to be time stamps.

[Blazingworm]

I figured it out thank you for your help. I needed to change the formatting of the cells to the time setting. And then make sure all the entries contained the colon. And that fixed the issue.