Compile error 1004

**mukeshbaviskar** · 01-08-2014, 12:48 PM

Hi friends,
I want to filter the dates by month no matter what is the day or year. In short I want to filter the dates monthwise ignoring the year and date. The code is giving compile error 1004 autofilter method fail.
I want to create a list of member's birthdays in a particular month.

Please suggest me a correction.

Thanking you in anticipation.

Sincerely,

Mukesh

**JieJenn** · 01-08-2014, 01:14 PM

I think for your purpose, loop might be a better way to go.

Sub birthdaymember_V2()
Dim Filtermonth As Integer
Dim LR As Long, i As Long

On Error Resume Next
Filtermonth = InputBox("enter month to filter")

With ThisWorkbook.Worksheets("Personal")
LR = .Cells(Rows.Count, 2).End(xlUp).Row

    .Cells.EntireRow.Hidden = False
    For i = LR To 9 Step -1
        If Month(.Cells(i, "O").Value) <> Filtermonth Then
            .Rows(i).Hidden = True
        End If
    Next i
End With

Exit Sub

End Sub

**mukeshbaviskar** · 01-08-2014, 10:35 PM

Hi JieJenn,
Thank you. The macro is not giving the output in another workbook. It hiddens the data from the personal sheet after running. If I insert the code in module it gives a error require variable or procedure. Please guide me.

sincerely,

Mukesh