if Activesheet.filterMode then
ActiveSheet.ShowAll
End If
For i = 1 To 10
If Not (IsEmpty(arr.Cells(i, 2)) And IsEmpty(arr.Cells(i, 3))) Then
Selection.AutoFilter Field:=5, Criteria1:=arr(i, 2), Operator:=xlAnd,
Criteria2:=arr(i, 3)

ElseIf Not (IsEmpty(arr.Cells(i, 4)) And IsEmpty(arr.Cells(i, 5))) Then
Selection.AutoFilter Field:=6, Criteria1:=arr(i, 4), Operator:=xlAnd,
Criteria2:=arr(i, 5)

End If
End If
Cells(38041 + j, 6 + i).Value = Range("F38039")
Next i



"changeable" wrote in message
...

Opps, i have another problem. I try to do the filtering by this way:


Code:
--------------------
For i = 1 To 10
If Not (IsEmpty(arr.Cells(i, 2)) And IsEmpty(arr.Cells(i, 3))) Then
Selection.AutoFilter Field:=5, Criteria1:=arr(i, 2), Operator:=xlAnd,
Criteria2:=arr(i, 3)

ElseIf Not (IsEmpty(arr.Cells(i, 4)) And IsEmpty(arr.Cells(i, 5))) Then
Selection.AutoFilter Field:=6, Criteria1:=arr(i, 4), Operator:=xlAnd,
Criteria2:=arr(i, 5)

End If
End If
Cells(38041 + j, 6 + i).Value = Range("F38039")
Next i
--------------------


however, the results doesnt look to be what i am especting. And i think
that it is because the criteria i selected in Field 5 doesnt reset each
time a new "i" is used.
Can anyone tell me how to reset the Autofiltering after each "i" is
executed?

Thanks again


--
changeable
------------------------------------------------------------------------
changeable's Profile:
http://www.excelforum.com/member.php...o&userid=15714
View this thread: http://www.excelforum.com/showthread...hreadid=274524