Cho mình hỏi "ACE" và "group" là gì, không thấy sheet nào tên là sheet bên cạnh cả.
Là anh chị em ak, từ sheets DMHX T.01 sang sheets XKHO DA, DU_2019 bạn!!!
"ak" là gì nhỉ?
Là "ạ"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bạn viết tắt như vậy thì khi mình viết code cũng viết tắt cho nhanh, còn nó không chạy được thì phải chịu nhé.
Xin lỗi, bạn giúp mình chút, mình thực sự cần!!!!!
Mình cũng viết code tắt giống bạn thôi, nếu nhất trí thì mình sẽ viết.
mình sửa lại bài đăng rồi, bạn giúp mình nhé!!!
Ngày chứng từ là ngày hoá đơn ở sheet1 , mỗi 1 hoá đơn như vậy tương ứng với điều kiện 126 món ở bảng DMHX.T01 để chạy HLOOKUP Ở BẢNG XKHO, mình dùng code để nhân bản lên 126 lần mỗi hđ rồi cop sang đó thôi.
Đúng chuẩn ý mình là như vậy, chỉ có điều là cột STT là số phiếu Xuất ấy để sau này mình in chạy ra từng phiếu, mình đã chỉnh lại 1 chút ở bên sheet XKHO DA,DU , đó chính xác là bảng dữ liệu mà mình mong muốn, bạn sửa lại giúp mình một chút nhé.
Sub ChuyenBangDuLieu()
Dim Cls As Range, Rng As Range, Rhd As Range, Cll As Range, WF As Object
Dim Rws As Long, W As Long, Tmr As Double, STT As Long
Dim MaNVL As String
Set WF = Application.WorksheetFunction: Tmr = Time()
With Sheet5
Rws = .[B5].CurrentRegion.Rows.Count
Set Rng = .Range(.[j3], .[j3].End(xlToRight))
ReDim Arr(1 To Rws * Rng.Cells.Count, 1 To 14)
Sheets("XKho").[A2].Resize(Rws * Rng.Cells.Count, 14).Value = ""
For Each Cls In Rng 'Duyêt Theo Sô Hóa Don '
Set Rhd = Cls.Offset(2).Resize(Rws)
STT = STT + 1
For Each Cll In Rhd 'Duyêt Theo Mã Nguyên Vât Liêu '
MaNVL = .Cells(Cll.Row, "B").Value
If MaNVL = "" Then Exit For
If Cll.Value > 0 Then
W = W + 1: Arr(W, 1) = STT
Arr(W, 3) = Cls.Value:
Arr(W, 2) = WF.VLookup(Cls.Value, Sheets("Sheet1").Range("B1:D900"), 2, False)
Arr(W, 4) = WF.VLookup(Cls.Value, Sheets("Sheet1").Range("B1:D900"), 3, False)
Arr(W, 5) = MaNVL
Arr(W, 6) = .Cells(Cll.Row, "C").Value: Arr(W, 7) = .Cells(Cll.Row, "D").Value
Arr(W, 8) = .Cells(Cll.Row, "E").Value: Arr(W, 9) = Cll.Value
End If
Next Cll
Next Cls
If W Then
Sheets("XKho").[A2].Resize(W, 14).Value = Arr()
End If
Sheets("XKho").Select: [P1].Value = Timer() - Tmr
MsgBox "Xong Rôi!", , "GPE.COM Xin Chào!"
End With
End SubCode chạy ổn, cảm ơn bạn rất nhiều, còn việc kia chắc vẫn phải làm bằng tay rồi!!!
Bạn ghi ở trang tính nào? Hay trang ghi bạn đem ẩn đi rồ?
Mình có ghi chú dòng màu đỏ ở phía dưới sheets DMHX T.01 ấy, đây là file lúc mình chưa xuất món ăn cho các hoá đơn, các file ở trên là đã xuất hết món cho các hoá đơn rồi.
vd : HĐ có tổng tiền hàng chưa bao gồm VAT là 103.500 mình sẽ cho tất cả các món ăn có đơn giá chẵn tiền vào trước, sau khi đã cho tất cả các món vào và hoá đơn vẫn còn lẻ 3.500 (lúc này không còn món nào trong danh mục xuất có đơn giá thấp như vây), tiếp tục mình sẽ cho món ăn có bôi màu đỏ ( món này là món ăn kèm tính theo định lượng (kg) (lấy số tiền 3.500 / đơn giá) để lấp đầy số tiền lẻ còn lại trên HĐ).
