Sub PhieuLuong_Noidung()
Dim i As Integer
Dim j As Integer
i = 6
j = 6
If ThisWorkbook.Sheets(3).Cells(2, 9).Value = ThisWorkbook.Sheets(2).Cells(j, 1) Then
While ThisWorkbook.Sheets(2).Cells(i, 5) <> ""
ThisWorkbook.Sheets(3).Cells(6, 6) = ThisWorkbook.Sheets(2).Cells(i, 5)
ThisWorkbook.Sheets(3).PrintOut preview = False
i = i + 1
Wend
End If
End Sub
Sheets(2) là sheet Data_Tienluong
Sheets(3) là sheet Phieuluong
Em đặt lệnh như trên nhưng đến khi in hàng loạt thì xuất hiện trường hợp nếu chọn tháng , ví dụ tháng 1 thì in sẽ cứ lặp đi lặp lại nhân viên trong tháng đó.
Anh chị xem giúp em làm thế nào để chấm dứt vòng lặp đó với ạ . Em chỉ muốn in đúng nhân viên 1 lần thui ạ