I Need to Speed Up My Computer: Troubleshooting:Autofilter select dates Excel 2003

Autofilter select dates Excel 2003

I use the following line of programming to create/initialise a listbox in a userform showing the last 12 calendar months
For x = 0 To 11
lstselectyedcalendarmonth.AddItem Format(DateAdd("m", -x, Date), "mmmm yyyy")
Next
End Sub

I would like to use the selected month as a filter to show the number of transactions in that particular selected month I already have a further selection process which will extract details between two specific dates using the following code

.Range("a1").CurrentRegion.AutoFilter Field:=8, Criteria1:=">=" & Format(CDate(Me.txtstartdate.Value), "mm/dd/yyyy"), Operator:=xlAnd, criteria2:="<=" & Format(CDate(Me.txtenddate.Value), "mm/dd/yyyy")

I cannot however get this autofilter to select on month only presumably the value of the selected item will be lstselectedcalendarmonth.value but I cannot format the date or get the filter to work correctly

Can anyone point me in the right direction

Thanks
Brian
Scotland

Anwsers to the Problem Autofilter select dates Excel 2003

Download Error Fixer for Free Now

Sorry if I did not explained myself clearly!
The filter function can not filter for a selected month and year as you are trying to do.
You have to filter for a time interval, i this case between first and last day of the selected month and year.
The items in your ListBox are not true dates, but a text string containing a year and a month name.
To build a true start and end date, I extracted the year from the text string, and then I used the loop to compare the selected month and find the month number.
With this information, I am able to create true dates.
In my example I did not used your ListBox name, I rather used me.Listbox1.
Using your ListBox name, the code should look like this:
Dim MyYear As Long
Dim m As Long
MyYear = Mid(lstselectyedcalendarmonth, WorksheetFunction.Find(" ", lstselectyedcalendarmonth) + 1)
For m = 1 To 12
        If Left(lstselectyedcalendarmonth, WorksheetFunction.Find(" ", lstselectyedcalendarmonth) - 1) = _
               Format(DateSerial(2010, m, 1), "mmmm") Then
        Exit For
    End If
Next
StartDate = DateSerial(MyYear, m, 1)
enddate = DateSerial(MyYear, m + 1, 1) - 1
.Range("a1").CurrentRegion.AutoFilter Field:=8, Criteria1:=">=" _
    & Format(StartDate, "mm-dd-yyyy"), Operator:=xlAnd, _
    Criteria2:="<=" & Format(enddate, "mm-dd-yyyy")
Regards,
Per

Open Action Center by clicking the Start button Picture of the Start button, clicking Control Panel, and then, under System and Security, clicking Review your computer's status.

Update and run your antivirus software. Windows doesn't come with antivirus software, but Action Center can often monitor the antivirus software that you or your computer manufacturer have installed.