tuanlemanh
Thành viên mới
- Tham gia
- 31/12/14
- Bài viết
- 14
- Được thích
- 3
Các bác cho e hỏi chút, e có file này dùng Advanced Filter để lọc nhưng ngày thỏa mãn điều kiện cho trước. Khi lọc trong Sheet đầu tiên được, coppy sang Sheet khác cũng được. Vì muốn làm nhanh cho nhiều sheet nên e muốn dùng 1 macro để tự động việc coppy sheet và lọc trong sheet mới tạo ra. Tuy nhiên, khi chạy nó thì nó coppy sang sheet mới và lọc nhưng đối tượng lọc được lại không có cái nào. Nhưng nếu sau đó lại lặp lại việc lọc bằng tay thì được. Code nó đây:
Sub them()
'
' them Macro
'
' Keyboard Shortcut: Ctrl+t
'
Sheets("NK (2)").Select
Sheets("NK (2)").Copy Before:=Sheets(1)
ActiveCell.Offset(4, -1).Range("A1:E492").AdvancedFilter Action:= _
xlFilterInPlace, CriteriaRange:=ActiveCell.Offset(-1, 0).Range("A1:C3"), _
Unique:=False
End Sub
e cũng không rành lắm về code nên không hiểu mình sai chỗ nào.
Em gửi file đính kèm, mong các bác chỉ giáo.
Sub them()
'
' them Macro
'
' Keyboard Shortcut: Ctrl+t
'
Sheets("NK (2)").Select
Sheets("NK (2)").Copy Before:=Sheets(1)
ActiveCell.Offset(4, -1).Range("A1:E492").AdvancedFilter Action:= _
xlFilterInPlace, CriteriaRange:=ActiveCell.Offset(-1, 0).Range("A1:C3"), _
Unique:=False
End Sub
e cũng không rành lắm về code nên không hiểu mình sai chỗ nào.
Em gửi file đính kèm, mong các bác chỉ giáo.
