پرسش ایجاد متن آماده در مسیج باکس

[bagheri65]

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

مثلا:
سلول 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 Sub

[bagheri65]

سلام دوستان
کستی نیست کمک کنه؟!!!
فقتط میخوام در کنار این کدها یک کد مسیج باکس ایجاد بشه
بصورت بله یا خیر
که با انتخاب هر کدام از گذینه ها بله یا خیر
متن انتخابی در سلول r16 ثبت بشه مثلا بله یا خیر
اگه شرطی هم بشه خوبه مثلا با انخاب بله تاریخ و ساعت ثبت بشه و خیر هم متن انتخابی

[میثم مقدم نیا]

سلام
یک فایل نمونه قرار بدید تا بهتر بتونیم راهنمایان کنیم