VBA 上的 2 个标准自动过滤器存在问题

Question

I m trying to filter the dates in a column using autofilter, but when i must filter between two dates this error shows: "The autofilter method of the range class has failed". I m trying to filter the dates in a column using autofilter, but when i must filter between two dates this error shows: "The autofilter method of the range class has failed". I m getting the date values from two text boxes in the activesheet.

I`ve alreary tried to dim a listobject and do something like "listobject.range.autofilter", but got the same error.

Private Sub DataDe_Change()

'dim var
Dim rng As Range

'set var
Set rng = Range("B2:T2")

'if both text boxes are empty the filter clears
If DataDe.Text = "" And DataAte.Text = "" Then
    rng.AutoFilter Field:=1
End If

'if the value of this textbox isn't a date the sub won't do anything
If Not IsDate(DataDe.Text) Then GoTo subkill:

'if it is a date then it cheks if the other textbox
'contains a date and apply an one criteria filter
If Not IsDate(DataAte.Text) Then
    rng.AutoFilter Field:=1, _
            Criteria1:=">=" & Format(DataDe.Text, "dd/mm/yyyy")
End If

'if both are dates apply a two criteria filter
'and only in this condition the error pops up
If IsDate(DataAte.Text) Then
    rng.AutoFilter Field:=1, _
            Criteria1:=">=" & Format(DataDe.Text, "dd/mm/yyyy"), _
            Operator:=x1And, _
            Criteria2:="<=" & Format(DataAte.Text, "dd/mm/yyyy")
End If


subkill:

End Sub

Answer 1

This is how I tried to recreate the problem

Private Sub TextBox2_Change()

    Dim rng As Range

    Set rng = Range("A1:B1")

    If Me.TextBox2.Text = "" And Me.TextBox1.Text = "" Then
        rng.AutoFilter 1
    End If

    If Not IsDate(Me.TextBox2.Text) Then GoTo subkill

    If Not IsDate(Me.TextBox1.Text) Then
        rng.AutoFilter 1, ">=" & Format(Me.TextBox1.Text, "m/d/yyyy")
    End If

    If IsDate(Me.TextBox2.Text) Then
        rng.AutoFilter 1, ">=" & Format(Me.TextBox1.Text, "m/d/yyyy"), xlAnd, "<=" & Format(Me.TextBox2.Text, "m/d/yyyy")
    End If

subkill:

End Sub

When I moved my range to B1:C6 and change the code to Set rng = Range("B1:C1") it still works. Generally this error means you're filtering on a column that's not in your range, but I don't see that here.

I did read elsewhere that dates must be in US format for autofilter. If that's true, try changing your date format. But if you tried 1/1/2019 in both boxes, that's the same valid date in both formats.

Answer 2

I've finally found the problem. This code was not written entirely by me, I'm helping a friend on this task and when he sent it to me i didn't wrote my own code. The thing is, in the choosen font for the vba editor the "1" and the "l" are realy similar lol. The "xland" operator was written as "x1and". It took me only 10 days to notice this:) Thanks for the help!