Nhờ kiểm tra dùm để chạy in nhiều trên excel (2 người xem)

[anhhoang81vn]

Sub Print_print()
Dim p1, p2, i&
p1 = Sheet1.Range(“BE6”).Value
p2 = Sheet1.Range(“BE7”).Value

If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox(“So code phai la so.”, , “Thông báo”)
Next
Exit Sub
End If

If p1 > p2 Then
tb = MsgBox(“So code sau phai >= so code truoc.”, , “Thông báo”)
Next
Exit Sub
End If

If p1 < 1 Or p2 < 1 Then
tb = MsgBox(“So code phai >= 1.”, , “Thông báo”)
Next
Exit Sub
End If

If p1 <= p2 Then
For i = p1 To p2
Sheet1.Range(“M2”).Value = i
Sheet1.PrintOut
Next
End If
End Sub






Mình muốn in như mailing trong excel, đọc trên mạng hướng dẫn dán code này, nhưng chạy báo lỗi. Xin các bạn sửa dùm với.
Mình làm theo hướng dẫn từ trang này https://tinhocvanphong.edu.vn/mail-merge-tu-excel-sang-excel/
Thanks các bạn.

 

[haog]

Code của bạn thừa nhiều Next (không thấy For đâu). Còn thấy lỗi các lệnh MsgBox, nhưng không quan trọng. Có xem code của web "tin học văn phòng". Họ không có.
Nói chung in 1 dòng trong dữ liệu theo một mẫu nào đó là công việc đơn giản. Nếu thực sự cần thì đưa dữ liệu và mẫu sẽ in, tức là gửi file.