Điền thông tin ngày tháng năm vào bảng báo cáo

[soledad_90]

Em xin chào mọi người trên diễn đàn ạ.
Em có bảng tổng hợp báo cáo cần thiết lập code VBA để điền ngày tháng năm ạ.
Với các sheet DataNK

Để lọc tìm và trả kết quả vào sheet BC chitiet với
Ngày nhập kho cho 1 chuỗi đơn hàng/ mã hàng / màu sắc sẽ nhiều ngày : nhưng chỉ ngày nào có trường cột bên cạnh ghi là ok thì mới ghi nhận ngày đó là ngày nhập kho


Sau đó sẽ có BC tongDH với


Em có gửi tệp đính kèm và kết quả mẫu.
Em xin nhận được sự trợ giúp từ diễn đàn ạ.
Em cảm ơn!

 

[Ba Tê]

Em xin chào mọi người trên diễn đàn ạ.
Em có bảng tổng hợp báo cáo cần thiết lập code VBA để điền ngày tháng năm ạ.
Với các sheet DataNK View attachment 261340

Để lọc tìm và trả kết quả vào sheet BC chitiet với
Ngày nhập kho cho 1 chuỗi đơn hàng/ mã hàng / màu sắc sẽ nhiều ngày : nhưng chỉ ngày nào có trường cột bên cạnh ghi là ok thì mới ghi nhận ngày đó là ngày nhập kho
View attachment 261341

Sau đó sẽ có BC tongDH với
View attachment 261342

Em có gửi tệp đính kèm và kết quả mẫu.
Em xin nhận được sự trợ giúp từ diễn đàn ạ.
Em cảm ơn!

Chạy Sub này cho sheet "BC chitiet", sheet kia không hiểu yêu cầu là gì.

Option Explicit

Public Sub BC_ChiTiet()
Dim Dic As Object, sArr(), tArr(), ArrP(), ArrS()
Dim I As Long, R As Long, Rws As Long, Txt As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Sheets("DataNK").Range("E5", Sheets("DataNK").Range("O5").End(xlDown)).Value
    R = UBound(sArr)
    For I = 1 To R 'Xac dinh dong cua Don hang+Ma hang+Mau sac trong sheet DataNK'
        If sArr(I, 7) = "OK" Then
            Txt = sArr(I, 9) & "#" & sArr(I, 10) & "#" & sArr(I, 11)
            Dic.Item(Txt) = I
        End If
    Next I
With Sheets("BC chitiet")
    tArr = .Range("E4", .Range("E4").End(xlDown)).Resize(, 6).Value
    R = UBound(tArr)
    ReDim ArrP(1 To R, 1 To 1)
    ReDim ArrS(1 To R, 1 To 1)
    For I = 1 To R
        Txt = tArr(I, 1) & "#" & tArr(I, 5) & "#" & tArr(I, 6)
        If Dic.Exists(Txt) Then
            Rws = Dic.Item(Txt) 'So dong trong sheet DataNK'
            ArrP(I, 1) = DateSerial(sArr(Rws, 5), sArr(Rws, 4), sArr(Rws, 3))
            ArrS(I, 1) = sArr(Rws, 1)
        End If
    Next I
    .Range("P4").Resize(R) = ArrP   'Gan vao cot P'
    .Range("S4").Resize(R) = ArrS   'Gan vao cot S'
End With
Set Dic = Nothing
End Sub

 

[soledad_90]

Con cảm ơn thông tin kết quả từ thầy ạ .

sheet kia không hiểu yêu cầu là gì.

Tại sheet BC tongDH
Ở sheet này chỉ cần thể hiện số đơn hàng .
Tại số đơn hàng đó tham chiếu từ Data NK, tìm kiếm theo số đơn hàng có mã hàng có màu sắc nhập kho là xa nhất sẽ hiển thị
VD như mẫu con có đưa kết quả ạ.
Số đơn hàng 225767B / Sẽ có rất nhiều ngày nhập chi tiết của từng ngày . Nhưng ngày 12/06/2021 là xa nhất nên sẽ thể hiện tại cột
Nhập kho là 12/06/2021 trong Sheet BC tongDH
cột ngày xuất kho sẽ chỉ có 1 ngày duy nhất nên sẽ thể hiện ngày đó ạ.

 

[Ba Tê]

Tại số đơn hàng đó tham chiếu từ Data NK, tìm kiếm theo số đơn hàng có mã hàng có màu sắc nhập kho là xa nhất sẽ hiển thị

Trong sheet thì:

Thiết lập code VBA để tham chiếu dữ liệu từ sheet BC chitiet với đk tham chiếu là cột đơn hàng​

Ngày nhập kho là ngày xa nhất trong các ngày nhập kho ok tại sheet BC chitiet​

Rốt cuộc thì lấy dữ liệu từ sheet nào? Có điều kiện "OK" hay không?

 

[soledad_90]

Trong sheet thì:

Thiết lập code VBA để tham chiếu dữ liệu từ sheet BC chitiet với đk tham chiếu là cột đơn hàng​

Ngày nhập kho là ngày xa nhất trong các ngày nhập kho ok tại sheet BC chitiet​

Rốt cuộc thì lấy dữ liệu từ sheet nào? Có điều kiện "OK" hay không?

Con cảm ơn ạ.
Do diễn tả 2 ý làm thấy khó hiểu ạ.
Khi tham chiếu dữ liệu tại sheet data NK thì có điều kiện kèm theo là OK ạ
( Tại tệp đính kèm thì con lại viết tham chiếu tại sheet BC chitiet )
Con đính chính lại ý này là tham chiếu tại Data NK ạ.

 

[Ba Tê]

Con đính chính lại ý này là tham chiếu tại Data NK ạ.

Lấy dữ liệu từ sheets "DataNK" thì làm sao có đầy đủ các tiêu đề cột trong sheet "BC tongDH"?
Số lượng thì lấy cột nào (Chỉ khi mình làm mình mới hiểu, chú ý viết rõ cho người khác hiểu)
Tôi lấy dữ liệu từ sheet "BC chitiet", các cột cần lấy được ghi trên dòng 3 (C3 đến O3) sheet "BC tongDH".
Bạn tùy nghi sửa trên dòng này.

 

[soledad_90]

Tôi lấy dữ liệu từ sheet "BC chitiet", các cột cần lấy được ghi trên dòng 3 (C3 đến O3) sheet "BC tongDH".

Dạ tham chiếu tại sheet này cũng được ạ.
Số đơn hàng 225767B / Sẽ có rất nhiều ngày nhập chi tiết của từng ngày . Nhưng ngày 12/06/2021 là ngày sau cùng nhập kho OK xa nhất nên sẽ chọn ngày này hiển thị.
Với tệp kết quả thầy gửi khi chạy code thì chỉ hiện thị các số đơn hàng có ngày nhập kho.
Còn với các số đơn hàng khác không có ngày NK lại không được xuất hiện ạ
Kết quả đã đúng yêu cầu con mong muốn ạ . Nhưng với các dòng không có ngày nhập sẽ được xuất hiện luôn ạ.
Con cảm ơn thầy nhiều ạ .

 

[Ba Tê]

Dạ tham chiếu tại sheet này cũng được ạ.
Số đơn hàng 225767B / Sẽ có rất nhiều ngày nhập chi tiết của từng ngày . Nhưng ngày 12/06/2021 là ngày sau cùng nhập kho OK xa nhất nên sẽ chọn ngày này hiển thị.
Với tệp kết quả thầy gửi khi chạy code thì chỉ hiện thị các số đơn hàng có ngày nhập kho.
Còn với các số đơn hàng khác không có ngày NK lại không được xuất hiện ạ
Kết quả đã đúng yêu cầu con mong muốn ạ . Nhưng với các dòng không có ngày nhập sẽ được xuất hiện luôn ạ.
Con cảm ơn thầy nhiều ạ .
View attachment 261429

Ngày Cột P sheet "BC chitiet" không có, nghĩa là không có "OK" trong cột K sheet "DataNK", bây giờ lại lấy luôn thì các yêu cầu "OK" là sao?
"Tiền hậu bất nhất"!

 

[soledad_90]

bây giờ lại lấy luôn thì các yêu cầu "OK" là sao?

Dạ . tại sheet BC chitiet GPE đã hiện đúng yêu cầu rồi ạ . con không đề cập nữa ạ.
Tại Sheet BC tongDH : Tại sheet này phục vụ cho báo cáo tổng quát ạ.
Không quan tâm rằng chi tiết số đơn hàng này có nhiều mã hàng / màu sắc / từng ngày nhập .
Mà sẽ quan tâm với 1 số đơn hàng có tất cả các mã hàng / màu sắc / ngày nhập . Thì sẽ lấy ngày nhập sau cùng ghi chữ OK
Như hình con lấy VD thì số đơn hàng 225767B - tại sheet Data NK sẽ có chi tiết rất nhiều ngày nhập với nhiều mã hàng / màu sắc.
Nhưng sẽ chỉ cần lấy 1 ngày duy nhất là ngày 12/06/2021 ngày đó là ngày OK tất cả các mã hàng / màu sắc để xuất.
Vì đơn này chỉ có thể được xuất khi tất cả các mã hàng / màu sắc phải nhập kho OK
Kết quả tại sheet BC tongDH con kiểm tra đúng yêu cầu rồi ạ .
Con cảm ơn thầy nhiều ạ.

 

[soledad_90]

Ngày Cột P sheet "BC chitiet" không có, nghĩa là không có "OK" trong cột K sheet "DataNK", bây giờ lại lấy luôn thì các yêu cầu "OK" là sao?
"Tiền hậu bất nhất"!

Con chào thầy @Ba Tê .
Con xin có thêm yêu cầu cho code chạy để hiển thị số lượng nhập kho .
Tại sheet BC chitiet ở cột " Báo trạng thái đơn hàng " . Sẽ điền số lượng nhập kho với trường dữ liệu tham chiếu tại sheet DataNK
Con xin cảm ơn ạ! .

 

[soledad_90]

Mong nhận được sự trợ giúp từ diễn đàn và thầy @Ba Tê về yêu cầu thêm này ạ.
Xin cảm ơn!

View attachment 262688
View attachment 262689

Con chào thầy @Ba Tê .
Con xin có thêm yêu cầu cho code chạy để hiển thị số lượng nhập kho .
Tại sheet BC chitiet ở cột " Báo trạng thái đơn hàng " . Sẽ điền số lượng nhập kho với trường dữ liệu tham chiếu tại sheet DataNK
Con xin cảm ơn ạ! .