[حل شده] اصلاح کد ثبت

[bagheri65]

سلا دوستان
این متن بله و خیر رو میخواستم جدا قبل از این کد قرار بگیره
یعنی اول سوال بپرسه بله یا خیر
بعد تو مرحله بعد در هر صورت وارد کد ثبت بشه
اگرم خیر بود باز وارد کد ثبت بشه
فقط میخوام کلمه بله یا خیر در هر صورت در سلول R16 قرار بگیره قبل از عملیات ثبت
ممنون


Sub Copy2list()
Dim a
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, "ثبت انجام شد"
Range("R16")="بله"
ElseIf a = vbNo Then
MsgBox "عمليات ثبت انجام نشد", vbOKOnly + vbCritical, "ثبت انجام نشد"
Range("R16")="خیر"
Exit Sub
End If






End Sub

[kazamie]

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




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


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

[bagheri65]

سلام
خیلی ممنونم از راهنمایی شما عالی بود
فقط برای ثبت هم سوال پرسیده شه
که ایا تمایل به ثبت اطلاعات دارید بله/خیر

[kazamie]

سلام
خیلی ممنونم از راهنمایی شما عالی بود
فقط برای ثبت هم سوال پرسیده شه
که ایا تمایل به ثبت اطلاعات دارید بله/خیر

سلام

[FONT=Tahoma]Sub Copy2list()
Dim a
a = MsgBox("آيا ميخواهيد اطاعات را در ليست ذخيره کنيد؟", vbYesNoCancel + vbInformation, "عمليات ثبت اطلاعات")
If a = vbYes Then
Range("R16")="بله"
ElseIf a = vbNo Then
Range("R16")="خیر"
End if
[/FONT][FONT=Tahoma]b = MsgBox("آيا تمایل به ثبت اطلاعات دارید؟", vbYesNoCancel + vbInformation, "عمليات ثبت اطلاعات")
[/FONT][FONT=Tahoma] If b = vbYes Then[/FONT]
[FONT=Tahoma] X = Sheets("Ghardad").Range("L1").Value




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


Sheets("List").Cells(X, 1).PasteSpecial xlPasteValues
MsgBox "عمليات ثبت با موفقيت انجام شد", vbOKOnly, "ثبت انجام شد"
[/FONT][FONT=Tahoma]ElseIf b= vbNo Then
exit sub
end if[/FONT][FONT=Tahoma]
End sub[/FONT]