مصطفى محمود مصطفى

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

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

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

الاستاذ سليم حاصبيا وفقكم الله واعطاكم الصحة والعافية عمل اكثر من رائع جعله الله سبحانه وتعالى في موازين حسناتكم لكم تحياتي

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

وعليكم السلام ورحمة الله وبركاته اخي العزيز بما انك عضو جديد وهذه اول مشاركة لك وليس لديك معرفة بقوانين المنتدى اولا ارجو ان تقرا التعليمات على هذا الرابط https://www.officena.net/Tips/Questions.htm وكما تفضل الاخ احمد يجب ان ترفق ملف كي يتم العمل عليه اليك شاشة دخول اسم المستخدم salma وكلمة السر 5050 تحياتي لكم شاشة دخول شيت كنترول برقم سرى - سعيد بيرم.xlsm

وعليكم السلام لاحظ الملف المرفق ان شاء الله يفي بالغرض تحياتي لكم filter_between_two_dates_comboboxes ++xlsm.xlsm

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

الاخ سليم جزاكم الله خيرا الخطا لازال والتاريخ لم ينسق بعد اضافة التعديل علما وضعت التعديل قبل الاخيره With sh.Range("b7").Resize(m - 7, 12) .Borders.LineStyle = 1 .HorizontalAlignment = 1 .InsertIndent 1 With .Font .Bold = True .Size = 14 End With .Value = .Value End With End Sub ولم يتم تعديل التاريخ لكن رسالة الخطأ اختفت تحياتي لكم

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

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

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

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

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

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

السلام عليكم . هل يمكن بكود ترحيل الطلبة بشرط ( ناجح) ان يرحل لمرحلة اعلى في نفس الخلية في عمود المرحلة الحالية وحسب الجدول الموجود للتوضيح اقصد اذا كان بالاول وكانت النتيجة ناجح تغير الكتابة في نفس الخلية بدل الاول تغير الى الثاني وهكذا لبقية المراحل واذا كانت النتيجة معيد او له دور ثاني يبقى على حاله دون المساس او تغيير قيمة الخلية في عمود المرحلة الحالية. الترحيل لمرحلة اعلى بعد النجاح.xlsx

الله يبارك في علمكم وعملكم وفقكم الله واعطاكم الصحة والعافية استاذ سليم المبدع '.Columns(1).Formula = "=MAX($B$7:B7)+1" استاذ سليم جزاكم الله خيرا هذا السطر خاص بالمسلسل اوقفته لعدم حاجتي له هل هناك اجراء اخر لايقاف المسلسل ام ينتهي بايقاف هذا الكود لكم وافر احترامي

السلام عليكم استاذ سليم استاذنا الفاضل بارك الله في جهودكم وحفظكم من كل سوء بعد تنفيذ الكود يقوم بمسح تنسيق الجدول منC7:J24 هل بالامكان الغاء هذا المسح من الكود هو ليس مهما ولكن لجمالية تنفيذ الكود بشكل صحيح علما زدت عدد الناجحين كذلك يقوم بمسح تنسيقات اكثر اسفل اخر خلية مرحلة تحياتي لكم

السلام عليكم جزاكم الله خيرا استاذ سليم وفقكم الله ورعاكم

السلام عليكم هذا كود للاستاذ عبد الله باقشير جزاه الله خيرا وهو ترحيل الناجحين ومن له دور ثاني ويكتب المسلسل تلقائيا عند كل ترحيل وهنا اريد ان الغي المسلسل عند الترحيل وانما يقوم بترحيل البيانات المطلوبة فقط في الاعمدة والغاء كتابة المسلسل وكذلك به كود ترحيل الدور الثاني وهذا لا احتاجه في ملفي هذا اريد ان الغيه وحاولت ولكن يعطي رسالة خطا في كل مرة احذف الترحيل للدور الثاني من الكود ارجو تعديل الكود او اي كود اخر يقوم بنفس العمل دون المسلسل ولكم وافر احترامي ترحيل باختيار اعمدة معينة بدون المسلسل.xlsb

وعليكم السلام ضع هذا الكود في thisWorkbook Private Sub Workbook_Open() Sheets("الرئيسية").Select Range("a1").Select End Sub

الاستاذ حسين مامون حفظكم الله ورعاكم عمل ممتاز ورائع وفقكم الله

وعليكم السلام الاستاذ نبيل عبد الهادي وفقكم الله وحفظكم من كل سوء عمل رائع جعله الله في ميزان حسناتكم لكم وافر احترامي وتقديري

الملف بالمرفقات لكن بدون الماكرو الذي به المشكلة يجب وضع الكود مع الملف

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام وفقكم الله ورعاكم هل يمكن اخفاء جميع اوراق العمل عند فتح الملف لاول مرة والدخول الى ورقةdate وعند اختيار ابتدائي من الخلية m1 تظهر الاوراقja; a2;a3;a4 فقط وعند اختيار ثانوي تغلق جميع الاوراق وتظهر فقط الاوراق m2;m3 ;jm ولكم وافر الاحترام والتقدير اخفاء اوراق العمل بناء على معلومة في خلية.xlsx