Trying filter multiple columns

[gmcollins]

I am new to Excel vba and am trying to filter records based on certain column selection. 1st I would like to filter out all #Div/0 errors and 2nd I would like to filter for only records ">=" a user input box. I'm using the following code:

Dim StartDate As Long
Dim temp As String

temp = Application.InputBox("Enter Last Rate Increase Run Date in the Format ""MM/DD/YYYY""")
StartDate = CLng(DateValue(temp))
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim LastRow As Long, FilterRange As Range


ActiveSheet.Range("$AC3:$AH").AutoFilter Field:=1, Criteria1:="<>#DIV/0!", Operator:=xlAnd, Field:=6, Criteria2:=">" & StartDate


I am getting a Runtime Error 1004: "application defined or object defined error" on the last line. What do I have incorrect?

Thank you to all the wonderful help on this site that helped me get this far.

 

[pgc01]

Hi

You cannot mix multiple fields in the same autofilter statement.

This is an example:

Sub Test()
Dim StartDate As Date

StartDate = Date

ActiveSheet.AutoFilterMode = False

With ActiveSheet.Range("$AC3:$AH100")

    .AutoFilter Field:=1, Criteria1:="<>#DIV/0!"
    .AutoFilter Field:=6, Criteria1:=">" & StartDate

End With

End Sub

 

[gmcollins]

Hi

You cannot mix multiple fields in the same autofilter statement.

This is an example:

Sub Test()
Dim StartDate As Date

StartDate = Date

ActiveSheet.AutoFilterMode = False

With ActiveSheet.Range("$AC3:$AH100")

    .AutoFilter Field:=1, Criteria1:="<>#DIV/0!"
    .AutoFilter Field:=6, Criteria1:=">" & StartDate

End With

End Sub

Thank you PGC, this is starting to work. When I get to:

.AutoFilter Field:=6, Criteria1:=">" & StartDate
​

I get Runtime error 1004 - AutoFilter method of Range class failed?

You are a life saver helping me get this far. thank you again.

​

​

 

[gmcollins]

Hi PGC please disregard my previous note (I had a typo).

Your fix worked! YOU ROCK!

Thank you!

 

[pgc01]

You're welcome. Thanks for the feedback.

 

[gmcollins]

You are truly one of the great ones!!!