Nhờ các a giúp em viết code VBA về lọc dữ liệu bằng advanced filter (2 người xem)

[vitl0veme0]

yêu cầu cụ thể e đã viết trong file đính kèm ạ!mong các a chỉ giáo ạ!

 

[Quang_Hải]

yêu cầu cụ thể e đã viết trong file đính kèm ạ!mong các a chỉ giáo ạ!

Dữ liệu lấy qua có 1 dòng duy nhất thì dùng hàm Vlookup đi cho khỏe, code làm gì chứ. Mà trộn ô kiểu đó muốn dùng advancedFilter thì phải sửa lại hết mới được. Code mà thấy trộn ô là code sợ lắm

 

[vitl0veme0]

^^, ý em là muốn hiểu thêm về code, khi mà e chọn ô N3 thì tự động dữ liệu xuất sang.a có thể sửa lại file và giải thích code giùm em được ko ạ, e cảm ơn nhiều.

 

[vitl0veme0]

em gửi file khác lên, mong các a giúp ạ

thú thật là e chưa biết gì về VBA, lên diễn đàn thấy các cao thủ bình luận, giải quyết vấn đề và đưa ra hướng giải quyết hay quá...

 

[Ngoai Thanh]

thú thật là e chưa biết gì về VBA, lên diễn đàn thấy các cao thủ bình luận, giải quyết vấn đề và đưa ra hướng giải quyết hay quá...

Bạn xem file xem được chưa ?

 

[vitl0veme0]

được rồi a à, nhưng...làm phiền a chút, a có thể giải thích code giúp e đc ko ạ

 

[Quang_Hải]

được rồi a à, nhưng...làm phiền a chút, a có thể giải thích code giúp e đc ko ạ

Cú pháp của AdvancedFilter là thế này. Bạn thử từng câu lệnh và suy ra nhé. Vọc nhiều sẽ ngộ ra thôi.

VungLoc.AdvancedFilter 2, Vung Dk, Vung KQ, True
VungLoc.AdvancedFilter 1, Vung Dk, Vung KQ, True
VungLoc.AdvancedFilter 2, Vung Dk, Vung KQ, False
VungLoc.AdvancedFilter 1, Vung Dk, Vung KQ, False

 

[canguocs]

Bạn xem file xem được chưa ?

Xin hỏi anh nếu bây h không lấy 2 ký tự đầu tiên K1 mà lấy tất cả K1M001 thì phần Me.range nên sửa thành như thế nào?
Em cảm ơn anh!

 

[Ngoai Thanh]

Xin hỏi anh nếu bây h không lấy 2 ký tự đầu tiên K1 mà lấy tất cả K1M001 thì phần Me.range nên sửa thành như thế nào?
Em cảm ơn anh!

thì bạn cứ gõ đầy đủ mã xem sao .

 

[canguocs]

thì bạn cứ gõ đầy đủ mã xem sao .

ok , được rồi anh ah
Lúc đầu em đã thử nhưng K1M001 chỉ có 1 mã, giờ thêm mã trùng nhau đã thành công
Cảm ơn anh

 

[thong_fx205]

Chào anh Ngoai Thanh. Cái file anh làm rất hay, nhưng có 1 điểm là mỗi khi em chọn K1 hoặc K2 thì tất cả các dòng ở trong colum A và B sẽ bị xóa hết, em muốn chỉ xóa tới dòng 25 thôi thì làm sao anh?

 

[SA_DQ]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [E2]) Is Nothing Then Exit Sub
 Me.[b3].CurrentRegion.Offset(1).Clear
 S1.[A1:B2000].AdvancedFilter 2, [E1:E2], S1.[AA1:AB1]
 S1.[AA2].Resize(17, 2).Copy Destination:=[A4]
End Sub

 

[thong_fx205]

chào bạn HYen17, mình ngồi nghiên cứu code của bạn từ sáng sớm tời giờ, mình đã làm được. Cảm ơn bạn