Vì sao macro không lưu được

[doilangthang]

Em có 1 macro như sau

Sub Button1()
On Error GoTo baoloi
Dim dau As Integer, cuoi As Integer, pageEnd As Integer
Dim rc As Long, n As Integer
pageEnd = "12"
chon = Application.InputBox("Nhap so dam dau - so dam cuoi can in." & Chr(13) & _
"Vi du in dam 5 den dam 12 nhap: 5-12" & Chr(13) & Chr(13) & _
"(So trang khong lon hon " & pageEnd & ")", "In dam CVQL", , , , , , 2)
dau = Left(chon, InStr(1, chon, "-") - 1)
cuoi = Mid(chon, InStr(1, chon, "-") + 1)
If dau > cuoi Or dau > pageEnd Then GoTo baoloi
If cuoi > pageEnd Then cuoi = pageEnd
For n = dau To cuoi
Sheets("01").Select
Range("p2").Select
ActiveCell.FormulaR1C1 = 1
Range("q2").Select
ActiveCell.FormulaR1C1 = n
Sheets(Array("Danh muc", "01", "02", "03", "04", "05")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("01").Select
Range("P4").Select
Next
Exit Sub
baoloi:
MsgBox "Nhap in trang [ " & chon & " ] sai!", vbOKOnly, "In dam CVQL"
End Sub

và

Sub Button2()
On Error GoTo baoloi
Dim dau As Integer, cuoi As Integer, pageEnd As Integer
Dim rc As Long, n As Integer
pageEnd = "20"
chon = Application.InputBox("Nhap so dam dau - so dam cuoi can in." & Chr(13) & _
"Vi du in dam 5 den dam 12 nhap: 5-12" & Chr(13) & Chr(13) & _
"(So trang khong lon hon " & pageEnd & ")", "In dam CVQL", , , , , , 2)
dau = Left(chon, InStr(1, chon, "-") - 1)
cuoi = Mid(chon, InStr(1, chon, "-") + 1)
If dau > cuoi Or dau > pageEnd Then GoTo baoloi
If cuoi > pageEnd Then cuoi = pageEnd
For n = dau To cuoi
Sheets("01").Select
Range("p2").Select
ActiveCell.FormulaR1C1 = 2
Range("q2").Select
ActiveCell.FormulaR1C1 = n
Sheets(Array("Danh muc", "01", "02", "03", "04", "05")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("01").Select
Range("P4").Select
Next
Exit Sub
baoloi:
MsgBox "Nhap in trang [ " & chon & " ] sai!", vbOKOnly, "In dam CVQL"
End Sub

file em gửi kèm theo như sau:
View attachment BB nghiem thu noi bo dam.zip
Em muốn khi ấn nút button 1 nó sẽ thực hiện đoạn code số 1
và ấn button 2 nó sẽ thực hiện đoạn code số 2.
hihi em mới bắt đầu làm macro nên cũng hơi kém. Các bác thông cảm nhé^_^
Ahh em đã thử save macro nhưng vẫn không được. Các bác giúp em tìm ra nguyên nhân nhé. Thanks

 

[anhphuong]

Hai cái "Mặt Rỗ" này giống hệt nhau thì làm sao mà thực hiện?

 

[doilangthang]

Em vừa sửa lại rồi các bác ạ.
Hihi sorry sai sót quá