محمد عبدالله المسعودي

اذا كان الغرض من السؤال بان يظهر الاسم كاملا لنتمكن من قراءته ومعرفته كاملا بامكانك من تنسيق الخلايا ونختار "احتواء مناسب " دون المساس بعرض العمود او اخفاء عمود اخر تحياتي

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

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

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

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

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

الاخ ياسر العربي عمل روعة . جزاكم الله خيرا

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

وفقكم الله وبارك بكم

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

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

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

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

السلام عليكم اساتذتي الكرام تعديل بسيط يحفظكم الله الكودين لايعملان اذا كانت الاعداد تاتي بالمعادلات تغيير الاحصاء يكون من A27:A4 وليس B استطعت ان اغير كود الاستاذ سليم حاصبيا جزاه الله خيرا ويعمل بشكل ممتاز Private Sub Worksheet_Change(ByVal Target As Range) 'الاستاذ سليم حاصبيا If Target.Column <> 1 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("a" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [f1] = t + 1 End Sub لكن لم استطع تغيير كود الاستاذ ياسر العربي جزاه الله خيرا ليعمل على العمود الاول A ارجوالتدخل من الاستاذ ياسر العربي جزاه الله خيرا او احد الاساتذة الكرام لتغيير عمود الاحصاء وفق الله الجميع لما فيه الخير والمحبة

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

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

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

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

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

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

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

جزاكم الله خيرا

السلام عليكم شكرا للاستاذ ياسر جزاه الله خيرا اليك اخي تكملة الاحصائية تحياتي احصائيةالمواد.rar

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

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