In hàng loạt thẻ kho theo mã sản phẩm (1 người xem)

[MeThuongNho]

Chào Anh/ Chị,
Đầu năm chúc anh chị GPE và mọi thành viên có một năm mới sức khỏe và thành công.
Em muốn anh chị giúp em cái code in hàng loạt như file đính kèm.
- In hàng loạt mã sản phẩm có bên sheet Nhật Ký theo form bên sheet Thẻ Kho ( sử dụng cột phụ stt nào đó cũng được)
Mong anh chị giúp đỡ.
Cám ơn mọi người nhiều.

 

[giaiphap]

Chào Anh/ Chị,
Đầu năm chúc anh chị GPE và mọi thành viên có một năm mới sức khỏe và thành công.
Em muốn anh chị giúp em cái code in hàng loạt như file đính kèm.
- In hàng loạt mã sản phẩm có bên sheet Nhật Ký theo form bên sheet Thẻ Kho ( sử dụng cột phụ stt nào đó cũng được)
Mong anh chị giúp đỡ.
Cám ơn mọi người nhiều.

Nhờ người giúp mà đặt mật khẩu, chán

 

[MeThuongNho]

Dạ thật tình xin lỗi, tại lấy file gốc nên còn pass,
Em gửi lại file ah. Cám ơn anh giaiphap.
Trân trọng!

 

[giaiphap]

Dạ thật tình xin lỗi, tại lấy file gốc nên còn pass,
Em gửi lại file ah. Cám ơn anh giaiphap.
Trân trọng!

Dùng thử code này xem sao.

Sub GPE()
Dim Dic1 As Object, iRow As Long, i As Long
Dim Arr() As String, TmpArr()
With Sheet1
  Set Dic1 = CreateObject("Scripting.Dictionary")
    TmpArr = .Range("I6:I" & .Range("I65000").End(xlUp).Row).Value
    ReDim Arr(1 To UBound(TmpArr, 1), 1 To 1)
    For iRow = 1 To UBound(TmpArr, 1)
        If Not IsEmpty(TmpArr(iRow, 1)) And Not Dic1.exists(TmpArr(iRow, 1)) Then
            i = i + 1
             Dic1.Add TmpArr(iRow, 1), i
             Arr(i, 1) = TmpArr(iRow, 1)
        End If
    Next iRow
     With Sheet3
        For iRow = 1 To i
           .Rows("12:475").EntireRow.Hidden = False
           .Range("D6") = "'" & Arr(iRow, 1)
           .Rows((Application.WorksheetFunction.Max(.Range("A12:A475")) + 12) & ":475").EntireRow.Hidden = True
           .PrintOut
        Next iRow
     End With
End With
End Sub

 

[MeThuongNho]

Cám ơn anh giaiphap
Code ok rồi anh. Nhưng em bị vướn chỗ này;
Sheet Nki là của file tổng, nhiều dòng lắm, in theo code đó thì in ra 1 lần rất nhiều. ( không kiểm soát được in đến đâu)
Em muốn in theo thứ tự từ số đến số ( dựa theo sheet thứ tự: có mã sp tương ứng)
Em cũng mày mò có code printF như file, nhưng không làm được giống anh ( nghĩa là dòng nào có dữ liệu mới in, chứ hiện tại em phải set print area trước thì form trống dòng nhiều)
Anh xem giúp em với ah
File đính kèm.
Cám ơn Anh!

 

[giaiphap]

Cám ơn anh giaiphap
Code ok rồi anh. Nhưng em bị vướn chỗ này;
Sheet Nki là của file tổng, nhiều dòng lắm, in theo code đó thì in ra 1 lần rất nhiều. ( không kiểm soát được in đến đâu)
Em muốn in theo thứ tự từ số đến số ( dựa theo sheet thứ tự: có mã sp tương ứng)
Em cũng mày mò có code printF như file, nhưng không làm được giống anh ( nghĩa là dòng nào có dữ liệu mới in, chứ hiện tại em phải set print area trước thì form trống dòng nhiều)
Anh xem giúp em với ah
File đính kèm.
Cám ơn Anh!

Sửa lại thế này xem sao.

Sub PrintF()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet3
        printFrom = .Range("Q2").Value
        printTo = .Range("S2").Value
        For i = printFrom To printTo
            .Rows("12:475").EntireRow.Hidden = False
            .Range("O2").Value = i
            .Rows((Application.WorksheetFunction.Max(.Range("A12:A475")) + 12) & ":475").EntireRow.Hidden = True
            .PrintOut preview:=False
        Next i
    End With
End Sub

 

[MeThuongNho]

Cám ơn anh giaiphap nhiều.
Code chạy tốt rồi.
Chúc một ngày mới vui!

 

[trung984]

Cám ơn anh giaiphap nhiều.
Code chạy tốt rồi.
Chúc một ngày mới vui!

Kiểm tra lại hàm.
HÒA PHONG làm gì có số phiếu này PN001, nó của LINH XUÂN.

 

[MeThuongNho]

Kiểm tra lại hàm.
HÒA PHONG làm gì có số phiếu này PN001, nó của LINH XUÂN.

Cám ơn trung984,
Cái này chắc do nguồn nhập của công ty nên mình cũng không biết. Có thể là nhập chung hay gì đó.
Nói chung thẻ kho theo mã nên hàm mình thấy vậy là Ok rồi.
Thân!

 

[be_09]

Cám ơn trung984,
Cái này chắc do nguồn nhập của công ty nên mình cũng không biết. Có thể là nhập chung hay gì đó.
Nói chung thẻ kho theo mã nên hàm mình thấy vậy là Ok rồi.
Thân!

Bài 8 người ta đã chỉ ra cái sai mà bạn không kiểm tra lại.
Bạn vào sheet NhatKy rồi Filter mã 00521003 xem lại số phiếu PN001 ngày 01/8/2017, nó của LINH XUÂN, nhưng kết quả ở sheet TheKho nó lấy dữ liệu cho HÒA PHONG là không đúng.

File này làm mất công quá nên tôi chỉ xem sơ qua.