Autofilter từ điều kiện của sheet khác

[spacemanforever]

Chào mọi người!
Nhờ mọi người hỗ trợ em khó khăn:

**Mục đích : autofilter dữ liệu trong sheet main từ điều kiện ở sheet condition filter
**Vd: Điều kiện lọc ở dòng 7 (trong Sheet condition filter)
+ A7 =15/01/2011 , B7=b1, C7=c1, D7=d1, E7=e1
==>Sẽ được làm điều kiện lọc trong sheet main
Em code được như sau nhưng chưa chạy được:

Sub sd()
an = 0
Do
a = Range("A" & 7 + an)
b = Range("B" & 7 + an)
c = Range("D" & 7 + an)
d = Range("F" & 7 + an)
Set ge = Sheets("main")
With ge
            .AutoFilterMode = False
            .Range("B9:F9").AutoFilter
            .Range("B9:F9").AutoFilter Field:=4, Criteria1:=a, Operator:=xlAnd, Criteria2:=c, Operator:=xlAnd, Criteria3:=b, Operator:=xlAnd, Criteria4:=d
End With

an = an + 1
Loop Until Range("A" & 7 + an).Value = ""

End Sub

Cảm ơn mọi người nhiều.

 

[nghiaphuc]

Chào mọi người!
Nhờ mọi người hỗ trợ em khó khăn:

**Mục đích : autofilter dữ liệu trong sheet main từ điều kiện ở sheet condition filter
**Vd: Điều kiện lọc ở dòng 7 (trong Sheet condition filter)
+ A7 =15/01/2011 , B7=b1, C7=c1, D7=d1, E7=e1
==>Sẽ được làm điều kiện lọc trong sheet main
Em code được như sau nhưng chưa chạy được:

Sub sd()
an = 0
Do
a = Range("A" & 7 + an)
b = Range("B" & 7 + an)
c = Range("D" & 7 + an)
d = Range("F" & 7 + an)
Set ge = Sheets("main")
With ge
.AutoFilterMode = False
.Range("B9:F9").AutoFilter
.Range("B9:F9").AutoFilter Field:=4, Criteria1:=a, Operator:=xlAnd, Criteria2:=c, Operator:=xlAnd, Criteria3:=b, Operator:=xlAnd, Criteria4:=d
End With

an = an + 1
Loop Until Range("A" & 7 + an).Value = ""

End Sub

Cảm ơn mọi người nhiều.

Xin hỏi: Mục đích cuối cùng của việc lọc dữ liệu của bạn là gì? Mình thấy việc lọc "lòng vòng" này chẳng đi đến đâu cả. Theo code của bạn, mình hiểu là việc lọc dữ liệu sẽ theo điều kiện của từng hàng bên sheet condition filter, hết hàng này đến hàng khác cho đến hết danh sách điều kiện lọc --> để làm gì vậy ta?

 

[spacemanforever]

Chào mọi người!
Mục đích là em copy 1 dữ liệu từ sheet đang autofilter vào sheet condition filter (vì trong sheet condition filter có 1 dữ liệu mà bên sheet autofilter không có)
Cảm ơn mọi người nhiều.