Chào Thầy, nhờ Thầy chỉ ra lỗi sai và hướng dẫn lại đoạn code xem lương bằng file PDF. Cám ơn

chào bạn bạn có thể đẩy file lên được không?

https://drive.google.com/file/d/1uXkU...

Gửi Thầy đường liên kết, nhờ Thầy hướng dẫn. Cám ơn

Chào bạn bạn cho mình xin quyền truy cập nhé.

Dạ, 123

Chào bạn bạn mở quyền truy cập để mình xem được file của bạn nhé.

Dạ đã mở quyền truy cập, nhờ Thầy xem giúp

chào bạn bạn xem code này nhé.

Option Explicit

Sub PhieuLuong_NoiDung()

    Dim dong_BD As Long, dong_KT As Long

    dong_BD = Application.WorksheetFunction.Match(Sheet2.Range("E4"), Sheet1.Range("A7:A200"), 0) + 5

    dong_KT = Application.WorksheetFunction.CountIf(Sheet1.Range("A7:A200"), Sheet2.Range("E4")) + dong_BD - 1

    Sheet2.Select

    Dim i As Integer

    For i = dong_BD To dong_KT

        Sheet2.Range("B7").Value = Sheet1.Range("B" & i).Value

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("b7") & ".pdf"

    Next i

End Sub

chào bạn bạn thử giúp mình lưu file vào đường dẫn không giấu như destop và thử lại xem

Dạ, Em đang lưu tại destop ạ

chào bạn bạn có ultraview đấy  không mình vào xem thử