اريد عندما اكتب في خلية ما يقوم اكسل بكتابة تاريخ اليوم في الخلية التي بجانبها

[عبد الله قدور]

السلام عليكم

كل عام وانتم بخير

اريد عندما اكتب في خلية ما يقوم اكسل بكتابة تاريخ اليوم في الخلية التي بجانبها

[ابو غريب]

السلام عليكم ورحمة الله وبركاته

كل عام وحضراتكم بخير

اتفضل ياغالى لعله المطلوب

تاريخ اليوم.rar

[حمادة عمر]

ولاثراء الموضوع

ولاضافة التاريخ في خلايا العمود B بناءا علي الكتابة في العمود A

واضافة للكود الخاص بالاخ / ابو غريب

شاهد المرفق ... حيث عندما لايكون بالخلية شئ يتم مسح التاريخ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, 2).ClearContents
    Else
         With Target(1, 2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

جزاكم الله خيرا

 

 

 

اضافة تاريخ في خلايا عمود بناءا علي خلايا عمود آخر.rar

 

 

 

[صالح فرج]

شكرا رائع