Sub PhieuLuong_Noidung() Dim i As Integer Dim j As Integer i = 6 j = 6 If ThisWorkbookSheets(3)Cells(2

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 ạ

1 câu trả lời

377 lượt xem

vỗ tay

Nguyễn Thị Trang 09:04 - Apr 21, 2020

chào bạn làm thêm điều kiện là nếu tháng ở Sheets data bằng 1 thì in còn không thì bỏ qua.
if(ThisWorkbook.sheet(2).cells(j,1) = sheets(3).range("thang").value and len(sheets(3).range("o").value>0)) then
/// code vòng lặp
else
// code vòng lặp in toàn bộ
end if
trong đó tháng chính là ô bạn muốn truyền vào

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Sub PhieuLuong_Noidung() Dim i As Integer Dim j As Integer i = 6 j = 6 If ThisWorkbookSheets(3)Cells(2

Câu hỏi liên quan