Nhờ các bạn hoàn thiện code in phiếu lương

[vuha]

Tôi có tạo 1 code để in bảng lương cá nhân cho từng người nhưng khi thực hiện lệnh thì báo lỗi như trong file word đính kèm. Nhờ các bạn khắc phục lỗi này giúp tôi. Thanks.

 

[ndu96081631]

Sửa lại 1 trong 2 module

Sub In_tat_ca_cac_bang_luong_ca_nhan_click()
  Dim clls As Range
  For Each clls In Range(Sheet2.[d8], Sheet2.[d65535].End(xlUp))
    If Len(clls) > 0 Then
      If 1 * Left(clls, Len(clls) - 4) = [I1] Then [d4] = clls.Value
      ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, collate:=True
    End If
  Next
End Sub

Còn Module kia do không nhìn thấy sheet MS thang1 nên chẳng biết sửa thế nào

 

[vuha]

Sửa lại 1 trong 2 module

Sub In_tat_ca_cac_bang_luong_ca_nhan_click()
  Dim clls As Range
  For Each clls In Range(Sheet2.[d8], Sheet2.[d65535].End(xlUp))
    If Len(clls) > 0 Then
      If 1 * Left(clls, Len(clls) - 4) = [I1] Then [d4] = clls.Value
      ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, collate:=True
    End If
  Next
End Sub

Còn Module kia do không nhìn thấy sheet MS thang1 nên chẳng biết sửa thế nào

Module 2 là mình copy từ GPE (xin lỗi tác giả vì không nhớ tác giả), minh sẽ sử dụng sau. Mình không biết gì về VBA nên cho mình hỏi thêm: Tại sao lệnh If 1 * Left(clls, Len(clls) - 4) = [I1] Then [d4] = clls.Value lại không cần end if mà lệnh vẫn thực hiện?

 

[ndu96081631]

Module 2 là mình copy từ GPE (xin lỗi tác giả vì không nhớ tác giả), minh sẽ sử dụng sau. Mình không biết gì về VBA nên cho mình hỏi thêm: Tại sao lệnh If 1 * Left(clls, Len(clls) - 4) = [I1] Then [d4] = clls.Value lại không cần end if mà lệnh vẫn thực hiện?

IF.... cái gì đó.. rồi... Then... cái gì khác
nằm trên cùng 1 dòng thì khỏi cần END IF