Can a CDate be a month

[Darren Smith]

This has a CDate function which needs to be a Month name is this possible?

Private Sub Filter_Jobs_By_Months_Click()

Dim ws As Worksheet
Dim qt As QueryTable
Dim Mounths_List() As String
Dim IngStart As Long
Dim IngEnd As Long


Application.ScreenUpdating = False

Set ws = ThisWorkbook.Worksheets("TGS JOB RECORD")

For Each ws In ActiveWorkbook.Worksheets
For Each qt In ws.QueryTables
qt.Refresh
Next qt

IngStart = VBA.CDate(ws).Me.StartMonth
IngEnd = VBA.CDate(ws).Me.StartMonth
Application.ScreenUpdating = True
If IngStart > IngEnd Then
MsgBox "The Start Date Can Not be Bigger Then The End Date.", vbCritical, ""
Exit Sub
End If
ws.Range("A:A").AutoFilter Field:=11, _
Criteria1:=">=" & IngStart, Operator:=xlAnd, Criteria2:="<=" & IngEnd
With ws
.Range("K2").Value = Application.WorksheetFunction.Subtotal(2, .Range("A2:A" & .Rows(.Rows.Count).End(xlUp).Row))
End With

Application.ScreenUpdating = True

End Sub

 

[RoryA]

No, a month name is not a date. Also this:

VBA.CDate(ws).Me.StartMonth

makes no sense at all.

 

[Darren Smith]

Right, ok how would you overcome this?
Trying to filter data between months using Comboboxes

 

[RoryA]

You need to supply a day and year before CDate can work. It's not clear where those should come from.

 

[Darren Smith]

The thing is with this I don`t need the days for this just the months.
So what could I do instead of CDate to make it work?

 

[RoryA]

If the column you are filtering has actual dates in it, you need a date value to filter by. If it has month names, you’ll need a list of month names.

 

[Darren Smith]

I`ve created this code (Which works) but how could I get this to show in monthly order through a year.

Private Sub UserForm_Initialize()
    Dim MyDate As Date
    Dim i As Integer
    MyDate = Date
    For i = 1 To 100
        Me.StartMonth.AddItem Format(MyDate, "mmmmm yy")
        Me.EndMonth.AddItem Format(MyDate, "mmmmm yy")
        MyDate = DateAdd("m", -1, MyDate)
    Next
End Sub