می شود از روشی برای ثبت تاریخ تغییرات استفاده کرد !؟

[sabertb]

من دو عدد Sheet دارم ، که هردو از نظر ظاهری کپی هم هستن ولی تو یکیش اطلاعات وارد میشود و توی دیگری می خواهم تاریخ وارد شدن اطلاعات در هر سلول مشابه اولی را ثبت کنه .

خودم این کار را انجام دادم ولی مشکل اینجاست هر روز تاریخ ها هم تغییر میکنه

چهطور تاریخ تغییرات سل ها رو در سل مشابه اش در sheet دیگر ثبت کنم بدون اینکه هر روز تغییر کنه ؟
یعنی امروز اطلاعات وارد شد تاریخ امروز در صفحه دوم ثبت بشود و فردا در سل دیگر اطلاعات وارد شد تاریخ فردا در سل مشابح در صفحه دوم ثبت بشود و تاریخ های قبلی هم ثابت بماند

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
احتمالا" اين کار را با فرمول انجام داده ايد، در اين صورت بايد بعد از اينکه تاريخ با فرمول ثبت مي شود مقدار تاريخ به جاي فرمول اوليه جايگزين شود.
براي اظهارنظر دقيق بايد اول بفهميم دقيقا" چکار کرده ايد تا بر همان مبني راه حل ارائه شود.
البته به طور کلي مي توانيد يک ماکرو ضبط کنيد که در انتهاي کار روزانه کل شيت دوم را انتخاب و کپي کرده و سپس با استفاده از paste special و گزينه value مقادير را جاي فرمولها بچسباند

[sabertb]

با ماکرو جواب نمیده چون من برای شیت های خیلی خیلی زیادی اینرو می خوام که تعداد سطر و ستون های هر کدومشون متفاوت است.
دنبال یه فرمول یا کد ویژوال هستم که یه بار وقتی سلول مورد نظر درونش چیزی وارد شد تو شیت دومی که لینک هست به اون تاریخ وارد شدن این اطلاعات را در سلول مشابه وارد کند. و فرداش تغییر نکند. فکر نکنم راهی داشته باشه :{؟
آخرش مجبور میشم یه برنامه نویس برای شرکت استخدام کنم

[~M*E*H*D*I~]

کد زیر رو تو شیتی که اطلاعات وارد میشه بنویس ببین منظورت همینه

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
With Target
If Not .Value = "" Then
c = Target.Address
Sheet2.Range(c) = Format(Now, "dd mmm yyyy hh:mm:ss")
End If
End With
ws_exit:
Application.EnableEvents = True
End Sub 

[sabertb]

کد زیر رو تو شیتی که اطلاعات وارد میشه بنویس ببین منظورت همینه

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
With Target
If Not .Value = "" Then
c = Target.Address
Sheet2.Range(c) = Format(Now, "dd mmm yyyy hh:mm:ss")
End If
End With
ws_exit:
Application.EnableEvents = True
End Sub 

ممنون کار این کد چی هست ؟

[mokaram]

دنبال یه فرمول یا کد ویژوال هستم که یه بار وقتی سلول مورد نظر درونش چیزی وارد شد تو شیت دومی که لینک هست به اون تاریخ وارد شدن این اطلاعات را در سلول مشابه وارد کند. و فرداش تغییر نکند. فکر نکنم راهی داشته باشه :{؟

همین مطلبی که فرمودین اجرا می کنه