المساعده فى تعديل كود تاريخ

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

ارجو المساعده فى تعديل الكود المرفق 

الكود قائم على اساس وجود اى قيمة فى اى خليه فى العمود A  يتم وضع التاريخ فى الخليه المجاورة لها فى العمود B

اريد اضافه حالة اخرى للكود

وهو عند وضع ايضا اى قيمة فى اى خليه فى العمود N  يتم وضع التاريخ فى الخليه المجاورة لها فى العمود O

 

 

(Private Sub Worksheet_Change(ByVal Target As Range

Application.ScreenUpdating = False

LR = Range("A" & Rows.Count).End(xlUp).Row

If Target.Column <> 1 Then Exit Sub

("",("Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd

Application.ScreenUpdating = True

End Sub

Book1.rar

[إبراهيم ابوليله]

اخى ابوحنين

استبدل الكود بالكود الاتى

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
If Target.Column = 1 Then
Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "")
End If
LR1 = Range("n" & Rows.Count).End(xlUp).Row
If Target.Column = 14 Then
Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "")
End If
Application.ScreenUpdating = True

End Sub

تقبل تحياتى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم ابراهيم ابو ليلة

جزاك الله خيرا تم الامر بصورة حيده

سلمت يداك 

[إبراهيم ابوليله]

اخى ابو حنين

تقبل تحياتى