پرسش اصلاح کد

[bagheri65]

سلام دوستان با کمک شما به این کد رسیدم
اما یه مشکلی دارم
اونم اینه که اگه تو مرحله اول کد بله رو انتخاب کنم وارد قسمت دوم کد میشه
و اگه خیر رو انتخاب کنم به مرحله دوم کد وارد نمیشه
من میخوام در هر صورت تو قسمت کد اجرا بشه
یعنی تو بخش اول اگه خیر شد کارشو انجام بده و کد دوم رو بخونه


Sub Copy2list()
Dim a
a = MsgBox("آيا ميخواهيد چاپ انجام شود؟", vbYesNoCancel + vbInformation, "تاييد")
If a = vbYes Then
Range("R16") = "بله"
Sheets("chap").Select

MsgBox "عمليات چاپ با موفقيت انجام شد", vbOKOnly, "چاپ انجام شد"
ElseIf a = vbNo Then
MsgBox "عمليات چاپ نشدند", vbOKOnly + vbCritical, "چاپ انجام نشد"
Range("R16") = "خير"
Exit Sub


End If


a = MsgBox("آيا ميخواهيد اطاعات را در ليست ذخيره کنيد؟", vbYesNoCancel + vbInformation, "عمليات ثبت اطلاعات")
If a = vbYes Then
X = Sheets("Ghardad").Range("L1").Value


Sheets("Ghardad").Range("L1:Ad1").Copy

Sheets("List").Cells(X, 1).PasteSpecial xlPasteValues
MsgBox "عمليات ثبت با موفقيت انجام شد", vbOKOnly, "ثبت انجام شد"
ElseIf a = vbNo Then

MsgBox "عمليات ثبت انجام نشد", vbOKOnly + vbCritical, "ثبت انجام نشد"
Exit Sub
End If





End Sub

[kazamie]

سلام، Exit sub را از قسمت اول کد حذف کنید