Vâng cảm ơn bác nhắc nhở. Bài của em như sau ạ:Bạn phải giải thích nội dung thì người khác mới hiểu được chứ:
Cái vùng khoanh đỏ thì nó được hiểu và tính như nào thì mới biết mà ốp dữ liệu vô.
Chuyên môn của bạn mà bạn không giải thích gì chỉ em viết sai viết hộ em với thì chịu thua luôn.
View attachment 267172
Ý tôi là mấy cái ngày đó thì tính như thế nào, như nào là bắt đầu, như nào là kết thúc? Bạn giải thích và điền tay một vài dữ liệu vào vùng màu vàng mà bạn muốn trả về.Vâng cảm ơn bác nhắc nhở. Bài của em như sau ạ:
1. Khi thay đổi 1 trong hai điều kiện hoặc cả hai (Bộ phận và Tuần) thì dữ liệu bên Sheet ĐM Lệnh sẽ tự động cập nhật sang các cột em cần của Sheet "In kế hoạch tuần" gồm: Lệnh, Số phiếu, Số lượng, Ngày bắt đầu (Kế hoạch)
2. Hiện em viết công thức thử ở cột B, cái em cần là chỉ các lệnh của Bộ phận Đột và tuần 40; Thực tế lại ra thông tin khác ngoài lệnh (ĐỊNH MỨC và LỆNH)
Chính vì thế em muốn nhờ Thầy và các anh/chị/em trong diễn đàn chỉ giúp sai ở đâu.
Hi vọng, thông tin em đưa lên vậy sẽ dễ hiểu hơn
Em cảm ơn.
Dạ em chỉ cần lấy "Lệnh, Số phiếu, Số lượng, Ngày bắt đầu (Kế hoạch)"Ý tôi là mấy cái ngày đó thì tính như thế nào, như nào là bắt đầu, như nào là kết thúc? Bạn giải thích và điền tay một vài dữ liệu vào vùng màu vàng mà bạn muốn trả về.
Trong khi chờ công thức thì thử với VBA xem sao.Dạ em chỉ cần lấy "Lệnh, Số phiếu, Số lượng, Ngày bắt đầu (Kế hoạch)"
Với Ngày Bắt đầu (kế hoach) được lấy ở Cột O với Bộ phận Đột - Cột P với Bộ phận Cắt....
View attachment 267173
Nếu em điền tay vào thì như thế này ạ
Em cảm ơn bác nhiều nhiều.Trong khi chờ công thức thì thử với VBA xem sao.
Thay đổi ô C2 hoặc F2 code sẽ chạy.
Dạ vâng ạ. Em cảm ơn bác đã giúp em.Bạn thử như sau:
View attachment 267183
Không có BaTe.Anh BaTe xem giúp em code sắp xếp thứ tự "Ngày bắt đầu" tăng dần với ạ; em cảm ơn nhiều
View attachment 267251
If K Then
.Range("B4").Resize(K, 4) = dArr
'----------------------Thêm 1 dòng dưới'
.Range("B4").Resize(K, 4).Sort Key1:=.Range("E4"), Order1:=xlAscending
'-------------------------'
.Rows(K + 4 & ":103").Hidden = True
End If
Bạn phải đưa file thực của bạn bị lỗi lên mới biết nó làm sao lỗi.View attachment 267273
Báo lỗi dòng mầu vàng bác ạ.
Em xin lỗi nay mới trả lời được ạ (vì em đi công tác bữa giờ luôn).Bạn phải đưa file thực của bạn bị lỗi lên mới biết nó làm sao lỗi.
Nếu nó "y chang" như file này thì tôi có thấy lỗi gì đâu.