أيهاب ممدوح

للرفع

الاخوة الاعزاء ارجود دمج الكودين الكود الاول خاص ب فتح الملف مع تشغيل الجهاز Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Reg_Write3 Else Reg_Delete3 End If End Sub الكود الثاني خاص بتسجيل الوقت والتاريخ في العمود الرابع والخامس عند كتابه الاسم في العمود a Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 4) = Date Cells(Target.Row, 5) = Format(Now, "hh:mm:ss") End If End If End Sub ارجوا المساعده مرفق الملف حضور_ww_2.rar

للرفع

ارجوا المساعده

ارجوا ن حضرتك اغلاق جهازك وفتحه من جديد حتي تتمكن من رؤيته ؟؟ فلربما يوجد مشكله بالفعل فأنت محق من موضوع انه مدرج في قائمه البدايه لكن لا ادري

انا جرب الملف لا يعمل لا ادري من اين المشكله علي الرغم من ان الملف الاساسي للأستاذ يحياوي يعمل بكفأءة فلماذا هذا لا يعمل ؟؟؟؟؟؟؟؟؟؟؟؟ شكرا

اخي العزيز لا يعمل الملف عند بدايه تشغيل الجهاز ولا اعتقد ان تغير الامتداد له علاقه بالموضوع شكرا

اخي انا اقصد ملف موجود لدي ولا اقصد الملف المرفوع اولا مرفق للمشاهده حضور_ww.rar

اخي الكريم مرفق بالفعل checkbok1 ولا يعمل الكود

مرفق الملف كما طلبت اخي تشغيل البرنامج مع بدأ تشغيل النظام11.rar

الاخوة الاعزاء مرفق ملف حضور وانصراف و هو يعمل جيدا بمشاركه الاخ حمادة عمر والاخ وليد فتحي ولكن ادخلت عليه كود الاستاذ يحياوي وهو فتح الملف مجرد تشغيل الجهاز وقد جربت الكود منفصل يعمل بكفأة ولكن عند الاضافه علي الملف لا يعمل ارجوا تصحيح الخطأ وتوضيحه شكرا مرفق الملف حضور_ww.rar

للرفع

Up

الاخوة الاعزاء اريد عند فتح الجهاز يفتح الملف ولقد بحث في المنتدي ووجدت ملف الاستاذ يحياوي ونقلت الكود لكن لا يعمل ارجوا المساعده مرفق الملف حضور_ww.rar

شكرا جزيلا انه بالفعل المطلوب ارجوا طلب اخر وهو : عند فتح الجهاز يفتح تلقائيا بشاشه طلب تسجيل الحضور شكرا

الاخ الكريم نفس المشكله

الاخ الكريم وليد فتحي لقد وجدت مشكله وهي ان عند تسجيل الاسم بدون الفترة يعطي رساله تحذير ولكن يقوم بالترحيل وعند تسجيل الفترة بدون الاسم يعطي رساله تحذير ولكن يقوم بالترحيل ارجوا الحل !!! مرفق الملف معدل حضور.rar

شكرا اخي عبد الله

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 3) = Date End If End If End Sub الاخ العزيز لا تعمل معي بالشكل الصحيح مرفق الكود الذي اعمل به ارجوا تغير مكان التاريخ بالوقت فقط شكرا

شكرا اخي الكريم ممكن اعرف الطريقه لجعلها داله داخل كود شكرا

ارجوا من الاخوة الاعزاء معرفه داله لمعرفه الوقت الحالي فقط شكرا

شكرا لكم جميعا علي هذا المجهود الرائع ننتظر احد من الاخوة الافاضل المساعده شكرا

للرفع

الله ينور عليك تمام كده بس طلب الله يرضي عنك هل ممكن نستغني عن الساعه الموجوده بالجهاز ؟؟؟ حيث من السهل التلاعب في الساعه ؟؟ فهل من حل شكرا

الاخوة يوجد مشكله في الملف الأخير حضور 4 وهي عند الضغط علي حضور يقوم بالتسجيل مرتين مرة بدون الفترة ومرة بالفترة سواء صباحيه او مسائيه المشكله الأخرى هي ممكن ان يتم تسجيل الحضور بدون الاسم فارجوا ان لا يقبل الحضور بدون الفترة و الاسم معا شكرا