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

[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