كود إنصراف الموظفين

[ASUS2020]

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

بحثت من خلال الانترنت عن كود لعمل برنامج حضور وانصراف الموظفين ووجدت كود للاستاذ ( مجدي ) واستفدت منه كثيرا جزاه الله كل خير 

عملت صفحة بالاكسيل للحضور والانصراف وسويت الماكرو ووضعت به الاكواد ( كود الحضور شغال 100 % ) المشكلة في كود الإنصراف انه يضع انصراف الموظف في صف جديد وانا احتاج يكون الانصراف في نفس الصف الخاص بالموظف ( المشكلة فقط في كود الانصراف ياليت احد يعدله لي حاولت لكن ما زبط معي ). وايضا ابغى امنع تكرار البيانات ( يعني من الموظف يدخل الكود رقم 4 ويجي موظف اخر يدخل رقم 4 بالخطأ ما يقبل إضافته مرة أخرى ) وشكرا لكم ...

الملف في المرفقات

‫سجل حضور وانصراف.xlsm

[حسين مامون]

رما يكون في التعديل ما تقصد

 

_سجل حضور وانصراف.xlsm

[ASUS2020]

هذا ما اردته بالضبط الله يرفع قدرك ويبارك لك في صحتك ويزيدك من علمه وفضله

[ASUS2020]

استاذ حسين :

ظهرت مشكلة وهي اني لمن اخلي التكست فاضي يعطيني نفس رسالة الكود لمن يتكرر والمفروض يعطيني ( الرجاء إدخال الكود الخاص بك ) وكذلك لمن اكتب ( 0 ) ويظل مكتوب في التكست

ممكن مساعدة : حاولت اعدل التاريخ يكون عربي ما زبط معي ؟ كيف اعدله ... وكذلك الوقت ابغاه بدون ثوان .

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

السجل النهائي.xlsm

[حسين مامون]

استاذي الفاضل أحمد يوسف شكرا لك على تشحيعاتك لنا و تنبيهاتك لاعضاء المنتدى 

 

استاذ ASUS2020

انسخ هذا الجزء والصقه في الكود بزر "حضور" ويكون هو الاول 

If TextBox1 = "" Then MsgBox "المرجو ادخال الكود اولا": TextBox1.SetFocus: Exit Sub
'اذا كان  التكست بوكس1 فاضي اديني رسالة "المرجو ادخال الكود اولا" واخرج من ساب

 

[ASUS2020]

ألف شكر يا أستاذ حسين تم التعديل بنجاح