عبد الله السعيد
كود الأستاذ سليم يعمل بكل كفاءة وليس هناك داعى لكل هذا فقط عليك تغيير هذا السطر بالكود
If R > 10000 Then R = 2
الى
If R > 2 Then R = 2
كله بسيط ان شاء الله .. اذا كنت تريد التاريخ بالخلية C1 على الرغم انك لم توضح ذلك سلفاً , فيصبح الكود هكذا
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim R
R = Range("A2", Range("C1").End(4)).Rows.Count + 2
If R > 2 Then R = 2
If Target.Address = Cells(R, 1).Address _
And Target.Cells.Count = 1 _
And Target <> vbNullString Then
Target.Offset(, 1) = _
IIf(Target.Offset(, 1) = vbNullString, _
Date, Target.Offset(, 1))
End If
Application.EnableEvents = True
End Sub
وشكراً