Viết dùm code lọc dữ liệu

[Robinhod]

Anh/chị viết dùm em code lọc dữ liệu thoả mãn điều kiện cho trước vào nút LỌC.

 

[ndu96081631]

Anh/chị viết dùm em code lọc dữ liệu thoả mãn điều kiện cho trước vào nút LỌC.

Code này viết khá dễ dàng! Thuật toán dựa trên cơ sở AutoFilter
- AutoFilter cột A của sheet 1 theo điều kiện Custom >= ngày đầu
- AutoFilter cột A của sheet 1 theo điều kiện Custom <= ngày cuối
- Copy dữ liệu sau khi AutoFilter sang
--------------
Cũng có thể dùng Advanced Filter để lọc, nhưng phải thiết kế lại vùng điều kiện
Ngắn gọn thôi mà (dùng Record macro mà làm)

Sub Loc()
  Range("A7:C1000").Clear
  With Sheet1.Range("A1:C1000")
    .AdvancedFilter 2, Range("K1:L2"), Range("A7")
  End With
End Sub

Tôi dùng Advanced Filter, trong đó K1:L2 là vùng điều kiện