Jump to content
أوفيسنا

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

03 Special Member
  • Content Count

    452
  • Joined

  • Last visited

Community Reputation

141 Excellent

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

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم جامعي
  • Interests
    استغفر الله ربي

Recent Profile Visitors

1,455 profile views
  1. احسنتم جزاكم الله خيرا استاذنا العزيز خيماوي معادلة روعة وفقكم الله
  2. السلام عليكم ورحمة الله وبركاته هل يمكن ان نجري مسلسل متتابع لكل فصل مثلا فصل أ من رقم 1 الى ان ينتهي الفصل ويبدا من رقم 1 للفصل ب الى ان ينتهي الفصل ويبدأ من رقم 1 الى ان ينتهي للفصل ج وهكذا لكم وافر الاحترام والتقدير تسلسل تلقائي بشرط الفصل.xlsx
  3. الاستاذ المبدع دائما وابدا سليم وفقكم الله شكرا لكم على استجابتكم السريعة اسميت كل مدى في الاوراق اسم وجمعتهم تحت مسمى واحد Array والعمل رائع Array101;Array102;Array103;Array104;Array105;Array106 لكم وافر احترامي وتقديري
  4. السلام عليكم الاستاذ الفاضل سليم حفظكم الباري عز وجل حدثت مشكلتين عند نقل الكود الى الملف الاصل اولا الكود ينقل بيانات الاوراق التي قبل الورقة الهدف اقصد على يمين الورقة الهدف. هل يمكن تحديد الاوراق المطلوبة فقط واستبعاد بقية الاوراق من النسخ؟ ثانيا وهي ان في الملف الاصل توجد بيانات تعريفية واحصاء للبيانات في كل ورقة من a1 الى h2 الكود يقوم باستدعاءها كذلك الا اذا كان السطر الذي يسبق العناوين فارغ . هل يمكن ان نحدد البيانات المراد نسخها من a4 فقط ونستثني ما فوقه ؟ هذا مجرد حاجة لضبط الكود ليتوافق مع عملي في الملف وانا اضفت صف واخفيته وجعلته فارغا لكن عليّ ان اغير
  5. الله يحفظكم اخي الاستاذ سليم المبدع تم اضافة السطر ويعمل بشكل رائع End If 'Mmax Next A.Cells(4, 1).Resize(t - 4).Value = _ Evaluate("row(1:" & t - 1 & ")") End If 'm End Sub وفقكم الله وانعم عليكم بالصحة والعافية
  6. احسنتم استاذ سليم وفقكم الله وحفظكم كود اكثر من رائع تقبلوا وافر احترامي وتقديري اردت تعديل بسيط بان يرحل البيانات من العمود b الى العمود b ويبقي التسلسل فارغ للعد بالمعادلات من 1 الى اخر صف او تعديل بالكود بان هو يجعل التسلسل مستمر من 1 الى اخر عدد به بيانات مثلا 300 او اكثر او اقل جزاكم الله خيرا
  7. الله يحفظكم اخي الاستاذ سليم رابط الموضوع الذي به الكود الماكرو في برنامج اخر ارسلته سابقا والكود المنشور هذا بعد حذف الفرز الموجود في كودكم السابق لنني لا احتاج الفرز بعد الترحيل لكن لم افلح في التغيير البيانات في الاوراق ورقة1 وورقة2وورقة3 وورقة 4 وورقة5 وورقة6 تنقل الى ورقة all دون فراغات ومدى كل ورقة 105 لكم كل الشكر والتقدير استاذنا العزيز استدعاء البيانات من اوراق عديدة الى ورقة واحدة.xlsx
  8. السلام عليكم ورحمة الله وبركاته ارجو التفضل بكود او معادلات لاستدعاء البيانات من اوراق متعددة الى ورقة واحدة متسلسلة تحت بعض دون فراغات وهذا كود للاستاذ الكبير سليم جزاه الله خيرا حاولت انفذه على الملف بعد التعديل لكن لم افلح وذلك لان الكود ينقل معرفات في نفس الورقة وفقكم الله وحفظكم من كل سوء 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
  9. الاستاذ العزيز سليم حاصبيا المبدع دائما وفقكم الله ورعاكم معادلة رائعة زادكم الله رزقا وعلما تحياتي ووافر احترامي
  10. السلام عليكم ورحمة الله وبركاته هل يمكن بالمعادلات ان نستدعي العناوين في جدول اذا كانت الخلية التي تحته بها ارقام مختلفة اقصد غير فارغة ونتجاوز الفراغات لاستدعاء العناوين تحت كل مرحلة عموديا بدون فراغات في جدول اخر وكما في المرفق جزاكم الله خيرا استدعاء بيانات.xlsx
  11. الاستاذ الكبير والمبدع سليم جزاكم الله خيرا حل ولا اروع فانتم اساتذتنا ومنكم تعلمنا الكثير ولازلنا زادكم الله علما وخيرا اخي الكريم تحياتي لكم
  12. السلام عليكم ورحمة الله وبركاته بعد اذن الاساتذة الكبار هذا حل بالدوال كما طلبت تحياتي لكم استخراج++ جدول (1).xlsx
  13. الاستاذ سليم المبدع دائما جزاكم الله خيرا انا اعتذر مرة ثانية والعمود عملته كشرح توضيحي لايصال الفكرة الكودان يعملان بشكل صحيح لكم وافر احترامي وتقديري
  14. الاستاذ سليم المحترم اعتذر عن الخطا شكرا لكم وجزاكم الله خيرا المطلوب ان يكون التوزيع محدد على الخلية H1 اذا كانت 4 يعني يتوزع البيانات على 4 ولا يتعداها لان فقط هؤلاء الاربعة لهم حق التدقيق في جميع البيانات ويمكن الزيادة الى اكثر من عشرة ويمكن اقل من 3 حسب حجم البيانات والتحكم بالاعداد كما ذكرت من الخلية H4. اما التوزيع كصفوف يعتمد على الخلية A1 يعني 30 لايتجاوز ولايقل عنها . بالاضافة هناك فرز قبل التوزيع حتى يكون التوزيع كما مطلوب وهو تفرز البيانات اولا في العمود E ومن ثم فرز حسب الاسم عمودD ومن ثم فرز حسب عمود Gمن الاكبر للاصغر بعدها ياتي كود التوزيع حفظكم الله
  15. السلام عليكم هذا الكود لاحد الاخوة في هذا المنتدى لم اتذكر اسمه جزاه الله خيرا يقوم بالفرز بثلاث شروط اولا ثم يوزع البيانات على عدد محدد المذكور في الخلية h1 لكن المشكلة انه يضيف الفرز باعداد كبيرة حسب المدى المذكور بالكود وانا اردت ان يقتصر التوزيع على الاعداد الفعلية الموجودة في الخلية a1 لان الاعداد متغيرة لكن كحد اعلى المدى 1000 فالكود يوزع ال 1000 جميعا هل يمكن التعديل على الكود بان يوزع فقط البيبانات الفعلية على العدد المذكور في الخلية a1كي تكون متقاربة ..ولكم وافر احترامي. Moustsfa_New.xlsm
×
×
  • Create New...