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ử