Không copy được mã QR code từ sheet mẫu ra sheet kết quả

[titanic20072007]

Chào các bạn. Mình có chế một mẫu biểu (Tem 1) có chèn mã QR code, nội dung mẫu biểu thay đổi thi mã QR code thay đổi theo. Ở sheet Main, mình dùng code để copy mẫu biểu đó sang sheet ABC nhưng không copy được mã QR code. Nhờ các bạn xem giúp. Cảm ơn các bạn.

 

[Maika8008]

Bạn phải .PasteSpecial Paste:=xlPasteAll nó mới copy được QR code

 

[titanic20072007]

Bạn phải .PasteSpecial Paste:=xlPasteAll nó mới copy được QR code

Do Tem1 là mẫu để mỗi đơn vị sẽ có nội dung khác nhau nên khi copy sang sheet khác nếu để All nó sẽ copy cả công thức trong biểu như vậy không ổn lắm.

 

[Maika8008]

Do Tem1 là mẫu để mỗi đơn vị sẽ có nội dung khác nhau nên khi copy sang sheet khác nếu để All nó sẽ copy cả công thức trong biểu như vậy không ổn lắm.

Vậy bạn tách ra, chép All từ 3 hay 4 dòng đầu thôi, còn lại chép value và format

 

[titanic20072007]

Mình thử cách này thì được rồi. Nhưng nếu copy ra nhiều hàng chục bản thì lúc mở hàm QR code lại tải lại như vậy làm chậm máy. Nếu copy như kiểu ảnh thì sẽ nhẹ hơn.

 

[batman1]

Thử thế này xem

Sub copy()
Dim k, sCol As Byte
    Application.ScreenUpdating = False
    k = 1
    sCol = Cells(2, 4)
    
    With Sheet12
        .Range("A:P").Clear
        .DrawingObjects.Delete
    End With
    For i = 1 To sCol
        Sheet11.Range("A1").Value = "ABC " & i
        Sheet11.Range("A1:P40").copy
        Sheet12.Cells(k, 1).PasteSpecial Paste:=xlPasteAll
        Sheet12.Cells(k, "P").Value = Empty
        k = k + 40
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub