درج تاریخ با زدن کلید Enter

[khorasan66]

با سلام خدمت اساتید گرامی
احتیاج به دستوری دارم که هر زمان ، فقط در ستون B اطلاعاتی را درج نمودم سیستم به صورت خودکار در ردیف مشابه در ستون H تاریخ جلالی درج این مطلب را ثبت نماید .

ضمنا Add-ins Persian function نصب می باشد .
تشکر از زحمات تمامی دوستان

[khorasan66]

RE: درج تاریخ با زدن کلید Enter

جهت انجام این امر میشود با نوشتن اين کد در زير روال Worksheet_Calculate به مقصود رسید


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Column = 1 And Selection.Count = 1 Then

If Selection.Offset(-1, 0) <> "" And Selection = "" Then

Selection.Offset(-1, 10).Select
Application.Run "InsertJalaliDate"
Selection.Offset(0, -9).Select

End If
End If
End Sub