Cần giúp trích xuất dữ liệu có điều kiện từ nhiều Sheet

[bap226]

Chào Anh Chị
Nhờ Anh Chị giúp mình giải quyết vấn đề khó khắn này với ạ!

Nội dung: Ví dụ trong Sheet "KHSX_Ngay02", Mình chọn ngày 02/01/2020, thì sẽ lấy dữ liệu của ngày 02/01/2020 từ Sheet "KeHoachTong", Cộng với điều kiện là dò tim "Mã MH" đó trong sheet "CongThucSX" và đếm từ cột C -> cột K có bao nhiêu cột ">0" thì điền vào Sheet "KHSX_Ngay02" số dòng tương ứng và để tróng 4 dòng tiếp theo (Ví dụ nếu đếm được 2 thì điền 2 dòng và 4 dòng trống tiếp theo), Sau đó điền tiếp mặt hàng thứ 2 lặp lại điều kiện như trên cho đến khi hết các Mặt hàng trong ngày đó.
Mình có làm mẫu cách điền dữ liệu trong Sheet "KHSX_Ngay02"

Ghi chú: Dữ liệu trong file chỉ trích 1 phần nhỏ, còn dữ liệu gốc thì rất lớn, tăng dữ liệu theo từng ngày trong 2 Sheet: KeHoachTong và CongThucSX

Rất cảm ơn sự giúp đỡ của Anh Chị.

 

[Ba Tê]

Hi Anh Chị
Nhờ Anh Chị giúp mình giải quyết vấn đề khó khắn này với ạ!

Nội dung: Ví dụ trong Sheet "KHSX_Ngay02", Mình chọn ngày 02/01/2020, thì sẽ lấy dữ liệu của ngày 02/01/2020 từ Sheet "KeHoachTong", Cộng với điều kiện là dò tim "Mã MH" đó trong sheet "CongThucSX" và đếm từ cột C -> cột K có bao nhiêu cột ">0" thì insert vào Sheet "KHSX_Ngay02" số dòng tương ứng và để tróng 4 dòng tiếp theo (Ví dụ nếu đếm được 2 thì insert 2 dòng và 6 dòng trống tiếp theo), Sau đó điền tiếp mặt hàng thứ 2 lặp lại điều kiện như trên cho đến khi hết các Mặt hàng trong ngày đó.
Mình có làm mẫu cách insert dữ liệu trong Sheet "KHSX_Ngay02"

Note: Dữ liệu trong file chỉ trích 1 phần nhỏ, còn dữ liệu gốc thì rất lớn, tăng dữ liệu theo từng ngày trong 2 Sheet: KeHoachTong và CongThucSX

Rất cảm ơn sự giúp đỡ của Anh Chị.

Bạn viết lại bằng tiếng Việt "Hi" là gì đi, kể cả "Note", viết nửa Ta nửa Tây đọc khó chịu lắm.
Khi bạn sửa xong tôi sẽ gởi cho bạn 1 Sub chạy thử.

 

[VetMini]

Bạn viết lại bằng tiếng Việt "Hi" là gì đi, kể cả "Note", viết nửa Ta nửa Tây đọc khó chịu lắm.
Khi bạn sửa xong tôi sẽ gởi cho bạn 1 Sub chạy thử.

Cược 2 ăn 1.
Không sửa, chờ người khác giúp. Rừng đâu thiếu củi.

(tôi còn có thể cược ai sẽ giúp nữa, nhưng thôi, nói ra đụng chạm)

 

[bap226]

Bạn viết lại bằng tiếng Việt "Hi" là gì đi, kể cả "Note", viết nửa Ta nửa Tây đọc khó chịu lắm.
Khi bạn sửa xong tôi sẽ gởi cho bạn 1 Sub chạy thử.

Xin lỗi nếu điều đó làm Bạn khó chịu. Mình đã sửa.
Cảm ơn Bạn đã góp ý (Mình chỉ nghỉ nó là từ thông dụng hàng ngày của dân văn phòng sử dụng hàng ngày).

Bài đã được tự động gộp: 26/5/20

Cược 2 ăn 1.
Không sửa, chờ người khác giúp. Rừng đâu thiếu củi.

(tôi còn có thể cược ai sẽ giúp nữa, nhưng thôi, nói ra đụng chạm)

Cảm ơn Bạn.
Ngữ cảnh không phù hợp với quan điểm của mỗi người thì sẽ sửa.
Cần những góp ý.

 

[Ba Tê]

Chào Anh Chị
.................................

Bạn xem file.

Cảm ơn Bạn đã góp ý (Mình chỉ nghỉ nó là từ thông dụng hàng ngày của dân văn phòng sử dụng hàng ngày).

Không phải ai cũng là "dân văn phòng" như bạn, GPE rất nhiều người: nhiều tuổi, quá tuổi hưu ... Chẳng biết người đó ra sao mà bị"Hi" vào mặt thì phải khó chịu rồi.

 

[VetMini]

...Cảm ơn Bạn.
Ngữ cảnh không phù hợp với quan điểm của mỗi người thì sẽ sửa.
Cần những góp ý.

Tốt. Nếu còn gì thì có thể tôi sẽ cố gắng giúp. Nhưng nếu hiện tại bài #5 giải quyết được rồi thì thôi

 

[be_09]

Chào Anh Chị
Nhờ Anh Chị giúp mình giải quyết vấn đề khó khắn này với ạ!

Nội dung: Ví dụ trong Sheet "KHSX_Ngay02", Mình chọn ngày 02/01/2020, thì sẽ lấy dữ liệu của ngày 02/01/2020 từ Sheet "KeHoachTong", Cộng với điều kiện là dò tim "Mã MH" đó trong sheet "CongThucSX" và đếm từ cột C -> cột K có bao nhiêu cột ">0" thì điền vào Sheet "KHSX_Ngay02" số dòng tương ứng và để tróng 4 dòng tiếp theo (Ví dụ nếu đếm được 2 thì điền 2 dòng và 4 dòng trống tiếp theo), Sau đó điền tiếp mặt hàng thứ 2 lặp lại điều kiện như trên cho đến khi hết các Mặt hàng trong ngày đó.
Mình có làm mẫu cách điền dữ liệu trong Sheet "KHSX_Ngay02"

Ghi chú: Dữ liệu trong file chỉ trích 1 phần nhỏ, còn dữ liệu gốc thì rất lớn, tăng dữ liệu theo từng ngày trong 2 Sheet: KeHoachTong và CongThucSX

Rất cảm ơn sự giúp đỡ của Anh Chị.

1/ Lệnh sản xuất ngày 02/01/2020 ở sheet KeHoachTong một đằng, kế hoạch sản xuất ngày 02/01/2020 một nẽo, xem xong muốn hiểu cũng rối não.
2/ Kế hoạch sản xuất cũng không đưa hàng hóa từ cột C -> cột K của sheet CongThucSX sang nữa thì cũng bó tay với bạn luôn (muốn trợ giúp mà lười quá thì ai siêng để giúp).

 

[BuiQuangThuan]

....

  tArr = Sheets("CongThucSX").Range("A3", Sheets("CongThucSX").Range("A3").End(xlDown)).Resize(, 13).Value
    For I = 1 To UBound(tArr)
        For J = 3 To 11
            If tArr(I, J) > 0 Then Dic.Item(tArr(I, 1)) = Dic.Item(tArr(I, 1)) + 1
        Next J
    Next I

Chú cho cháu hỏi 1 chút ạ. Cái đoạn trên có tác dụng gì thế chú? Tại cháu đọc nhưng không hiểu là dùng vào khúc nào trong đoạn sub của chú ạ.

 

[Ba Tê]

  tArr = Sheets("CongThucSX").Range("A3", Sheets("CongThucSX").Range("A3").End(xlDown)).Resize(, 13).Value
    For I = 1 To UBound(tArr)
        For J = 3 To 11
            If tArr(I, J) > 0 Then Dic.Item(tArr(I, 1)) = Dic.Item(tArr(I, 1)) + 1
        Next J
    Next I

Chú cho cháu hỏi 1 chút ạ. Cái đoạn trên có tác dụng gì thế chú? Tại cháu đọc nhưng không hiểu là dùng vào khúc nào trong đoạn sub của chú ạ.

Đếm xem mỗi Mã MH trong sheets CongThucSX có bao nhiêu ô >0 (từ cột C đến K) ghi vào Dic.
Bên dưới xác định Mã MH, X bằng bao nhiêu (lấy từ Dic) để chạy vòng lặp For N ...

 

[bap226]

Bạn xem file.

Không phải ai cũng là "dân văn phòng" như bạn, GPE rất nhiều người: nhiều tuổi, quá tuổi hưu ... Chẳng biết người đó ra sao mà bị"Hi" vào mặt thì phải khó chịu rồi.

Cảm ơn Anh đã giúp.
File hoạt động như nguyện vọng rồi Anh.
Còn những góp ý của Anh, Em sẽ rút kinh nghiệm về sau.