Lọc tự động

[nghiahuu]

Mình có 1 file số liệu cần ai giúp mình với! làm thế nào để tự động lọc và tự động copy sang sheet khác hay một file khác! mình gửi file này các đại ca, xi tỷ giúp mình với! mình cám ơn nhiều!

 

[Po_Pikachu]

Bạn dùng code lọc này thì được rồi!

Sub loc()
For i = 2 To 5
    Sheets(i).Select
    Sheet1.Range("A14:K126").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("E2:F3"), CopyToRange:=Range("A9:K9"), Unique:=False
Next
End Sub

Bạn xem file nha!
Thân.

 

[viendo]

Mình có 1 file số liệu cần ai giúp mình với! làm thế nào để tự động lọc và tự động copy sang sheet khác hay một file khác! mình gửi file này các đại ca, xi tỷ giúp mình với! mình cám ơn nhiều!

Gửi bạn file dùng công thức và Name.

 

[ndu96081631]

Dùng Advanced Filter như bạn Po_Pikachu là phương pháp nhanh và hiệu quả nhất! Nhưng thay vì lọc ra 4 sheet bạn nên lọc ra 1 sheet thôi... (dùng ComboBox hoặc Validation để chọn điều kiện)

 

[Po_Pikachu]

Thức ăn đến rồi! Phục vụ phòng đây! Bác ndu96081631 mở cửa nhận hàng luôn và nhớ bo em cái nha!
Thân.

 

[trinhnt1308]

Po-Picachu hướng dẫn cách làm của bạn được ko? Dùng Advanced filter(AF) khi bạn thay đổi điều kiện X,Y thì tự động trích lọc?. Hỏi:
1.:Làm cách nào thay đổi điều kiện X,Y thì từ động lọc tại vùng mà mình chỉ định?
2.:Tạo "nút" lọc trên bảng tính mà khi click chuột nó tự lọc?

 

[ThuNghi]

Po-Picachu hướng dẫn cách làm của bạn được ko? Dùng Advanced filter(AF) khi bạn thay đổi điều kiện X,Y thì tự động trích lọc?. Hỏi:
1.:Làm cách nào thay đổi điều kiện X,Y thì từ động lọc tại vùng mà mình chỉ định?
2.:Tạo "nút" lọc trên bảng tính mà khi click chuột nó tự lọc?

Cái này bạn hỏi mà tôi chưa biết bắt đầu trả lời từ đâu.
Cái quan trọng trong AdFi là
1/ Vùng cần lọc: Sheet1.Range("A14:K126").
2/ Điều kiện lọc: CriteriaRange:=Range("E2:F3") (cái này nếu thêm sheet(i). thì tổng quát hơn)
3/ Gắn kết quả vào đâu: CopyToRange:=Range("A9:K9")

Sheet1.Range("A14:K126").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E2:F3"), CopyToRange:=Range("A9:K9"), Unique:=False

 

[trinhnt1308]

Ý mình muốn hỏi là: "Khi mình thay đổi điều kiện X,Y(R7:S7)" thì cho luôn kết quả lọc mà không phải dùng lại Advanced Filter.

 

[Po_Pikachu]

Thực sự thì nó vẫn là quá trình lọc thôi bạn! Chỉ là được tự động hóa qua code nằm ở ngay trong Sheet đó. Nên mọi thay đổi dữ liệu trong vùng R7:S7 sẽ được kết qua như ý!
Nếu bạn để vị trí chọn ở R7 rồi vào Data -> Validation. Bạn sẽ thấy nó đã được thêm vào ">0,<0" làm giá trị cho ô này (khi bạn chọn).
Thân.