Copying rows to another sheet based on date range

Hi there,

I am really struggling with this one. We have a massive spreadsheet at work that contains 10 tabs that all have lots of data. We need to report on the newly added data each week and at the moment a staff member is finding and retyping this manually. I know we could filter and copy paste each tab but I would REALLY like a macro that would do this automatically when a date is entered into each of the tabs.

What we need is if the date entered into one column on each sheet is within the past week, at least after a specified date that can be easily changed (at the moment I have a date entered on the "reporting" tab) that row is copied into the "reporting" tab. An additional challenge is that the date column is not the same on each tab. If this is a huge problem I could potentially move things around.

I am pretty new to excel and have tried to work out formulas to do this and have had a play with macros but am failing miserably.

I have attached a smaller version of our spreadsheet as a reference. It still has all 10 tabs and all the headings that are included.

Any help would be greatly appreciated!

So you need a macro that checks each row in each sheet - if the date is greater than the date given in cell B1 of the reporting tab, the data should be shown below?

However, your headers are not consistent between all the sheets. How do you want to handle that?

Ok I have been working on this thing for ages now and below is the code I have now.
I have been able to get the code to work with the findwhat function and if I enter the exact date I know is there it will copy to the reporting sheet. But it wont search all sheets.
I have been playing with it to get it to work searching between dates and have the below code. Can some one please help as now I get a runtime error type mismatch on this line

Please Login or Register  to view this content.

Here is the whole code

Please Login or Register  to view this content.

Why are you using one variable for both the start date and end date? You will need to use 2 variables like this -

Please Login or Register  to view this content.

Hi, I copied the code above and entered both FindWhat & FindWhat1, but this code still copies "all cells" with dates, instead of the range. Do I need to change this line of code to make it work: "If InStr(cell.Text, findWhat) <> 0 Then"? I notice this line has "findwhat", but doesn't have "findwhat1". Is there a proper way to add "findwhat1" into the code? Thank you!

Karate,
Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

---

Please, also post your workbook:


(How to) Upload a Workbook directly to the Forum
(please do not post pictures or links to worksheets)

• Click Advanced next to Quick Post button at the bottom right of the editor box.
• Scroll down until you see "Manage Attachments",
• Click the "Choose" button at the upper left (upload from your computer).
• Select your file, click "open", click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Close the Attachment Manager window.
• Click "Submit Reply"

Note: Please do not attach password protected workbooks/worksheets
Ensure to disable any Workbook Open/Autorun macros before attaching!