Copy dữ liệu từ các sheets bằng VBA

[Ngvietthe]

Xin chào bác anh chị trong diễn đàn, chả là em có đang học VBA nhưng mà khó quá vẫn chưa nghĩ ra cách giải bài toán này ạ, bảng tính của em gồm 2 sheet, chả là em muốn copy theo điều kiện, Sheet 1 có cột A chứa dữ liệu ngày theo tuần tự, em muốn dựa vào số ngày trên ô D4 của sheet 2, sau đó dùng VBA để copy những ngày có trong cột A của sheet 1 trình bày vào ô C6 đến M6 trong sheet 2 với điều kiện bỏ qua những ngày không có trong sheet1, mỗi ngày xuất hiện 1 lần, em đã tập tành nhưng hoàn toàn không thành công. Như em đang làm thì em đã xóa ngày 29/08/2020 nhưng khi dùng mã vẫn hiện vào sheet2, hoặc tối đa trong sheet1 là ngày 02/09/2020 nếu để ngày 03/09/2020 thì lại không chạy được code, có bác nào hảo tâm chỉ giúp cách code không ạ, cảm ơn các bác, chúc các bác buổi tối vui vẻ

 

[SA_DQ]

Hiện tại trên Sh1 có liệt kê các ngày

8/28/2020​
8/30/2020​
8/31/2020​
9/1/2020​
9/2/2020​

Mà ở [D4] của Sh2 đang ghi là 9/1/2020 : Có nghĩa là lấy hết các ngày trong danh sách này chép theo cột của hàng (dòng) 6
Nếu bạn nhập vô [D4] là ngày 8/29/2020 thì trên dòng 6 này sẽ cần hiện những trị nào cho bạn?
Trường hợp nữa là: Nếu ta nhập 9/13/2020 (lớn hơn các ngày có trong Sh1), thì bạn muốn hiện ra dãy ngày như thế nào?

Dù gì thì bài giải sẽ phải trãi qua các bước sau:

a./ Tìm các ngày cực trị ở Sh1
b./ Xem xét đến ngày ở [D4] có nằm trong hay ngoài 2 cực trị
c./ Tiến hành cho hiện các cột thuộc dòng 6 của Sh2 theo mong muốn.