code chọn năm thì lọc ra tồn, nhập, xuất và tồn cuối của năm đó

[NguyenthiH]

Chào mọi người!
Em có file này, ở sheet1 là dữ liệu của 3 năm, em muồn là khi chọn năm ở Datavalidation ở Sheet1!P2 thì hiện dữ lieu lọc vào Sheet1!P3:AB như em có mẫu. Em nhờ viết code để tình tồn đầu của từng năm như em làm mẫu ở 3 sheet: 2017,2018,2019.
Em cám ơn mọi người.

 

[NguyenthiH]

À anh Hiếu ơi, bây giờ em mới để ý thấy cột Date (P6 trở xuống) vì có dòng lệnh này:

If i > 5 Then Range("P6:AB" & i).Clear

nên khi chọn qua năm khác thì cột P6 trở xuống là dạng số chứ không còn là Date. Mong anh Hiếu chỉnh giúp em với.

 

[HieuCD]

À anh Hiếu ơi, bây giờ em mới để ý thấy cột Date (P6 trở xuống) vì có dòng lệnh này:

If i > 5 Then Range("P6:AB" & i).Clear

nên khi chọn qua năm khác thì cột P6 trở xuống là dạng số chứ không còn là Date. Mong anh Hiếu chỉnh giúp em với.

Bạn tự thêm lệnh định dạng ngày tháng

 

[NguyenthiH]

Em làm như vầy có được không anh Hiếu:

Range("P6:P" & i).NumberFormat = "m/d/yyyy"

thấy chạy đúng ý rồi.