[حل شده] متن آماده در مسیج باکس

[bagheri65]

سلام دوستان
من فرمول مسیج باکس برای ثبت متن آماده در یک سلول مشخص رو میخواستم

مثلا:
سلول R16
در مسیج باکس پیغام بله یا خیر را در سلول R16 ثبت کند
یعنی در مسیج باکس بله انتخاب شده در سلول 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, "ثبت انجام شد"
ElseIf a = vbNo Then

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



End Subcod text.zipcod text.zip

[kazamie]

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

[bagheri65]

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

[bagheri65]

کد متن وضعیت چاپ در کنار کد بالا قرار بگیره