Macro to copy Data where Date is > Today()

I recently just built a web based program, and before being able to create an account you have to enter your Date of Birth. The data is then stored in Excel...anyway long story short...I want to be able to copy all of the data that is in the Excel spreadsheet where the DOB > Today() to a new workbook. I have seen posts similar to this, I just can't find code that does exactly this. In my Excel spreadsheet the date is in column R, and I would need the data copied from cells A - R copied to a new workbook, where Date > Today(). Can someone help me with code that would complete this action?

You want to copy the row of data or the sheet's worth of data? Perhaps a mock workbook with mock data (non-sensitive data) showing the before and results of your requirements would be best as it would remove any guessing from the volunteers of this site.

I only want to copy the row of data that where the Date > Today(). The rest of the data can stay in the source workbook. Attached is a workbook with the same formatting, just filled with test data.

Perhaps this will get you close to what you want

Please Login or Register  to view this content.

Awesome, that is almost exactly what I need. Two small tweak requests. One....when the code is executed, starting in row IW to the end of the workbook it will add #N/A. Is there a way to remove that portion of the code? Also, I think it would work better (this is totally my mistake, I'm sorry) if the data would be copied to a tab within the same workbook, not a new workbook....

I tried to tweak the code to copy to a worksheet within the same workbook, and I can't figure it out I tried the below code, and just commented out your code...

Please Login or Register  to view this content.

I am getting an error object required:

Please Login or Register  to view this content.

The line of code that it doesn't like is:

Please Login or Register  to view this content.

You should try declaring a worksheet variable and using it for the worksheet "Testing". For example:

Please Login or Register  to view this content.

and then revise the loop using NWS, like:

Please Login or Register  to view this content.

and so on.

Thanks for that tip, that worked perfectly! When I paste the data onto my new worksheet, how would I tell it to keep the source formatting? The header rows that it is copying are set to certain font's/font color, things like that, that I need to keep intact from worksheet to worksheet.

I tried this code:

Please Login or Register  to view this content.

But it did not work.