مسح البيانات من الخلية المقابلة

[أبو قاسم]

الموجود: عند الكتابة في الخلية o2  يظهر التاريخ والوقت  في الخلية l2

المطلوب : عند مسح الكتابة من الخلية o2    يمسح التاريخ في الخلية l2

Book1.rar

[سليم حاصبيا]

اليك هذا الماكرو

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address = "$O$2" Then
  If Target <> "" Then Range("i2") = Format(Now, "d/m/yyyy >>>hh:mm:ss") _
  Else Range("i2") = ""
 End If
 Application.EnableEvents = True

End Sub

 

[أبو قاسم]

ربنا يبارك فيك ويزيدك علما ويجعل ماتقوم بة في ميزان حسناتك ........... كود ممتاز ولك كل الشكر والتقدير ورمضان كريم