محمد مصطفى ابو حمزة

ارجو الافادة باى افكار جديدة باسورد الصفحات 123 الملف عبارة عن خلاصة جهدكم انتم اعزكم الله ونفع بكم العباد والبلاد Book1.rar

اشكرك اخى جدا جدا بارك الله فيك

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

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

بارك الله لنا فيكم

تحفة بجد بجد

للرفع

هناك 98 مشاهدة وحوالى 30 تحميل للملفات ولكن ليس هناك رد واحد عموماً اكيد علماءنا مشغولين ربنا يباركلهم ويرعاهم

بارك الله فى حضلااتكم وسدد خطاكم وجزاكم خيرا عنا ممكن نقل صفحة الاحصاء من الملف الاول للثانى فى هذا الموضوع حيث نقلتها وغيرت ال ranges ولكنها لاتعمل وشكراً http://www.officena.net/ib/index.php?showtopic=38361

للرفع للاهمية فقط اريد اضافة ورقة الاحصاء من هذا الملف لذاك

للرفع

طيب ممكن حتى اضافة صفحة الاحصاء

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

للرفع

لو تسمحو تجربو بس وان شاء الله هتلاقو الطلب سهل

ممكن المساعدة فى هذا الطلب دام فضلكم http://www.officena.net/ib/index.php?showtopic=38361

فى الملف المرفق 2012 نسخة من الاصدار الثانى وانا اريد عند الضغط مرتين على اسم المدرس فى صفحة اساسية يظهر تقرير بالنواقص مثل المرفق الثانى دام فضلكم الباسورد للملف الاول tree4567 اسف ولكن ارجو الاسراع لان المدارس يوم الاحد القادم وشكرا مقدما وبارك الله فيكم 2012.rar الجدول الآلي تعديل 5.rar

بارك الله فيك

انا آسف بس هو فى امل ان الموضوع ده يخلص او حتى نلاقى نسخة كالملة من الاصدار التانى مضافاً اليها عمل العبقرى خبور قبل اخر الاسبوع لان المدارس الاسبوع القادم

بارك الله فيكم كلكم فانتم اهل فضل وعطاء ةاتمنى ان يولينا الاخ العبقرى خبور بعض وقته ولو حتى ليطمئننا عليه

أرجو أن تكون بخير حال

شكرا اخى احمد زمان وشرف لى ردك

شكراً للرد اخى يوسف انا لنتظر اى محاولة حتى لو لم تحقق كل الشروط

جربوا المرفق Increment Number.rar

ادخل هذا الكود فى شاشة كود الصفحة [quote][/quote] Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range For Each Cell In Target 'الخلية المحمية منتديات اوفيسنا If Cell.Address = "$D$5" Then If Range("B2") = "" Then Application.EnableEvents = False Cell = "" Application.EnableEvents = True End If End If Next Cell End Sub