In giấy uỷ quyền quyết toán thuế TNCN từ danh sách (1 người xem)

[vuminh1601]

Nhờ mọi người giúp cụ thể nội dung xin xem trong file đính kèm.
Qua đó sẽ giúp được nhiều ACE đang làm quyết toán thuế TNCN
như tôi. xin cám on cả nhà

 

[vuminh1601]

Nhờ mọi người giúp cụ thể nội dung xin xem trong file đính kèm.
Qua đó sẽ giúp được nhiều ACE đang làm quyết toán thuế TNCN
như tôi. xin cám on cả nhà

42 lần đọc 22 lần tải file mà vẫn chưa thấy ai giúp tôi sao.
Cao thủ nào ra tay giúp tôi với

 

[ThuNghi]

42 lần đọc 22 lần tải file mà vẫn chưa thấy ai giúp tôi sao.
Cao thủ nào ra tay giúp tôi với

Bạn tham khảo mấy file in hợp đồng lao động, tìm những file của anh Sealand có những yêu cầu gần giống như trên.
Hay là bạn tự thiết kế thử, gợi ý như sau.
Mình lấy số TT (cột A) làm key.
For iTT =1 to max(SoTT)
SoCM=cells(i,2)
Range("I10")=SoCM
'in gi đó
Next iTT
...
Làm thử mọi người sẽ giúp hoàn thiện. Thấy cách bạn nêu yêu cầu là bạn có thể làm được đó. Cố lên.

 

[vuminh1601]

Bạn ThuNghi ơi. mình dow cái hợp đồng của bác sealand về và in thử nó báo lỗi như hình kèm theo.
mà trong code mình thay cái .[bt3] bằng .range("A5") được không trong cái lệnh đó. lại còn in lặp lại theo số thư tự nữa chứ.
đại loại là mình chưa được học VBA bao giờ. "mò mẫm" vẫn chưa được.
Nếu có thể bạn giải giúp mình với

 

[laianhtu]

Bạn dùng file này thử xem, thích in nhân viên nào thì chọn nhân viên đó, nếu muốn in hàng loạt thì chọn nút "In liên tục".

 

[vuminh1601]

Cám ơn ThuNghi và LaianhTu đã trả lời mình.
Bạn LaianhTu ơi làm thế nào khi trong danh sách của mình có người không uỷ quyền quyết toán thuế TNCN (sẽ không in)= 0, có những người cần 2 bản in = 2, nội dung ở cột O sheet2.
Danh sách cả hơn 1000 nhân viên. Mục đích mình muốn thoả mãn điều kiện tham chiếu ở cột O sheet2.
Rất mong mọi người tiếp tục giúp mình nhé.

 

[vuminh1601]

Bạn tham khảo mấy file in hợp đồng lao động, tìm những file của anh Sealand có những yêu cầu gần giống như trên.
Hay là bạn tự thiết kế thử, gợi ý như sau.
Mình lấy số TT (cột A) làm key.
For iTT =1 to max(SoTT)
SoCM=cells(i,2)
Range("I10")=SoCM
'in gi đó
Next iTT
...
Làm thử mọi người sẽ giúp hoàn thiện. Thấy cách bạn nêu yêu cầu là bạn có thể làm được đó. Cố lên.

Mình "xin" của mọi người, mỗi người một tý lắp ghép lại và ra được như thế này

Sub PrintGUQ()
Dim n As Integer
Application.ScreenUpdating = False
n = Application.WorksheetFunction.Max(Sheet2.Range("tt")) 'tt= A5:A500
If n > 0 Then
With Sheet1
For i = 1 To n
If .Cells(i + 4, 1) = .Cells(1, 1) Then
Sheet1.Cells(10, 1).Value = Sheet2.Cells(i + 4, 1)
Sheet1.PrintOut From:=1, To:=1, Copies:=Sheet1.Cells(1, 12).Value ' chon so ban can in ra tai $L$1
End If
Next
End With
End If
Application.ScreenUpdating = True
End Sub

Vẫn chưa in được theo đúng yêu cầu từ số tt đến số tt (có ngắt quãng)
Còn vấn đề tạo Form in giống "TVEXCEL02" của thầy phamduylong thì khó quá
Các Bạn có thể giúp tôi in theo tham chiếu cột O bên sheet2 được không. Như file đính kèm lần gửi trước.