پر شدن خودکار سلولی دیگر

[omnia]

با سلام
من میخام در سلول B2 اگر چیزی نوشته شد ( هر چیزی چون فیلد شرح هست و ممکنه هر چیزی نوشته بشه) در فیلد A2 که بغلشه تاریخ خودکار درج بشه ( البته مایلم عبارت روبرو درج بشه ( ()dat= ) که خودکار تاریخ (شمسی) روز می اندازه ولی اگرم نشد همون تاریخ رو اتوماتیک بندازه بازم خوبه
با تشکر

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

[iranweld]

با سلام

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

در فایل پیوست ماژولهای تاریخ شمسی به فایل اضافه گردیده است

Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then
    
    On Error Resume Next
    
    If Target.Offset(, -1) = "" And Target.Address <> "$B$1" Then
    
    
Target.Offset(, -1) = J_TODAY(1)

Else

Target.Offset(, -1) = ""


End If

End If


End Sub