Paste Value به صورت اتوماتیک

[Arashman]

Paste Value به صورت اتوماتیک

سلام ایا امکانش هست که وقتی اطلاعاتی در هر یک از سلولهای ستون A وارد میشه زمان وارد کردن اون اطلاعات در ستون B همان ردیف وارد بشه. یعنی به صورت خودکار بتونم ببینم چه زمانی در هر سلول ستون A وارد شده.
با تشکر

[rasools13]

سلام کامل متوجه منظورتون نشدم اگر بیشتر و با فایل نمونه توضیح بدید بهتر جواب میگیرید

ولی یک راه حل میتونه این باشه که هر یک از سلول های ستون b رو برابر سلول متناظرش در ستون a قرار بدین

[Arashman]

سلام ببخشد با تاخیر جواب میدم
منظورم اینکه زمان وارد کردن هر دیتا در هر سلول ستون a در همون سلول ستون b نمایش داده بشه

[iranweld]

با سلام

از این ماکرو در قسمت کدنویسی شیت مورد نظر استفاده کنید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = Now
    
    
    
    End If
    
    End Sub 

[Arashman]

با سلام

از این ماکرو در قسمت کدنویسی شیت مورد نظر استفاده کنید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = Now
    
    
    
    End If
    
    End Sub 

[ATTACH=CONFIG]14673[/ATTACH]

واقعا سپلس از شما و MICRO هاا

[Arashman]

با سلام

از این ماکرو در قسمت کدنویسی شیت مورد نظر استفاده کنید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = Now
    
    
    
    End If
    
    End Sub 

[ATTACH=CONFIG]14673[/ATTACH]

فقط اشکالش اینکه هر وقت فایلو میبندی باز میکنی زمانا همه اپدیت میشه