اخى الساهر
فعلت الاتى من قبل
فتحت صفحه الفيجيوال بيزكalt+11
ونسخت الكود الاتى :-
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells(1, 1) > 0 Then
Cells(13, 13) = Date
End
End If
End Sub
واغلقت الملف وفتحت ملف جديد وذهبت للفيجيوال بيزك ومن ادراج اخترت موديل ولصقت الكود والنتيجه لا شئ
فرجاء شرح الاستفاده ولوتطلع على ملفى السابق فى المشاركه 13فساكون ممتن لك وشاكر ففيه وضحت ما اريد
وشكرا