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

احسنتم استاذ سليم وفقكم الله وحفظكم كود اكثر من رائع تقبلوا وافر احترامي وتقديري اردت تعديل بسيط بان يرحل البيانات من العمود b الى العمود b ويبقي التسلسل فارغ للعد بالمعادلات من 1 الى اخر صف او تعديل بالكود بان هو يجعل التسلسل مستمر من 1 الى اخر عدد به بيانات مثلا 300 او اكثر او اقل جزاكم الله خيرا

الله يحفظكم اخي الاستاذ سليم رابط الموضوع الذي به الكود الماكرو في برنامج اخر ارسلته سابقا والكود المنشور هذا بعد حذف الفرز الموجود في كودكم السابق لنني لا احتاج الفرز بعد الترحيل لكن لم افلح في التغيير البيانات في الاوراق ورقة1 وورقة2وورقة3 وورقة 4 وورقة5 وورقة6 تنقل الى ورقة all دون فراغات ومدى كل ورقة 105 لكم كل الشكر والتقدير استاذنا العزيز استدعاء البيانات من اوراق عديدة الى ورقة واحدة.xlsx

السلام عليكم ورحمة الله وبركاته ارجو التفضل بكود او معادلات لاستدعاء البيانات من اوراق متعددة الى ورقة واحدة متسلسلة تحت بعض دون فراغات وهذا كود للاستاذ الكبير سليم جزاه الله خيرا حاولت انفذه على الملف بعد التعديل لكن لم افلح وذلك لان الكود ينقل معرفات في نفس الورقة وفقكم الله وحفظكم من كل سوء Option Explicit Sub join_data() Application.ScreenUpdating = False Dim My_rg As Range Dim m%: m = 6 Dim r% Dim ara Range("c6:H" & Rows.Count).ClearContents Set My_rg = Union(Range("R_G_1"), Range("R_G_2"), Range("R_G_3"), Range("R_G_4")) For Each ara In My_rg.Areas r = ara.Rows.Count Range("c" & m).Resize(r, 6).Value = ara.Value m = m + r Next Range("B1").Select Application.ScreenUpdating = True End Sub توزيع القديم تلاميذ مدرستنا2020 حسب المعدلات على الشعب.xlsm

الاستاذ العزيز سليم حاصبيا المبدع دائما وفقكم الله ورعاكم معادلة رائعة زادكم الله رزقا وعلما تحياتي ووافر احترامي

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

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

السلام عليكم ورحمة الله وبركاته بعد اذن الاساتذة الكبار هذا حل بالدوال كما طلبت تحياتي لكم استخراج++ جدول (1).xlsx

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

الاستاذ سليم المحترم اعتذر عن الخطا شكرا لكم وجزاكم الله خيرا المطلوب ان يكون التوزيع محدد على الخلية H1 اذا كانت 4 يعني يتوزع البيانات على 4 ولا يتعداها لان فقط هؤلاء الاربعة لهم حق التدقيق في جميع البيانات ويمكن الزيادة الى اكثر من عشرة ويمكن اقل من 3 حسب حجم البيانات والتحكم بالاعداد كما ذكرت من الخلية H4. اما التوزيع كصفوف يعتمد على الخلية A1 يعني 30 لايتجاوز ولايقل عنها . بالاضافة هناك فرز قبل التوزيع حتى يكون التوزيع كما مطلوب وهو تفرز البيانات اولا في العمود E ومن ثم فرز حسب الاسم عمودD ومن ثم فرز حسب عمود Gمن الاكبر للاصغر بعدها ياتي كود التوزيع حفظكم الله ورعاكم Moustsfa_New _TH.xlsm

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

احسنتم استاذ سليم المبدع كود اكثر من رائع زادكم الله علما ومعرفة لكم تحياتي

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

شكرا جزيلا استاذ سليم وفقكم الله وحفظكم من كل سوء الكود يظهر رسالة خطا ارفقتها ارجو ملاحظتها جزاكم الله خيرا

احسنتم جزاكم الله خيرا

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

لاحظ الفيديو اوتستخدم الخط Simplified Arabic Fixed

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

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

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

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

الله يبارك لكم في صحتكم اخي سليم لكم تحياتياستدعاء بيانات.xlsm

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

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

الاستاذ الكبير سليم حاصبيا وفقكم الله وانعم عليكم بالصحة والعافية كود وتعديل اكثر من رائع جعله الله سبحانه وتعالى في ميزان حسناتكم ولو غلبتك معي اود ان يكون الترحيل من السطر 11 لان قاعدة البيانات التي اعمل عليها كما قلت لكم سابقا جعلتها من السطر 11 انا غيرت في هذه الجزئية من الكود هل صحيح لان الان يعمل بشكل صحيح خوفا من المستقبل يكون خلل Set RgD = Source_sh.Range("D11:D" & lastRo_data1) ودعواتي لكم بدوام الموفقية والنجاح ترحيل البيانات حسب الحروف الهجائية .xlsb.xlsm

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