نجوم المشاركات

السلام عليكم عباقره المنتدى واخوتى فى الله وجميع اعضاء المنتدى حين كنت بصدد عمل برنامج تحليل المصروفات كان لدى تقرير بأسم الحساب ولكنى ما وددت ان افعله بطريقتى التقليديه عمل عمود مساعد ثم الترحيل بمعادله INDEX كان امامى طريقان وعليا ان اسلك احداهما معادلات الصفيف كما اطلق عليها من قبل انها معقده ولكنى رأيتها غير ذلك ، ولكنى حين قمت بالتنفيذ وجدتها كذلك ولكن الحمد لله توصلت للنتائج المرجوه ،،،،،،،،،،، استفدت كثيرا من شرح الاستاذ كيماس ( عبد الفتاح كيره ) ولكن ملفه لم يعمل معى لم يأتى بنتائج ايضا كشف حساب الموهبه الفذه العملاق ( يحي حسين ) رائع جدا قمت بتطويره وتطويعه كى يتناسب مع متطلباتى و اصل الى هدفى اما الطريق الثانى هو الكود ارجأته قليلا ،،،،،،،، لحين ان يأتى دوره معى فأنا لا احب ان ( اقفز السلم ) ارجو من اى عضو قادر على الاتصال بملك المعالادت ان يخبره انى اريد ان اطمئن عليه وعلى صحته وانتظر رده فى موضوعى هذا ( برنامج تحليل المصروفات ) http://www.officena.net/ib/index.php?showtopic=52644 فى النهايه اتيت لكم بهذا المرفق الرائع حين جولتى فى بعض المنتديات الاجنبيه اترككم مع الملف !!!!!!!!!!! ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} CtrlShiftEnterBookFinishedFile.rar

السلام عليكم ورحمة الله وبركاته الاخ الحبيب أبو اياد وبصراحة قرات الملف بسرعة وطبعا زي ما انت عارف اخوك.... النتيجة {لم افهم شئ} اضغط ctrl + sheft+ enter وروح على النقطة اللي بعديها ورغم اني وبصراحة لي تحفظ على ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} ولكن اضحك الله سنك كما اضحكتني وخليتني افكر طيب لو دست دلوقت ctrl + sheft+ enter بعد {( طبعا انا كداب )} الناتج هيكون ايه ههههههههه

الأستاذ /Samir السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب 2003 الملف المرفق3.rar

السلام عليكم ما قمت به خطأ ولم تنفذ شي مما قلته لم تلغي الشرط بل استبدلته بشرط خطأ وحذفت اسناد القيمة للمتغير id والمفروض ان تغير اسنادها لتاكست رقم التسجيل ====================================== هذا ما قصدته Sub EditAdd() Dim emptyRow As Long flag = False i = 0 id = UserForm1.TextBox8.Value emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub جرب

السلام عليكم الاخ الكريم / ايهاب ممدوح بارك الله فيك شاهد المرفق ... ان شاء الله به طلبك تقبل خالص تحياتي حضور2.rar

السلام عليكم heshamhafez_126 اهلا وسهلا بك 1- اذكرك بضرورة تغير اسم الظهور الى اللغه العربيه لسهولة التواصل معك 2- رجاء ارفق ملف لتتضح الفكره لنا

شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي (( وليد فتحي ، محمد أبو البراء )) ابداع وثم تميز

عليكم السلام ورحمة الله وبركاته جرب اخي الفاضل الكود التالي لاحد الاساتذة الافاضل بالمنتدي لا اتذكر بالتحديد لمين مع ملاحظة انه يجب تسمية النطاق الذي يوجد به معادلا باسم (myrange) عن طريق تظليلها واذا كانت بعيده عن بعضها استخدم مفتاح Ctrl Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديك الصلاحية للتعديل" End If End Sub

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

..... شاهدوا المرفق أخوكم عماد الحسامي

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... هو كثرة طلبه هذه الايام حيث طلبه كثيرا الاخ / محمد توبه ... والاخ / هاني مصطفي ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والجديد في هذا الموضوع هو انني سأقدم الاكواد اكواد بطريقة بسيطة وسهلة ولكنها طويله بعض الشئ ... ولكن تؤدي نفس الغرص ومرة اخري بأكواد خبورية خالصة ... للاستاذ العلامة القدير الخبير / عبد الله باقشير ... مع شرح الاكواد سطر سطر كما تعودنا وذلك بالطبع بعد اذن القدير الكبير ... ولكن لانه اول من علمنا تقديم المساعدات للغير ... لم استأذنه ولكن انتظر رأيه في الموضوع (((( الدرس الاول )))) نتعرف في هذا الدرس علي عمل بعض التنسيقات اللازمة لعمل الاكواد وخصوصا الاكواد الخبورية بتسمية التكستات بوكس ووضع بعض الاكواد المساعدة للاكواد في الدروس التالية قبل وضع الاكواد الاساسية والخاصة بالترحيل و ..... الخ وكالعادة دائما احب ان اختار اسهل الاكواد علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها حتي الاكواد الخبورية احببت اختيار اسهلها لما لها من دقة وكفاءة عاليه في تنفيذ المهمة المطلوبة وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد في ملفك الشخصي وسأقدم الشرح بطريقة الفيديو المباشر في المشاركة التالية ويمكنكم التحميل منها مع المرفقات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

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

لدي تقرير به مربع نص مذكرة ولكن النص الذي تم ادخاله بمربع النص هذا كبير من 500 محرف وعند تشغيل التقرير لا يظهر منه سوى 255 محرف هل من معالجة لهذا الامر حتى يظهر النص كاملا

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل اشرف النعاس على حسب فهمي لطلبك sub w_play () IF Range("A4").Value<>"" Then أكتب هنا الكود الذي تريد تنفيذه في حالة تحقق الشرط End if End sub

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة اقدم لكم اليوم جدول الضرب لاطفالنا يبدأ الجدول من ضرب 1 * 1 حتى ضرب 10 * 10 وليس بالترتيب لعدم الحفظ يمكن التعديل عليه مع تشجيع الطالب بكتابة الملف اجابة صحيحة للاجابة الصحيحة واجابة خاطئة للاجابة الخاطئة عند الخطأ يقوم الملف بكتابة الرقم الصحيح مع حساب النتيجة النهائية فى الجذء العلوى لعدد 100 سؤال اليكم الصورة اليكم الملف على الرابط التالى

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

السلام عليكم الاخ الحبيب / وليد فتحي بارك الله فيك جعلك الله متميز دائما ... وسباقا لفعل الخير تقبل خالص تحياتي

السلام عليكم ورحمة الله وبركاته بعد اذن أخي الحبيب الاستاذ حماده عمر اتفضل استاذ ايهاب هذه محاولة مني لعلها تفي بالغرض معك حضور3.rar

الأستاذ /Samir السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب وإن كان غير ذلك أرجو التوضيح. الملف اكسيل 2007 الملف المرفق2.rar

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

هل هذا ما تقصده بالنسبة للارقام هي عشوائية ولك ان تكتب ما يناسبك/بعد ازالة معادلة العشوائية الملف المرفق 1.rar

السلام عليكم تفضل التحكم بالأزرار3.rar

السلام عليكم و رحمة الله وبركاته اليك الحل اخي سمير (لتنفيذ المعادلة يجب ان يكون الجدول مفتوحاً اي بدون فلاتر) أعطال.rar

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

نسألك يا الله أن تكفينا ما أهمنا وما أغمنا وأن تجبر كسرنا , وأن تعظم أجرنا وأن تعيذنا من شرور أنفسنا , وأن ترحم موتانا وأن تلطف بمبتلانا , وأن ترحم غربتنا في الدنيا ومصرعنا عند الموت , ووقوفنا بين يديك وأن تقينا من ميتة السوء ومن يوم السوء وساعة السوء ,وليلة السوء وجار السوء وصاحب السوء , وأن تعيذنا من النفاق وسوء الأخلاق. اللهم إنا نسألك فرجاً عاجلاً للمسلمين مما هم فيه وملاقوه , اللهم اكشف كروبنا ونفّس همومنا واقضِ حاجاتنا , اللهم هبنا عطاءك ولا تكشف عنا غطاءك , ورضنا بقضائك , اللهم اغفر لجميع موتى المسلمين , اللهم اجعل قبورهم من الجنة رياضاً. اللهم إنهم عبيدك بنو عبيدك بنو إمائك , احتاجوا لرحمتك وأنت غني عن عذابهم , اللهم زد في حسناتهم وتجاوز عن سيئاتهم , فأنت أرحم بهم من أمهاتهم , لا إله غيرك , ولا معبود سواك , لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضا.

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

بعد إذن الأستاذي /ضاحي الغريب أستاذي إبراهيم انا جربت هذا الكود ونجح معي غير هذا الكود Application.Quit بهذا الكود ActiveWorkbook.Close False في Private Sub L_In_Click() Private Sub L_OUT_Click()

السلام عليكم ورحمة الله وبركاته الاخ الكريم / محمد محمود فهمت قصدك انت لديك قاعدة بيانات للعاملين وتريد تقرير كالشجرة بمعنى تقرير مرتبط برأس (جهة العمل) لتستخرج منها : 1-اسماء العاملين المتدربين - الدورات - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) 2- اسماء العاملين الغير المتدربين - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) انا قمت بعمل لك المطلوب لكــن عن طريق الاكسيل باستخدام البيفوت تابل ( وهو متوفر فى كل اكسيل ) تفضل المطلوب باستخدام الاكسيل * ملاحظه عند ادخال بيانات جديده فى شيت database عليك للذهاب الى data ثم عمل refresh all لتظهر فى التقرير المطلوب تقرير جهة العمل.rar

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

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

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

السلام عليكم ورحمة الله وبركاته احب اشكر اولا الاستاذ الحبيب والاخ العزيز الفاضل // وليد فتحي على الحلول المميزة كما اشكر الاستاذ الفاضل // أحمد أبو زيزو صاحب الشروحات البسيطة المفيدة وبعد اذنهم هذا العمل عبارة عن دمج الاكواد السابقة المميزة مع بعضها والذي تفضل بها الاخ الحبيب وليد فتحي ولهذا فسيكون الناتج كالتالي 1 ) يعطي خاصية الوقوف على الخلية المحمية 2 ) ثم اعطاء الرسالة التحذيرية 3 ) وعند الضغط على ok ينتقل الى الخلية المجاورة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, [a1:iv36536]) Is Nothing Then If Target.HasFormula Then MsgBox "عفوا ليس لديك الصلاحية للتعديل" If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End If End Sub ملحوظة : اذا كان الاكسيل لديكم اصدار اعلى من 2003 يمكن استبدال هذا الجزء في الكود [a1:iv36536] بهذا الجزء ليشمل جميع خلايا الورقة [a1:xfd1048576]

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب // وليد فتحي جزاك الله خيراً على سرعة تلبيتك المعهودة واستاذنك أخي الحبيب في اثرء الموضوع بهذا الحل =IF(B3+B4<1000;1000;IF(B3+A9<2000;B3+B4;2000)) خارج محصور بين عددين_w1.rar

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

السلام عليكم ورحمة الله أخي الكريم، في الحقيقة تجد في المنتدى الكثير والكثير من المواضيع المماثلة رغم ذلك قمت بالتعديل على الكود بما يناسب الطلب مع تعديلات تنسيقية على ورقة الشهادات... أخوك بن علية الملف المرفق : طباعة شهادات ابتدائى.rar

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

أستاذنا الفاضل / أبو محمد عباس السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على دعائك الطيب ولك بمثله أضعافاً مضاعفة والحمد لله أن وفقني لعمل المطلوب والحل اعجب حضرتك. لك كل التحية والتقدير.

الاسم : سليم حسن سنة الميلاد : 1961 م المهنة : مدرس ثانوي/ رياضيات التعليم : خريج جامعة موسكو /ميكانيك 1988 الحالة الاجتماعية :متاهل /صبيين وينت/ ابني الأكبر يخدم في الجيش اللبناني الجنسية :لبناني اعشق الاكسل و البرمجة/عندي اهتمام بالوورد وقمت بعمل بعض البرامج وبيعها " وإن شاء الله سوف أقدم كل ما أستطيع من إفادة للموقع بعرض بعض الأفكار تليفون موبايل : 71173602 email: salimhas@hotmail.com

تفضل أخى ماأردت تقبل تحياتى كاس مصر.rar

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

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

عليكم السلام ورحمة الله وبركاته الاخ الفاضل أو حبيبة يمكن ان تضع الكود التالي في الورقة التي بها المعادلات ولن يتم الوقوف على الخلية التي بها معادلات ستتخطاها وتقف على الخلية الفارغة اتمني ان يفيدك هذا بطلبك Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

أخي الفاضل تفضل الملف أرجو أن يفي الغرض كلمة المرور 123 سندات V.3.3.rar

بارك الله فيك اخي الكريم تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / حسام مصطفي بارك الله فيك وجعلني دائما عند حسن ظنك ومعك دائما باذن الله في اي استفسار او طلب في حدود علمي تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ابو يوسـف بارك الله فيك اسمك منور بالعربي ياراجل ... ايوه كده بالنسبة لهذا الطلب فعذرا لم اراه الا الآن اليك الكود التالي ... ولكن هناك بعض الملاحظات لطريقه عمله 1- قم بوضع اسماء ملفات المدارس الموجودة لديك والتي تريد تجميع بياناتها في ملف تجميع في العمود AA اسفل بعض والكود يعمل علي 110 ملف .... وان اردت زيادتهم ما عليك الا زيادة الرقم 110 في الكود الي الرقم الذي تريده 2- شاهد الملف وطريقه عمله واي شرح لاي جزء من الكود ... اخبرني ومعك دائما باذن الله 3- كما سبق ذكره يجب ان يكون ملف تجميع موجود في نفس فولدر المدارس 4- تم وضع مثال لعدد 5 مدارس من ملفاتك المرفقة Private Sub CommandButton1_Click() Dim I As Integer Dim File As String Dim LR As Long Set ws = Worksheets("ورقة1") Application.ScreenUpdating = False Application.DisplayAlerts = False '----------------------------- ws.Range("A11:Y10000").ClearContents For I = 1 To 110 If Cells(I, 27) = "" Then Exit For TextBox1.Value = Cells(I, 27).Value File = ActiveWorkbook.Path & "\" & TextBox1.Value Workbooks.Open File Sheets("اعمال سنة").Range("A11:Y1000").Copy '----------------------------- Windows("تجميع.xls").Activate ws.Select LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Select ws.Paste Range("a11").Select Application.ScreenUpdating = True Application.DisplayAlerts = True Next I Unload Me End Sub ارجو ان يفي بطلبك ... جرب واشعرنا بالنتائج واهلا وسهلا بك بيننا وسط اخوه لك في الله ( بالعربي ) ... هههه تقبل خالص تحياتي تجميع بيانات المدارس.rar

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / رائد

بالنسبة لتحديد شيت اعمال السنة اخي الكريم استبدل السطر التالي الموجود في الكود Range("A11:Y1000").Copy بهذا السطر .... لتحديد شيت ( اعمال سنة ) Sheets("اعمال سنة").Range("A11:Y1000").Copy وعذرا ع التأخر في الرد ... نظرا لانشغالي في العمل تقبل خالص تحياتي

السلام عليكم الاخ الكريم / baselnagar بارك الله فيك علي حسب فهمي لطلبك ... انك تريد تجميع البيانات الموجودة في ملفات المدارس من الكشوف في كشف واحد اسفل بعض في ملف تجميع وان كان كذلك ... شاهد المرفق التالي ( ولكن تم التنفيذ علي مدرستين فقط كمثال (( الحرية 1 - الحرية 2 )) حاولت تقديم ابسط كود ممكن لتنفيذ الفكرة ليمكن التعديل عليه بسهوله ... ارجو ان يتناسب مع طلبك قم بفتح ملف ( تجميع ) ثم اضغط علي زر ( تجميع البيانات ) وشاهد النتيجة ** ملحوظة : يجب ان يكون ملف تجميع في نفس الفولدر مع المدارس كما هو مرفق بالمرفقات تقبل خالص تحياتي شاهد المرفق المدارس.rar