Thắc mắc về bộ lọc duy nhất không rỗng!

[Hoàng Trọng Nghĩa]

Chào các Anh Chị, Khi tìm thấy Bộ Lọc này của Po_Pikachu va Trung Chinh mình thấy rất tuyệt vời
Nhưng kiểm tra lại mình vẫn thấy còn lỗi.

1) Cả hai đều bị báo lỗi khi [A:A] bị rỗng, nhưng không sao, chỉ cần thêm
On error resume next Thì OK

2) Của Po_Pikachu thì ở trên đã được đề cập là vẫn còn 1 dòng trống khi lọc
(có cách nào khắc phục được không?)

3) Của Trung Chinh bị một lỗi rất ngộ nghĩnh, khi [A:A] có 1 danh sách
nhưng trùng tên thì sau khi lọc kết quả bị đão ngược!
(có khắc phục được không?)

 

[ndu96081631]

Chào các Anh Chị, Khi tìm thấy Bộ Lọc này của Po_Pikachu va Trung Chinh mình thấy rất tuyệt vời
Nhưng kiểm tra lại mình vẫn thấy còn lỗi.

1) Cả hai đều bị báo lỗi khi [A:A] bị rỗng, nhưng không sao, chỉ cần thêm
On error resume next Thì OK

2) Của Po_Pikachu thì ở trên đã được đề cập là vẫn còn 1 dòng trống khi lọc
(có cách nào khắc phục được không?)

3) Của Trung Chinh bị một lỗi rất ngộ nghĩnh, khi [A:A] có 1 danh sách
nhưng trùng tên thì sau khi lọc kết quả bị đão ngược!
(có khắc phục được không?)

Cả 2 code đều đúng, chỉ là bạn Po dùng CurrentRegion, sẽ sai trong trường hợp DS có dòng rổng!
với trường hợp này thì dùng .End(xlUp) như anh TrungChinh là hợp lý nhất
-----------------------------
Còn lổi gì đó sao tôi không phát hiện nhỉ?

1) Cả hai đều bị báo lỗi khi [A:A] bị rỗng ---> Làm gì có lổi này!
3) Của Trung Chinh bị một lỗi rất ngộ nghĩnh, khi [A:A] có 1 danh sách
nhưng trùng tên thì sau khi lọc kết quả bị đão ngược! ---> Tôi không phát hiện ra

 

[Hoàng Trọng Nghĩa]

Tôi đã gửi lại file rồi đó làm ơn xem lại nhé!
và của anh [FONT=&quot]Po_Pikachu [/FONT] tự nhiên có Defined Name là "Extract" không hiểu sao lại có như vậy!

 

[Hoàng Trọng Nghĩa]

Cả 2 code đều đúng, chỉ là bạn Po dùng CurrentRegion, sẽ sai trong trường hợp DS có dòng rổng!
với trường hợp này thì dùng .End(xlUp) như anh TrungChinh là hợp lý nhất
-----------------------------
Còn lổi gì đó sao tôi không phát hiện nhỉ?

1) Cả hai đều bị báo lỗi khi [A:A] bị rỗng ---> Làm gì có lổi này!
3) Của Trung Chinh bị một lỗi rất ngộ nghĩnh, khi [A:A] có 1 danh sách
nhưng trùng tên thì sau khi lọc kết quả bị đão ngược! ---> Tôi không phát hiện ra

Anh (Chị) xem và kiểm tra lại đi, Trường hợp thứ 3 là có thật đó, tôi đã gửi file có báo lỗi và bị đão ngược đó. Rất mong được khắc phục từ Anh (Chị).
Chân thành cám ơn.

 

[ndu96081631]

Anh (Chị) xem và kiểm tra lại đi, Trường hợp thứ 3 là có thật đó, tôi đã gửi file có báo lỗi và bị đão ngược đó. Rất mong được khắc phục từ Anh (Chị).
Chân thành cám ơn.

Àh, thì ra vậy! Thấy rồi! Họ quên xác định tiêu đề thôi mà!
Bạn sửa lại thế này:

Sub loc_TrungChinh()
  On Error Resume Next
  [G:G].ClearContents
  Range([A1], [A65536].End(xlUp)).AdvancedFilter 2, , [G1], 1
  Range([G1], [G65536].End(xlUp)).Sort [G1], Header:=xlYes, DataOption1:=1
End Sub

Thứ nhất: Xác định vùng cột G bắt đầu từ G1 (tính luôn tiêu đề)
Thứ hai: thêm Header:=xlYes vào
------------
Nói thêm: Thật ra lổi này bạn chỉ cần thí nghiệm sort bằng tay sẽ thấy ngay mà