Filter Column Based On Date Range

Hello!
I consider myself a novice VBA user. I have used a little bit here and there over the years, however past the simple things... I'm in over my head, but willing to learn!

I tried to find an answer before I posted this, I'm not sure if I'm asking Google the correct questions. I am hoping someone here will be able to help, or even point me in the direction I should go.

I've uploaded a sample file. I have the code to take the Raw Data Tab and copy it, renaming the tabs with the data from the Information Tab, Column A. What I need to be able to automate with VBA is on each Month Tab, filter column F based on the month the sheet is named for. On the information tab I have each month's date range.

If the data in Column A on the Information Tab was going to always be the same, I would be able to figure it out. I haven't clue one how to make it work with the data being a variable.

I would appreciate any help and give you many thinks in advance!

This is the VBA:

Please Login or Register  to view this content.

But you could also just use FILTER if you are using a version that supports it - just enter the month name into a cell to make the reference easier.

Oh my goodness! You guys are wonderful! Both codes do exactly what I need done! I am absolutely amazed and can not thank you enough for the help!

If we were in the same room I would give you both a giant hug!

Soooo..... I have a glitch and do not know how to resolve it. I put the code in my report and it works perfectly! The issue is the year. In October they are going to want to run the run the report for October, November, December, and January. When I tested, the report only does the current year. How do I adjust to have multiple years?

Any assistance is appreciated!

This should do it.... (note that I just edited the code a bit to make testing it work now and not just when it is used in October..)

Please Login or Register  to view this content.

WooHoo!!! * Doing a Happy Dance!!! * That did it! I can not thank you enough!!!!

I'm sorry to be back here again bugging you'all about the same subject. I noticed an issue, and I don't know how to fix it. If a date is the last day of the month, it's being excluded. It took me a while to figure it out. Can anyone tell me how I can fix it, or if I have something wrong in the code?

This is what I'm using:
Sub FilterDates()
Dim i As Integer
i = 0
If DateValue(ActiveSheet.Name & " 1, " & Year(Date)) < Application.EDate(Date, -3) Then i = 1
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter Field:=6, Criteria1:=">=" & DateValue(ActiveSheet.Name & " 1, " & Year(Date) + i) _
, Operator:=xlAnd, Criteria2:="<=" & Application.EDate(DateValue(ActiveSheet.Name & " 1, " & Year(Date) + i), 1) - 1
End Sub

I appreciate any assistance someone can give me!

Change to this - I think you may be getting date/times rather than simple dates.

Please Login or Register  to view this content.

BERNIE IS AWESOME!!!! I think that did it! It's our busy season so I didn't have time to test yesterday. I'll do some more testing tomorrow! THANK YOU!!! THANK YOU!!!

I am a little confused though.... comparing the two they look the same. What am I missing?

Dates are stored as integer numbers, and times are decimal numbers between 0 and 1.

The comparison is actually against the first of the month rather than the last day, to capture date/time combinations that occur on the last day of the month but are actually greater than the date integer.

You are amazing Bernie! I would never have caught that. Thank you for your patience and excellent explanation.