Filter info by date parameters and populate listbox

**Raylou** · 12-31-2014, 04:02 AM

Good Day,

Hope this requests finds you well.

I was hoping that someone can assist me with the code to use to determine from a list of project, which projects was not updated recently. For example, when I hit the search button, a list should be populated with the Project Manager, Project Name, and Last Updated info in a Listbox to be printed. There should be options to show, from today’s date, which projects haven’t been updated longer than 2weeks and 4 weeks ago. I hope it is making sense. I have attached an example file and a screen shot on the userform that I have in mind.

I thank you in advance!

Example.png

**bart hoekstra** · 12-31-2014, 06:40 AM

Hi

Try this:
F1=NOW(), g1=2,h1=4
F2:Fn= =IF((F$1-E2)>$G$1*7,IF((F$1-E2)>$H$1*7,$H$1*7,$G$1*7))
results, 28, 14, false

Based on this you can build your code.
Need more help? Please reply asap.

bart

**Alf** · 12-31-2014, 09:31 AM

To test click mcro button. Using an input box instead of a Userform since there was no userform included in your uploaded file.

Marco starts by clearing Sheet2, activating Sheet1 and removing any autofilter. It then asks for number of days and one enters 14, 28 or any odd number. Using the Date value minus the number of days entered a new date is calculated.

Then an autofilter is set on Sheet1 using the new date as the filter criteria. The filtered value is copied to Sheet2 and autofilter is removed from Sheet1.

The macro also do an error checking if no value is added or user cliks "Cancel" or "X"

Alf