ثابت بودن فرمول در یک سطر و ستون با شرط تاریخ

[rezayavar]

ایراد اصلی کار در تابع J_TODAY هستش که مثل "تابع تاریخ روز" در اکسل، تاریخ روز رو میده ولی وقتی میبندید و فرداش باز می کنید آپدیت میشه (همونطور که خودتون گفتید)...!
یه روشش این میشه که ضمیمه کردم...
در بخش برنامه نویسی اگه مطرح کنید بهتون گزینه های بیشتر و بهتری پیشنهاد میشه!
با سپاس

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo errhandler
todaydate = Sheet14.Range("c9")
Set c = Sheet3.Range("f:f").Find(todaydate, LookIn:=xlValues, MatchCase:=True)
c.Offset(, 3).Resize(, 2).Copy
c.Offset(, 3).Resize(, 2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
If Me.Saved = False Then Me.Save
errhandler:
Exit Sub
End Sub

سلام
ضمن تشکر و عذرخواهی از مطرح کردن سوال در این بخش خدمت شما عرض کنم سوال خودم رو به طریق دیگری مطرح میکنم :
جند شیت داریم که کلید این شیت ها تاریخ روز است در شیت saham جزئیات سهم است و شیت sabad هم اخرین تغییرات سهم و بالاخره در شیت " قیمت فروش" اخرین تغییرات که ساعتی از روز است میخواد ثبت بشه برای بایگانی یا ذیحسابی من تاریخ رو مد نظر گرفتم ولی همانطور که قبلا توصیح دادم تاریخ که تغییر میکنه سلولهایی که درست پر شدن بهم میریزه میشه بفرمائید با کدوم تابع میشه این عمل رو انجام داد که من بتونم در لحظه اخرین تغییرات رو داشته باشم شاید توضیحات من جامع نیست ویا اینکه روشم اشتباه است اگه مبهم است بفرمائید اصلاح کنم.

[rezayavar]

سلام عزیزان برای موضوع مطرح شده جوابی هست ؟