الشهابي

أخي العزيز / خليل أحمد خليل استعمل هذه المعادلة في التنسيق الشرطي =OR(IF($D6<>"";COUNTIF($D$6:$D$1000;$D6)>1)) وهذا الملف مع تطبيق المعادلة BOOK1_14.rar

أخي العزيز / samycalls أضف هذا الأسطر في بدايةالكود Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual ثم هذه الأسطر في نهاية الكود لإلغاء عمل الأسطر السابقة Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True ليصبح الكود أسرع وهي طريقة تتناسب مع أغلب الأكواد وشكل الكود سكون هكذا Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual r = ActiveCell.Row c = ActiveCell.Column If r > 11 And c = 9 Then Sheets("2").Range("d8:e8") = Sheets("2").Range("d1:e1").Formula Sheets("2").Range("d8:e8").AutoFill Destination:=Sheets("2").Range("d8:e65"), Type:=xlFillDefault Sheets("2").Range("C8:E65") = Sheets("2").Range("C8:E65").Value Sheets("2").Range("d77:e77") = Sheets("2").Range("d2:e2").Formula Sheets("2").Range("d77:e77").AutoFill Destination:=Sheets("2").Range("d77:e113"), Type:=xlFillDefault Sheets("2").Range("d113:e113").Copy Sheets("2").Range("d115").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Sheets("2").Range("d77:e113") = Sheets("2").Range("d77:e113").Value Sheets("2").Range("d115:e115").AutoFill Destination:=Sheets("2").Range("d115:e119"), Type:=xlFillDefault Sheets("2").Range("d115:e119") = Sheets("2").Range("d115:e119").Value Else End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

ما شاء الله عليك أستاذي العزيز/ ياسر خليل اجمتع اليسرين إن شاء الله نحلة المنتدى نجدك في كل مكان الله يحفظك من كل مكروه ويديم علينا وجودك بيننا ويبارك لك في كل أعمالك

أخي العزيز / ياسر في مشكلة في تحميل الملف

أخي العزيز / محمد عبد الصمد فعلا تم حذف مجلد الصور قلت ربما لا يحتاجه أخينا في ملفه فما عليك إلا أن تنشئ مجلد للصور وتضع فيه الصور وتسميها بالتسمية التي تريد وتقوم بربطها بالملف من خلال الكود بشرط أن تضع اسم مجلد الصور في الجزء التالي من كود اظهار الفورم وتحدد العمود الذي سوف يوضع فيه اسم الصورة الكود هو : Option Explicit '====================================================== '====================================================== ' kh_SetAddrss متغيرات ' ( اولا : اسم ورقة البيانات (افتراضي ' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي ''''''''''''''''''''''''''''''''''''''''''''''''' ' ( ثالثا : عمود التسلسل (اختياري ' اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم ' تلقائيا في عمود معين سجل عنوان راس العمود '====================================================== '====================================================== Sub kh_Show_UFormChang1() On Error GoTo 1 With UFormChang .kh_SetAddrss "ورقة1", "a1:o1" .kh_SetPicture "PH", "U1" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub .kh_SetPicture "PH", "U1" في الكود السابق اسم المجلد هو (PH) غير اسم المجلد حسب التسمية عندك بس لا تنس أن يكون في نفس مجلد الملف وهذا الملف أرفعه لك مع إضافة مجلد الصور أيضا لا تنس فك ضغط الملف بعد تحميله لأنك لو فتحته مباشرة من برنامج الضغط ستظهر الرسالة مرة أخرى الشيت.rar

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

أستاذي العزيز / بن علية حاجي العفو لم أر مشاركتك فأنتم سباقون للخير دائماً وأعمالكم دروس لنا نتعلم منها تقبل تحياتي واعتذاري حفظكم الله

أخي العزيز/ ابن الملك استعمل هذه المعادلة =SUMPRODUCT(--(Summary!B2:B1500=F7)*(Summary!G2:G1500="");(Summary!D2:D1500))-SUMPRODUCT(--(Summary!B2:B1500=F7)*(Summary!G2:G1500<>"");(Summary!D2:D1500))

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

أخي العزيز /goodlife المشاركة السابقة كانت بالغلط تداخلت علي المواضيع المهم هذا شرح لعملية تسجيل الكود للتصفية المتقدمة لملفك على فكرة هناك موضوع لأستاذنا الكبير ياسر خليل في شرح التصفية المتقدمة جزاه الله خير http://www.officena.net/ib/index.php?showtopic=59889 كذلك موضوعآخر لأستاذنا الكبير الغائب عنا المنتقل لمنتدى الأكسس (كيماس) سابقا عبد الفتاح كيرة حاليا http://www.officena.net/ib/index.php?showtopic=35385 تصفية متقدمة.rar

أخي العزيز /hamood.alharthi عفوا تم رفع الملف بالغلط في موضوع آخر هذا حل بالمعادلات بواسطة أعمدة مساعدة في كلا الورقتين تم تظليلهما باللون الأصفر إن شاء الله يلبي طلبك Staff Details1.rar

أخي العزيز / طارق زكريا حسين جاه الرسول جرب المرفق لعله المطلوب إن شاء الله كود للطباعة.rar

أخي العزيز/ amensrd هذا الملف به التعديل ليوم الجمعة مع طباعة الكشوفات لكل الأسماء أو لكشف واحد تحدد رقمه حسب تسلسله في القائمة إن شاء الله يكون هو المطلوب والعفو جدول دوام.rar

أخي العزيز/ amensrd هل تريد السطر الذي يكون اليوم فيه جمعة يختفي أو يبقى كم هو بس بيانات الدوام وساعات العمل تكون فارغة وبالنسبة للطباعة إن شاء الله

أخي العزيز /goodlife هذا حل بالمعادلات بواسطة أعمدة مساعدة في كلا الورقتين تم تظليلهما باللون الأصفر إن شاء الله يلبي طلبك Staff Details1.rar

هذا ملف الشرح شرح ملف نتيجة الصف.rar

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

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

أخي العزيز / hamood.alharthi وبعد إذن أستاذنا الكبير في عطائه وأخلاقه ياسر خليل يسر الله كل أموره هذا حل عن طريق كود في حدث الصفحة من خلال التصفية المتقدمة مع إضافة خلايا للمعيار ملونة باللون الأصفر وبما أنك عامل دمج للخلايا والدمج كما عرفنا من أساتذتنا بأنه عدو الأكواد جعلت استخراج البيانات في جدول آخر بجانب الجدول لديك إن شاء الله يلبي طلبك تحياتي وتقديري لكم ولأستاذنا ياسر خليل والعفو Staff Details.rar

أخي العزيز /goodlife هذا حل بالكود حسب طلبك عن طريق التصفية المتقدمة حيث يقوم الكود بعمليتين الأولى عمل قائمة بالرقم الوظيفية بدون تكرار الثانية هي استدعاء البيانات حسب الرقم الوظيفي وتم عمل كود في حدث الورقة الثانية بحيث أي تغير في الخلية (C7) يتم استدعاء البيانات إن شاء الله يلبي هذا طلبك مع تقديري واحترامي للأستاذين / سليم حصبا وأبو إيمان رفع الله قدرهما والعفو Book1 salim.rar

أخي العزيز/ amensrd وتقديري وإحترامي للأخ الأستاذ/ أبو إيمان حفظه الله هذا ملف قد أعددته أحببت أن أشارك لإثراء الموضوع أتمنى أن يحقق المطلوب حيث قمت أيضاً بعمل قوائم منسدلة لاختيار الشهر واختيار الأسماء والعفو تحياتي وتقديري Test2_2.rar

بالعكس عندي يرحل كافة الأسماء المكررة لاحظ الصورة بعد الترحيل

أعذرني لم أفهم المطلوب بشكل جيد ممكن توضح أكثر والعفو

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

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