Nhờ mọi người hỗ trợ giúp em theo dõi số lượng đơn hàng

[dinhduy]

Em chào mọi người! Em làm File theo dõi đơn hàng cho KHO, muốn tự động hóa khi Click vào Sheet TON_KHO sẽ hiện ra kết quả thay vì em đang sử dụng SUMIF kết hợp với MÃ LIÊN KẾT. Như thế này ah:
- Khi có đơn hàng, em sẽ trực tiếp tiếp khách HÀNG, ĐƠN HÀNG, HÀNG HOÁ và SỐ vào Sheet TON_KHO luôn.
- Sheet NHAP là số lượng đã sản xuất (theo đơn đặt hàng).
- Sheet XUAT là số lượng đã giao cho khách hàng.
=> Sheet TON_KHO theo dõi số lượng được sản xuất và số lượng giao dịch (đủ hay chưa hoặc dư). Cách tính như sau (tiêu chí: KHÁCH HÀNG, ĐƠN HÀNG, HÀNG HOÁ):
+ Cột SẢN XUẤT tổng hợp số lượng đã sản xuất tại Sheet NHAP.
+ Cột ĐÃ GIAO tổng hợp số lượng đã giao cho khách hàng tại Sheet XUAT.
+ Cột TỒN KHO = SẢN XUẤT - ĐÃ GIAO.
+ Cột CHƯA GIAO = ĐƠN HÀNG - ĐÃ GIAO.
+ Cột CHÊNH LỆCH = TỒN KHO - CHƯA GIAO.
+ Ô K6 là đối chiếu ở Sheet NHAP tổng hợp có bị sai lệch hay không? Nếu có hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Ô L6 là đối chiếu ở Sheet XUAT tổng hợp có bị sai lệch hay không? Nếu có hiện Thông báo "KIEM TRA PHIEU XUAT"
Rất mong được sự hỗ trợ mọi người ah. Em cám ơn rất nhiều !

 

[Maika8008]

Em chào mọi người! Em làm File theo dõi đơn hàng cho KHO, muốn tự động hóa khi Click vào Sheet TON_KHO sẽ hiện ra kết quả thay vì em đang sử dụng SUMIF kết hợp với MÃ LIÊN KẾT. Như thế này ah:
- Khi có đơn hàng, em sẽ trực tiếp tiếp khách HÀNG, ĐƠN HÀNG, HÀNG HOÁ và SỐ vào Sheet TON_KHO luôn.
- Sheet NHAP là số lượng đã sản xuất (theo đơn đặt hàng).
- Sheet XUAT là số lượng đã giao cho khách hàng.
=> Sheet TON_KHO theo dõi số lượng được sản xuất và số lượng giao dịch (đủ hay chưa hoặc dư). Cách tính như sau (tiêu chí: KHÁCH HÀNG, ĐƠN HÀNG, HÀNG HOÁ):
+ Cột SẢN XUẤT tổng hợp số lượng đã sản xuất tại Sheet NHAP.
+ Cột ĐÃ GIAO tổng hợp số lượng đã giao cho khách hàng tại Sheet XUAT.
+ Cột TỒN KHO = SẢN XUẤT - ĐÃ GIAO.
+ Cột CHƯA GIAO = ĐƠN HÀNG - ĐÃ GIAO.
+ Cột CHÊNH LỆCH = TỒN KHO - CHƯA GIAO.
+ Ô K6 là đối chiếu ở Sheet NHAP tổng hợp có bị sai lệch hay không? Nếu có hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Ô L6 là đối chiếu ở Sheet XUAT tổng hợp có bị sai lệch hay không? Nếu có hiện Thông báo "KIEM TRA PHIEU XUAT"
Rất mong được sự hỗ trợ mọi người ah. Em cám ơn rất nhiều !

Bấm nút Lấy tồn kho tại sheet TON KHO

 

[dinhduy]

Bấm nút Lấy tồn kho tại sheet TON KHO

Em cám ơn anh rất nhiều. Anh bẫy giúp em chỗ này với ah, để khi nhấn nút LẤY TỒN KHO để kiểm tra KHO tự biết kiểm nếu có sai luôn.
+ Ô K6 là đối chiếu ở Tổng Sheet NHAP = Tổng cột SẢN XUẤT (Cột K). Nếu bị lệch hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Ô L6 là đối chiếu ở Tổng Sheet XUAT = Tổng cột ĐÃ GIAO (Cột L). Nếu bị lệch hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Khi không có dữ liệu - File mới (KHÁCH HÀNG, ĐƠN HÀNG, MÃ HÀNG và SỐ LƯỢNG) mà nhấn nút sẽ hiện Thông báo "CHUA CO PHAT SINH)

 

[Maika8008]

Em cám ơn anh rất nhiều. Anh bẫy giúp em chỗ này với ah, để khi nhấn nút LẤY TỒN KHO để kiểm tra KHO tự biết kiểm nếu có sai luôn.
+ Ô K6 là đối chiếu ở Tổng Sheet NHAP = Tổng cột SẢN XUẤT (Cột K). Nếu bị lệch hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Ô L6 là đối chiếu ở Tổng Sheet XUAT = Tổng cột ĐÃ GIAO (Cột L). Nếu bị lệch hiện Thông báo "KIEM TRA PHIEU NHAP"
+ Khi không có dữ liệu - File mới (KHÁCH HÀNG, ĐƠN HÀNG, MÃ HÀNG và SỐ LƯỢNG) mà nhấn nút sẽ hiện Thông báo "CHUA CO PHAT SINH)

Xem lại thử các kiểu cảnh báo

 

[dinhduy]

Xem lại thử các kiểu cảnh báo

Em cám ơn anh rất nhiều ah. Làm được như vậy em đỡ biết bao nhiêu việc luôn. KHO họ tự kiểm tra được mà không cần đến em, vì hiện tại KHO họ biết biết nhập thôi ah.

 

[dinhduy]

Xem lại thử các kiểu cảnh báo

Em quên mất còn 2 cảnh báo nữa, nhờ anh làm giúp em với ah.
- Sheet TON_KHO ở Cột SẢN XUẤT > ĐƠN HÀNG (kiểm tra từng mã hàng - từng dòng) thì Thông báo "SAN XUAT DU DON"
- Sheet TON_KHO ở Cột ĐÃ GIAO > ĐƠN HÀNG (kiểm tra từng mã hàng - từng dòng) thì Thông báo "DA GIAO DU DON"
Em cám ơn anh rất nhiều ah!

 

[Maika8008]

Em quên mất còn 2 cảnh báo nữa, nhờ anh làm giúp em với ah.
- Sheet TON_KHO ở Cột SẢN XUẤT > ĐƠN HÀNG (kiểm tra từng mã hàng - từng dòng) thì Thông báo "SAN XUAT DU DON"
- Sheet TON_KHO ở Cột ĐÃ GIAO > ĐƠN HÀNG (kiểm tra từng mã hàng - từng dòng) thì Thông báo "DA GIAO DU DON"
Em cám ơn anh rất nhiều ah!

Xem cách cảnh báo, nội dung cảnh báo có phù hợp không!

 

[dinhduy]

Xem cách cảnh báo, nội dung cảnh báo có phù hợp không!

Nếu được nhờ anh chỉnh lại giúp em 1 xíu chỗ thông báo:
VD nha: HOA SEN - 0014 - D2570 - 1600x2000x10 - 20 Tấm
Vì 1 lúc nhập nhiều đơn hàng khách hàng, hiển thị được như vậy sẽ trực quan hơn ah
Em cám ơn anh rất nhiều đã hỗ trợ rất nhiệt tình ah !

 

[Maika8008]

Nếu được nhờ anh chỉnh lại giúp em 1 xíu chỗ thông báo:
VD nha: HOA SEN - 0014 - D2570 - 1600x2000x10 - 20 Tấm
Vì 1 lúc nhập nhiều đơn hàng khách hàng, hiển thị được như vậy sẽ trực quan hơn ah
Em cám ơn anh rất nhiều đã hỗ trợ rất nhiệt tình ah !

Bạn chép code này thay cho code cũ:

Sub TonKho()
Dim arrN, arrX, arrTTTK, arrSLTK
Dim i As Long, j As Long
Dim MS As String, strDH As String, strDH2 As String
Dim tongNTK As Double, tongXTK As Double, tongNPS As Double, tongXPS As Double

If Sheet02.Range("E65536").End(xlUp).Row < 3 Then MsgBox "CHUA CO PHAT SINH NHAP"
If Sheet03.Range("E65536").End(xlUp).Row < 3 Then MsgBox "CHUA CO PHAT SINH XUAT"
arrN = Sheet02.Range("E3:L" & Sheet02.Range("E65536").End(xlUp).Row)
arrX = Sheet03.Range("E3:L" & Sheet03.Range("E65536").End(xlUp).Row)
arrTTTK = Sheet07.Range("C8:I" & Sheet07.Range("C65536").End(xlUp).Row)
Sheet07.Range("K8:O" & Sheet07.Range("C65536").End(xlUp).Row).ClearContents
arrSLTK = Sheet07.Range("J8:O" & Sheet07.Range("C65536").End(xlUp).Row)

For i = 1 To UBound(arrTTTK, 1)
    MS = arrTTTK(i, 1) & arrTTTK(i, 3) & arrTTTK(i, 4)
    For j = 1 To UBound(arrN, 1)
        If arrN(j, 1) & arrN(j, 3) & arrN(j, 4) = MS Then
            arrSLTK(i, 2) = arrSLTK(i, 2) + arrN(j, 8)
            arrSLTK(i, 4) = arrSLTK(i, 4) + arrN(j, 8)
            tongNTK = tongNTK + arrN(j, 8)
        End If
        If i = 1 Then
            tongNPS = tongNPS + arrN(j, 8)
        End If
    Next
    If arrSLTK(i, 1) < arrSLTK(i, 2) Then strDH = strDH & arrTTTK(i, 2) & "-" & arrTTTK(i, 3) & "-" & arrTTTK(i, 5) & " - " & (arrSLTK(i, 2) - arrSLTK(i, 1)) & " " & arrTTTK(i, 6) & vbNewLine
    For j = 1 To UBound(arrX, 1)
        If arrX(j, 1) & arrX(j, 3) & arrX(j, 4) = MS Then
            arrSLTK(i, 3) = arrSLTK(i, 3) + arrX(j, 8)
            arrSLTK(i, 4) = arrSLTK(i, 4) - arrX(j, 8)
            arrSLTK(i, 5) = arrSLTK(i, 5) - arrX(j, 8)
            tongXTK = tongXTK + arrX(j, 8)
        End If
        If i = 1 Then
            tongXPS = tongXPS + arrX(j, 8)
        End If
    Next
    If arrSLTK(i, 1) < arrSLTK(i, 3) Then strDH2 = strDH2 & arrTTTK(i, 2) & "-" & arrTTTK(i, 3) & "-" & arrTTTK(i, 5) & " - " & (arrSLTK(i, 3) - arrSLTK(i, 1)) & " " & arrTTTK(i, 6) & vbNewLine
    arrSLTK(i, 5) = arrSLTK(i, 1) + arrSLTK(i, 5)
    arrSLTK(i, 6) = arrSLTK(i, 4) - arrSLTK(i, 5)
    
Next
Sheet07.Range("J8").Resize(UBound(arrSLTK, 1), UBound(arrSLTK, 2)) = arrSLTK
If tongNPS <> tongNTK Then MsgBox "KIEM TRA PHIEU NHAP"
If tongXPS <> tongXTK Then MsgBox "KIEM TRA PHIEU XUAT"
If Len(strDH) > 0 Then Application.Assistant.DoAlert "Thông báo!", "SAN XUAT THUA DON " & vbNewLine & strDH, 0, 4, 0, 0, 0   'MsgBox "SAN XUAT THUA DON " & vbNewLine & strDH
If Len(strDH2) > 0 Then Application.Assistant.DoAlert "Thông báo!", "DA GIAO THUA DON " & vbNewLine & strDH2, 0, 4, 0, 0, 0    'MsgBox "DA GIAO THUA DON " & vbNewLine & strDH2
End Sub

 

[dinhduy]

Xem lại thử các kiểu cảnh báo

Ở chỗ này mình chạy Tồn Kho xuất hiện cảnh báo KIEM TRA PHIEU NHAP hay XUAT.
Vậy mình có cách nào qua Sheet NHAP và Sheet XUAT viết CODE kiểm tra và Thông Báo dòng nào không có trong đơn hàng (Mã Khách, Mã đơn, Mã vật tư nhập ở Sheet TON_KHO).
Ví dụ: Số phiếu - Ngày - Khách hàng - Tên Hàng Hóa
Em cám ơn anh rất nhiều ah. KHO như vậy tương đối hoàn hảo, đúng viết ra 1 phần mềm không hề dễ tí nào.

 

[Maika8008]

Ở chỗ này mình chạy Tồn Kho xuất hiện cảnh báo KIEM TRA PHIEU NHAP hay XUAT.
Vậy mình có cách nào qua Sheet NHAP và Sheet XUAT viết CODE kiểm tra và Thông Báo dòng nào không có trong đơn hàng (Mã Khách, Mã đơn, Mã vật tư nhập ở Sheet TON_KHO).
Ví dụ: Số phiếu - Ngày - Khách hàng - Tên Hàng Hóa
Em cám ơn anh rất nhiều ah. KHO như vậy tương đối hoàn hảo, đúng viết ra 1 phần mềm không hề dễ tí nào.

Bạn xem file thử cách này được chưa: đánh dấu X cho cột Q của Nhap và Xuat cho dòng nào đã được nhập bên Ton_kho. Thấy dòng nào trống thì biết là bị sót.

 

[dinhduy]

Bạn xem file thử cách này được chưa: đánh dấu X cho cột Q của Nhap và Xuat cho dòng nào đã được nhập bên Ton_kho. Thấy dòng nào trống thì biết là bị sót.

Dạ chạy ok anh. Mã chỗ Sheet TON_KHO sau khi chạy ra kết quả, cảnh báo mọi thứ rồi.
Mình có cách nào để Fillter nhanh không anh (chẳng hạn như Click chọn thôi)
- SẢN XUẤT chưa đủ đơn - đủ hơn (tùy chọn)
- ĐÃ GIAO chưa đủ đơn - đủ hơn (tùy chọn)
- TỒN KHO có hoặc không (tùy chọn)
- CHÊNH LỆCH có hoặc không (tùy chọn)
Sau khi hoàn thành File này, mong anh cho e chia sẻ File hoàn chỉnh cho mọi người, để cùng nhau suy nghĩ và phát triển để càng hoàn thiện hơn ah!

 

[Maika8008]

Dạ chạy ok anh. Mã chỗ Sheet TON_KHO sau khi chạy ra kết quả, cảnh báo mọi thứ rồi.
Mình có cách nào để Fillter nhanh không anh (chẳng hạn như Click chọn thôi)
- SẢN XUẤT chưa đủ đơn - đủ hơn (tùy chọn)
- ĐÃ GIAO chưa đủ đơn - đủ hơn (tùy chọn)
- TỒN KHO có hoặc không (tùy chọn)
- CHÊNH LỆCH có hoặc không (tùy chọn)
Sau khi hoàn thành File này, mong anh cho e chia sẻ File hoàn chỉnh cho mọi người, để cùng nhau suy nghĩ và phát triển để càng hoàn thiện hơn ah!

Chưa hiểu bạn muốn gì!

 

[dinhduy]

Chưa hiểu bạn muốn gì!

Kiểu thu gọn như vậy đó a, bình thường e hay dùng Filter (ẩn dòng thì rất nhiều thời gian hơn) để xem và in ra ah

 

[dinhduy]

Chưa hiểu bạn muốn gì!

Anh ơi, làm giúp em sổ chi tiết hàng hóa, vật tư với ah. Em cám ơn anh rất nhiều nhiều!
Điều kiện mình chọn: Từ ngày... đến ngày... mã vật tư, hàng hóa
- Tên hàng hóa + đơn vị tính: e dò bên sheet TON_KHO để lấy ra
- Số lượng đầu kỳ (ô I16): (số dư đầu kỳ mặc định là 0), chọn ngày lớn hơn ngày bắt đầu = tổng nhập - tổng xuất
- Phát sinh: (từ B17:H...): trích lọc ra từ phiếu nhập + phiếu xuất có cùng mã vật tư và sắp xếp (ưu tiên: ngày nhỏ đến lớn + phiếu nhập trước (Sheet Sheet NHAP).
- Lũy kế (từ I17:I...): tồn đầu kỳ + nhập - xuất
- Số lượng cuối kỳ sẽ có các ô: Tổng nhập trong kỳ _ Tổng xuất trong kỳ _ Lũy kế (Tồn đầu kỳ + Tổng nhập - Tổng xuất)