Ali Mohamed Ali

هذا هو الكود المستخدم فى حدث الصفحة وموجود بالفعل داخل الملف Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString End If End If If Not Application.Intersect(Target, Range("H2:H1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = vbNullString End If End If End Sub

أظن أستاذ Cobone انك لم ترى الملف الأخير المرسل لك !!!!!!!

بارك الله فيكم جميعا وجزاكم الله كل خير

تفضل جدول سير قضايا.xlsm

احسنت أستاذ سليم كود ممتاز بارك الله فيك

احسنت استاذنا الكبير بارك الله فيك

يمكنك تسجيل يوم بيوم تحت بعض وهناك صفحة أخرى تسمى الإجمالى يتقوم بدورها بتجميع كل الأيام خلال الشهر لكل موظف بارك الله فيك

او يمكنك تجربة هذا الملف أيضا بريك.xlsx

وعليكم السلام - تم فصل الموضوع عن المشاركة الأخرى فعليك عند رفع مشاركة جديدة لابد ان تكون مستقلة ولا تقوم برفعها مع مشاركة أخرى مختلفة وان يكون العنوان معبر عن مضمون الطلب والمشاركة تفضل النقطة الإدارية.xlsx

أحسنت أستاذ سليم كود رائع جعله الله في ميزان حسناتك أخى الكريم dodo لا يمكنك التعلم الا اذا استجبت لكل هذه النصائح من اساتذتنا الكبار أمثال الأستاذ الكبير سليم حاصبيا له منا كل المحبة والإحترام

وعليكم السلام وكل عام وانتم بخير -نورت المنتدى اهلا بك جرب هذا تم ضبط وتعديل الملف , كل ما عليك اختيار كود الموظف من القائمة المنسدلة الموجودة بعمود كود الموظف ثم بعد ذلك كتابة الحضور والإنصراف وسيب الباقى على الإكسيل Attendance.xlsx

اخى الكريم بالنسبة لموضوع التاريخ وتثبيته ,هذا كان طلبك من البداية ان يكون التاريخ واليوم مثبتات ولا يتغيران مهما حدث اى تغيير تفضل جدول سير قضايا.xlsm

عليك باستخدام اخر ملف تم ارساله من قبلى وان لم يعمل أيضا فلابد من تحديث نسخة الإكسيل لديك فكما أرى بالصورة التي أرسلتها فانها نسخة غير اصلية او تحتاج الى تحديث وتفعيل

وعليكم السلام طالما انك لم تقم برفع ملف وشرح المطلوب بكل دقة فكان عليك استخدام خاصية البحث في المنتدى تفضل هذه الروابط قد تفيدك https://www.officena.net/ib/topic/54033-برنامج-الشيكات-مع-التقارير-الاصدار-الثاني-ضاحي-الغريب/?tab=comments#comment-340520 https://www.officena.net/ib/topic/45958-كيفيه-طباعة-الشيك-من-ذلك-النموذج/?tab=comments#comment-272771 وهذا نموذج أيضا بسيط وهذا أيضا برنامج جاهز لإدارة الشيكات bank_cheque_software.xls cheques_management_برنامج_ادارة_الشيكات.rar

وعليكم السلام ممكن تشوف الصورة

بارك الله فيك اخى الكريم وجزاك الله كل خير -ولك بمثل ما دعوت لى وزيادة بالتأكيد لا يؤثر عمل القائمة المنسدلة على الكود ولكن لا اعرف ما هي المشكلة لديك بالضبط فالملف يعمل معى تمام كما ترى بالصورة جدول سير قضايا.xlsm

اخى الكريم الملف بالفعل به كل ما تطلب جدول بيانات بلا عنوان1.xlsm

بعد اذن الأستاذ وجيه تفضل جدول بيانات بلا عنوان.xlsm

وعليكم السلام اخى الكريم -نورت المنتدى لابد من رفع الملف داخل المنتدى وليس برابط خارجى كما عليك جعل عنوان المشاركة دال على ما تطلب وتريد حتى يسهل البحث بعد ذلك

بارك الله فيك استاذ أحمد وجزاك الله كل خير

وضح من فضلك على الملف او عليك برفع صورة لما يحدث معك فالملف يعمل لدى بكل بساطة

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

أحسنت أستاذ خلف كود ممتاز جعله الله في ميزان حسناتك وكل عام وانتم بخير

وعليكم السلام تفضل Book2.xlsx

وعليكم السلام التنسيق الشرطى.xlsx