ایراد اصلی کار در تابع 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
علاقه مندی ها (Bookmarks)