ثبت اطلاعات با يكبار تغير

[tohidi6405]

سلام
مي خواهم فرمولي در خانه a2 داشته باشم كه با درج كد پرسنلي يك شخص در a1 تاريخي كه خودم به صورت دستي يا اتوماتيك در بالاي صفحه گذاشته ام در خانه A2 ثبت شود و ثابت بماند . و با تغيير روزانه تاريخ تغيير نكند.
البته فرمول باشد نه ميانبر ;+ctrl
از هر روشي استفاده كرده ام نشده
لطفا راهنمايي بفرماييد
ممنون از همكاريتون

[khakzad]

سلام
این کد پرسنلی به تاریخ ربطه داره؟؟؟؟؟؟
اگه می خواید ثابت باشه خب چرا توی همون سل مورد نظر تایپ نمی کنید؟!
سوال مبهمه ی ذره

[kami_ttnazy]

من هم متوجه سوال نشدم
کمی مبهم هست
اگر تاریخ دستی وارد شود با تغییر روز تاریخ ثابت میماند که کافیست در سلول مورد نظر ان را لینک کنید
اما سوال اینجاست همان طور که مهندس خاکزاد بیان کردن چرا تاریخ را به صورت دستی در سلول وارد نمی کنید
به نظر بنده اگر نمونه فایل را اپلود کنید بهتر باشد.

[Alireza]

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

Private Sub cmdAppDate_Click() If ActiveCell.Column = 2 And ActiveCell.Row > 3 Then If ActiveCell.Value <> "" Then MsgBox "Óáæá ÌÇÑí ÈÇíÏ ÎÇáí ÈÇÔÏ", vbCritical, "ÎØÇ" Exit Sub End If ActiveCell.Value = ActiveSheet.Range("B1").Value Else MsgBox "ÔãÇ ÏÑ ÓÊæä ÊÇÑíÎ äíÓÊíÏ", vbCritical, "ÎØÇ" End IfEnd Sub