Nhờ gỡ rối code lọc dữ liệu ! (1 người xem)

[van_thanh_phong]

Nhờ anh chị em trong GPE giúp nhé !
Khi mình lọc lần 1, 2, 3... có kết quả khác rỗng thì không sao, nhưng khi lọc đến lần thứ n ( bất kì ) mà kết quả rỗng ( không có một mẫu tin nào thỏa ) thì lọc lần tiếp theo nữa thì nó báo lỗi dòng:
.AdvancedFilter 2, Sheets("TIMKIEM").Range("F3:I4"), Sheets("TIMKIEM").Range("A6")
Nhờ anh chị em giúp sữa dùm nhé !
Thanks !

 

[be_09]

Nhờ anh chị em trong GPE giúp nhé !
Khi mình lọc lần 1, 2, 3... có kết quả khác rỗng thì không sao, nhưng khi lọc đến lần thứ n ( bất kì ) mà kết quả rỗng ( không có một mẫu tin nào thỏa ) thì lọc lần tiếp theo nữa thì nó báo lỗi dòng:
.AdvancedFilter 2, Sheets("TIMKIEM").Range("F3:I4"), Sheets("TIMKIEM").Range("A6")
Nhờ anh chị em giúp sữa dùm nhé !
Thanks !

Sheet TIMKIEM: Do bạn chỉ muốn lọc đến cột R, vì vậy sửa số 22 thành 18 của dòng này:

With .Range(.[a4], .[a65536].End(xlUp)).Resize(, 22)

Và xóa dòng này (vì thừa)

Sheets("TIMKIEM").Range("S6:V3000").Clear

Lưu ý:

- Tại F3 Sheet TIMKIEM, khi click vào bạn sẽ thấy 1 hình thoi với dấu chấm than màu đen (!) nếu không sửa lọc sẽ ra kết quả sai (ví dụ: Ở lứa tuổi 13 chỉ lọc được có 28 học sinh là DT(x), thực tế là 81).

- Cách khắc phục: Click vào F3, rê sang trái (vào cái hình thoi) bạn sẽ thấy 1 hình tam giác màu đen, click vào nó sẽ có 1 danh sách sổ xuống chọn Convert to Number

 

[van_thanh_phong]

Thanks ! be09 nhiều, mình biết sai ở đâu rùi !
dòng Sheets("TIMKIEM").Range("A6:R65000").Clear phải là Sheets("TIMKIEM").Range("A6:V65000").Clear
Mới sáng sớm mà be09 đã nhiệt tình trả lời vậy, cảm ơn bạn nhiều nhé !
Chúc bạn ngày mới an lành !