Option
Explicit
Sub
AutoFilter_Condition()
'© 2004
Alla rättigheter XL-Dennis
Dim
wsSheet
As
Worksheet
Dim
rnData
As
Range
Dim
i
As
Long
Dim
vaCondition
As
Variant
Set
wsSheet = ThisWorkbook.Worksheets("Blad2")
With
wsSheet
Set
rnData = .Range(.Range("A1"),
.Range("C65536").End(xlUp))
End
With
Application.ScreenUpdating =
False
For
i =
1
To
3
Select
Case
i
Case
1:
vaCondition =
"CC"
Case
2:
vaCondition =
"<=400"
Case
3:
vaCondition =
">250"
End
Select
rnData.AutoFilter Field:=i, Criteria1:=vaCondition
Next
i
Application.ScreenUpdating =
True
End
Sub