السلام عليكم 
 
اخي الحل موجود في مشاركتي السابقة و لكن في خليتين مختلفتين عما طلبت الان 
 
على العموم تم التعديل ارجو  ان يكون طلبك 
 
عفواً اخي حصل خطأ في الكود وتم تعديله  
 
ارجو اعادة التحميل 
 
وهذا هو الكود ويكتب في نفس الصفحة  
 
 
If Target.Cells(6, 2) > 0 Then
   Cells(3, 15) = Now
 
 
 شرح الكود: 
 
اذا كان الهدف  (6,2)  وهي تمثل الخلية B2 
 
اكبر من صفر  فقم بإدراج التاريخ  والوقت في الخلية (3,15 )  وهي تمثل الخلية O3 
 
 
 
 
تم  التعديل النهائي ان شاء الله 
_________________.rar