Anh quanghai1969 và các cao thủ cho em hỏi code lọc dữ liệu theo ngày (2 người xem)

[tranvyvn]

em xem trên diễn đàn thấy code lọc dữ liệu theo ngày của anh quanghai1969 thấy rất hay như sau:
http://www.giaiphapexcel.com/forum/...ch-thêm-về-code-lọc-dữ-liệu-của-bác-RoberLiem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
[IV2].FormulaR1C1 = "=Data!RC2=R2C5"
Rows("5:10000").Clear
Sheet1.[A1:H10000].AdvancedFilter 2, [IV1:IV2], [B4].CurrentRegion
If [B5] <> "" Then Range([B5], [B65536].End(3)) = [row(a:a)]
End If
End Sub

em muốn đặt code lọc ở 4 sheet khác nhau trong file thì code phải sửa như thế nào ạ?
nếu như trong sheet data em chend xuống mấy dòng thì kết quả lọc không chính xác, cách khắc phục như thế nào ạ?
em xin cảm ơn cả nhà!

 

[Quang_Hải]

em xem trên diễn đàn thấy code lọc dữ liệu theo ngày của anh quanghai1969 thấy rất hay như sau:
http://www.giaiphapexcel.com/forum/...ch-thêm-về-code-lọc-dữ-liệu-của-bác-RoberLiem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
[IV2].FormulaR1C1 = "=Data!RC2=R2C5"
Rows("5:10000").Clear
Sheet1.[A1:H10000].AdvancedFilter 2, [IV1:IV2], [B4].CurrentRegion
If [B5] <> "" Then Range([B5], [B65536].End(3)) = [row(a:a)]
End If
End Sub

em muốn đặt code lọc ở 4 sheet khác nhau trong file thì code phải sửa như thế nào ạ?
nếu như trong sheet data em chend xuống mấy dòng thì kết quả lọc không chính xác, cách khắc phục như thế nào ạ?
em xin cảm ơn cả nhà!

1. Không nên gọi đích danh bất kỳ nick nào để hỗ trợ, vì nếu thành viên đó đang không online thì những thành viên khác sẽ ngại trả lời
2. Muốn gì thì phải gởi file lên mới biết bạn đang quậy phá cái gì chứ

 

[huy vu]

Code chính để lọc là chức năng advance filter.
Bạn thử record marco chức năng AF này trên 1 sheet vài lần là vỡ ra vấn đề.
Sau đó chỉnh sửa code lọc sang sheet khác là được
Ko có file rất khó cho các thành viên hỗ trợ

 

[tranvyvn]

1. Không nên gọi đích danh bất kỳ nick nào để hỗ trợ, vì nếu thành viên đó đang không online thì những thành viên khác sẽ ngại trả lời
em xin rút kinh nghiệm
em gửi file các anh xem giúp.
em cảm ơn nhiều!

 

[Quang_Hải]

1. Không nên gọi đích danh bất kỳ nick nào để hỗ trợ, vì nếu thành viên đó đang không online thì những thành viên khác sẽ ngại trả lời
em xin rút kinh nghiệm
em gửi file các anh xem giúp.
em cảm ơn nhiều!

Mình chỉnh sơ lại code cho việc tạo STT. Chú ý chỗ RC8 nha. Số 8 là tên cột chứa ngày mà bạn muốn lọc. Sai chỗ này coi như đi toi.

.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$1" Then
    [IV2].FormulaR1C1 = "=Data!RC8=R1C14"
    Rows("6:10000").Clear
    Sheet1.[A5:R10000].AdvancedFilter 2, [IV1:IV2], [A5].CurrentRegion
    If [B6] <> "" Then Range([B6], [B65536].End(3)).Offset(, -1) = [row(a:a)]
End If
End Sub