الشهابي

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

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

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

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

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

ما رايك أخي العزيز في التصفية المتقدمة فهي أفضل طريقة لذلك والله أعلم

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

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

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

أخي العزيزالأستاذ / مصطفى كامل وبعد حل الأستاذ / أبو عيد الرائع والذي من خلال حله فهمت المطلوب وإلا في البداية لم أفهم هذا حل آخر لإثراء الموضوع من خلال عمل قائمة مخصصة للترتيب حسب ورقة القوائم يتم إضافتها من خلال الكود التالي بحيث يمكن الزيادة عليها في السطر التالي : "كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس" Sub ترتيب() ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Add Key:=Range( _ "H11:H191"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس" _ , DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ابتدائى").Sort .SetRange Range("D11:T191") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub تقديري واحترامي لكم ولأستاذنا سعيد بيرم وللأستاذ القدير / أبو عيد والعفو بيانات المرحلة الابتدائية2010.rar

أخي العزيز / عادل حسين السلام عليكم ورحمة الله وبركاته هذا حل عن طريق أعمدة مساعدة وهي العمودين (AA) و (Z) قم بتغير المادة ليعطيك الحاصلين على النتيجة النهائية (100) فيها كما يمكنك تغير الدرجة بدلا من (100) ليعطيك الحاصلين على هذه الدرجة وما أعلى منها وأي تعديل أو طلب آخر ممكن إن شاء الله تحياتي وتقديري 11.rar

أخي العزيز/ عادل أبو زيد هذا كود باستعمال شروط التنسيق الشرطي من أجل الترحيل Sub trhel() Application.Calculation = xlManual Application.EnableEvents = False Application.ScreenUpdating = False Dim cl As Range Sheets("البضاعةالتىمرعليهافترةمعينة").Range("B6:I10000").Clear For Each cl In Sheets("دخول اقراص").Range("c4:c10000") If cl.Value > 1 And Date - cl > [c2] And cl.Offset(0, 107).Value = 0 Then cl.Offset(0, -1).Resize(1, 7).Copy Sheets("البضاعةالتىمرعليهافترةمعينة").Range("B" & Sheets("البضاعةالتىمرعليهافترةمعينة").[B1000].End(xlUp).Row + 1) End If Next Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlAutomatic End Sub أما بالنسبة للترحيل عن طريق اللون الذي يضعه التنسيق الشرطي في الخلية لم استطع ذلك ولا زلت اتظر تدخل أحد الإخوان للوصول لطرقة الترحيل عن طريقة نتيجة التنسيق الشرطي لأن الكود السابق يستخدم الشروط التي وضعتها في معادلة التنسيق الشرطي ويقوم بالترحيل لكن لو كانت المعادلة طويلة ومعقدة ربما يكون الأمر فيه شيء من الصعوبة وبالتالي فالترحيل عن طريق نتيجة التنسيق الشرطي سوف يكون مجدي ومن ناحية أخرى تكون فائدة وتعليما لنا ولو كان الأمر غير ممكن فضلا من خبرائنا الإجلاء الإفادة تحياتي وتقديري وهذا الملف المرفق ترحيل اعمده معينة بناء على لون خلية فى عمود معين.rar

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

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

أخي العزيز / البراء مصطفى تم عمل المطلوب إن شاء الله ولكن تم إلغاء الدمج في الخليتين (d2) و(d3) في ورقة الأرشيف لأن الدمج يؤثر على عمل الكود كما أنه لابد من إعادة تسمية الأوراق إذا أردت إضافة أوراق أخرى كما أفضل تغير ورقة الأرشيف من (Sheet10) إلى (Sheet2) وهو ما فعلته حتى يتم عمل الحلقة التكرارية بشكل صحيح كما تم عمل طلبك الأول في الموضوع http://www.officena.net/ib/index.php?s=67477b333a4b97f484d697d0e03b3835&showtopic=53396 على حسب ما فهمت كما أخبرتك في مشاركة سابقة إن شاء الله أكون وفقت فيما طلبت والعفو كشف الرخص جديد1.rar

أخي العزيز / البراء مصطفى هل تقصد عند إضافة بيانات في أي خلية في العمود (k) يتم إضافة المعادلة في الخلية المقابلة لها في العمود (f) وذا كانت فارغة لا يتم إضافة المعادلة هل هذا ما تقصد والعفو

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

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

أستاذنا القدير / عبد الله باقشير الإبداع عندك ليس له حدود يتوقف عندها شي رائع وجميل بارك الله فيك أستاذنا ورفع قدرك

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

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

(( يا أيتها النفس المطمئنة إرجعي إلى ربك راضية مرضية فأدخلي في عبادي وأدخلي جنتي)) صدق الله العظيم،،، عظم الله أجركم وأحسن عزاءكم وأسكن والدتكم الفردوس الأعلى في الجنة آمين الله آمين وخلفها الله عليكم بخلف صالح وجعلكم خير خلف لخير سلف

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

أخي العزيز / ريان أحمد يمكنك ذلك عن طريق التصفية المتقدمة لاحظ الملف Nouveau Microsoft Office Excel 97-2003 Worksheet.rar

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