[b]Sub AutoFilter()[/b]
Range("F1:G17").Select
[color="Blue"] ' Selection.AutoFilter [/color]
Selection.AutoFilter Field:=1, Criteria1:="<10", Operator:=xlAnd
[b]End Sub[/b]
[b]Sub Monthly_Stats() [/b]
Sheets("Planning").Select
Selection.AutoFilter Field:=5, Criteria1:=">=" & Sheets("FStatistics").Range("B2"). _
Value, Operator:=xlAnd _
, Criteria2:="<=" & Sheets("FStatistics").Range("C2").Value, Operator:=xlAnd
Selection.AutoFilter Field:=8, Criteria1:="<>"
[b]End Sub [/b]
==> Với vùng đã chọn lọc tự động theo trường thứ 5 điều kiện 1 là lớn hơn hoặc bằng giá trị ở ô B2 sheet FStatistics và điều kiện thứ 2 là nhỏ hơn hoặc bằng giá trị ở ô C2 sheet FStatisticsSelection.AutoFilter Field:=5, Criteria1:=">=" & Sheets("FStatistics").Range("B2").Value, Operator:=xlAnd _
, Criteria2:="<=" & Sheets("FStatistics").Range("C2").Value, Operator:=xlAnd