فضل حسين

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

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

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

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

الاستاذ الفاضل / j.k سلام الله عليك ورحمته وبركاته مرفق الملف وبه زرين للكود الزر الاول لاستاذى الكبير المايسترو ( عبدالله المجرب ) والزر الثانى لتلميذه فضل واى استفسار اسأل انت معاك فى المشاركة المايسترو سلام نقل راسبين 2.rar

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

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

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

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

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

للرفع

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

حبيب قلبى المايسترو هود ده المطلوب ياباشا هو ده المطلوب يامايسترو وهو ده المايسترو ياخلق هووووووووووووووووووووووووووووووووووووووه وحشتنى ياحبيبى ووحشنى اعمالك الرائعة . ونورت المنتدى والمنتندى نور بيك . الحمد لله رجوعك لنا بالسلام ياحبيبى وعمره مقبولة وذنب مغفور بأذن الله وربنا يخليك لنا وللمننتدى وللعلم وللاكسل . كالعادة استمتعت بالكود وبأفكاره الرائعة وده مش كود انا بعتبره لحن ولحن من الحان الزمن الجميل مثلك ياحبيبى. وبعد اذنك لى استفسار بسيط للتعلم . بالنسبة لهذا السطر من الكود If Target.Count > 1 Then Exit Sub سبق هذا السطر من الكود اعلان عن المتغير c1 وجعل نوعه range أى مدى هنا السؤال هل عندما قلت هذا السطر من الكود واستخدمت كلمة target.count >1 هل هنا قصد ال target هو المتغير c1 ولا ايه . السؤال بطريقة اخرى :- ماهو target المقصود عند عده او حصره وكان عدده اكثر من 1 ينهى او يخرج من البرنامج او الكود . فى انتظار ردك الجميل يامايستر وهو ده المايسترو ياخلق هووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووه رجع لنا بالسلامة ورجعت ايامه والحانه الجميلة

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

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

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

سيدى الفاضل / احمد زمان اولا انت السيد وانت الافضل ويكفى انكم لاتدخرون جهدا ولاوقتا ولاعلما فى سبيل نشر العلم وتقديم المساعدة والعون للاعضاء وللاخرين . بخصوص الملحوظة :- قم بفتح قائمة ادراج واختار اسم سوف يظهر لك مربع حوارى باسم ( الاسماء فى المصنف ) وسوف تجد فى هذا المربع الحوارى اسماء النطاقات المستخدمة داخل ملف الاكسل . ملحوظتى ان يوجد مثلا اسم النطاق criteria ومداها هو فى الورقة رقم 2 من i1:k2 ويوجد ايضا اسم نطاق سيادتك قمت بعمله يأخذ نفس النطاق وهو النطاق order مداها ايضا فى الورقة رقم 2 من i2:k2. وعلى نفس الحال اسم النطاق الذى سيادتك قمت بعمله واسمه input مداها نفس مدى اسم النطاق extract وملحوظتى او انا مااريده ان يكون موجود اسم نطاق واحد للمدى وليس اسمين لمدى واحد او بمعنى اخر اريد ان اكتفى بأسماء نطاقاتك فقط فى الملف ولااريد مثلا اسم النطاق criteria ولا اسم النطاق extract يارب اكون استطعت توصيل الفكرة شاكر لسيادتكم للمرة الثانية واشكر اهتمامكم ودعائى لكم وللجميع بالتوفيق

نجم الاكسل رجب جاويش الف شكر يانجم هاقول ايه غير انك نجم نتقابل فى مشاركات اخرى ان شاء الله

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

الاستاذ الفاضل / حسن الحاوى عمل رائع وخطير وعمل مثمن وفكرة كود جميلة ومفيدة وجديرة بكل الاحترام والتقدير . جزاك الله كل خير وبارك الله فيك ويضاف هذا العمل لميزان حسناتك اللهم امين . ولكن لى اكثر من ملحوظة ارجو اخذها فى الاعتبار والرد عليها 1 - الملحوظة الاولى ان عند الضغط على زر اضافة الدوائر للمرة الاولى باضافة الدوائر وفى مثالنا (22 دائرة ) وعند الضغط مرة ثانية على نفس الزر اضافة الدوائر يقوم باضافة رقم 22 على الرقم القديم وهو 22 اى يعطى رسالة بعدد 44 دائرة وهذا بالطبع غير صحيح . المطلوب عند الضغط للمرة الاولى على الزر اضافة دوائر لايجوز الضغط عليه مره ثانية الا بعد الضغط على زر حذف الدوائر لحل المشكلة السابقة . واقتراحى جعل الزر اضافة الدوائر غير فعال بعد الضغط علية المرة الاولى وجعل الزر حذف الدوائر هو الفعال والعكس فى حالة الضغط على زر حذف الدوائر . 2-بالنسبة لارتفاع الصف وعرض العمود غير مطابق لعرض ولاارتفاع الدائرة فى الملف 3- اريد من سيادتك شرح الارقام الموجودة فى هذا الامر ActiveSheet.Shapes.AddShape(msoShapeOval, -7354.5, 1.5, 54#, 50#).Select وشكرا

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

ساحر الاكسل ..... الخالدى باشا ايه المتعة والجمال والابداع ده ياساحر. اقول ايه ولا ايه . كل اعمالك سواء كانت بالمعادلات او بالاكواد تمتعنى امتاع غير عادى وتسعدنى اسعاد غير عادى . اعمال مميزة لشخصية مميزة عظيمة . اعمال رائعة ويكفينى ان انظر اليها فقط للاستمتاع واقول ايه العظمة دى وايه الروعة دى . واقول لنفسى والله يجب ان توضع هذه الاعمال فى موسوعة الاعمال الرائعة والعظيمة . وتكتب هذة الاعمال بحروف من نور ويكتب عليها اسم ساحر الاكسل الخالدى باشا بحروف من ذهب . ساحر الاكسل ............ الخالدى باشا والله انا سعيد جدا بهذة المشاركة ولااريد ان انهى هذة المشاركة وانهى سعادتى والمتعة بأعمالك وافتقدك ياساحر الاكسل . لذا انا قررت ان استئذن سيادتك وتسامحنى فى هذا الطلب ان تعطينى قدر اكثر من الاستمتاع بأعمالك . لاننى لااريد بأمانة ان انهى المشاركة معك لذلك ولزيادة فى العلم والاستمتاع ولمزيد من الجمال اريد من سيادتك الحل ولكن بالمعادلات شرح هذا الامر الموجود بالكود Range("A2:F5" & Range("A10000").End(xlUp).Row).ClearContents وكلى شوق ولهفة منتظر ردك على المشاركة على ان تسامحنى للمرة الثانية وتعذرنى على عدم قدرتى على انهاء المشاركة معك واستمتع دائما بأعمالك الظاهر ياحبيبى ياالخالدى باشا سحرت الاكسل بأعمالك الرائعة وسحرتنى انا ايضا بحبك احبك فى الله فضل

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

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

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