ياسر خليل أبو البراء

عوداً حميداً أخي الكريم أبو حمادة ... الأخ الغالي أبو حنين قدم لنا كود في منتهى منتهى الجمال والروعة .. ومن روعته وجدت نفسي أقوم بوضع شرح لأسطره بارك الله فيك وجزاك الله كل خير على هذه الهدايا القيمة ، وكل عام وأنت بخير عدلت تعديل طفيف للغاية بحيث تكون مصفوفة النتائج تحتوي على النتائج المطلوبة فقط وهي تبدأ من U10:AB وإلى آخر صف عموماً إليكم الكود مع الشرح لجميع أسطر الكود على الرابط التالي رابط الكود مع الشرح من هنا

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

عسى أن يكون غياب أخونا أيسم إبراهيم عن المنتدى خير .. فوالله لقد اشتقنا لمشاركاته كل عام وأنتم بخير ، وجميع الأمة الإسلامية

وعليكم السلام أخي الكريم حسين55 يرجى تغيير رقم 55 للقبك إذا كان بالإمكان في المرفق وجدت مصنفين أحدهما باسم Aman والآخر باسم أصناف1 ، ولاحظت أن مصنف أصناف بامتداد xlsb ، والآخر بامتداد xlsx .. لذا : قم بوضع الكود التالي في مصنف "أصناف1" .. افتح المصنف أصناف1 ، وادخل لمحرر الأكواد ، وأدرج موديول جديد ، وضع الكود في الموديول الجديد ، ثم أغلق محرر الأكواد (ولا تغلق المصنف أصناف1) ثم اذهب للمصنف المسمى Aman وقم بفتحه .. الآن قم بالضغط على Alt + F8 لتنفيذ الكود (الإجراء الفرعي المسمى Compare_Two_Open_WBs) رابط الكود من هنا تقبل تحياتي

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

أخي أبو يوسف حاول أن تساعدنا بوضع التصميم المطلوب وضع شكل النتائج المتوقعة كدليل لنا .. حتى نستطيع تقديم المساعدة الملف ملفك والتصميم والمخرجات تخصك (فقط حاول ألا تستخدم الخلايا المدمجة قدر الإمكان)

بسم الله ما شاء الله أعمال روعة تفوق الخيال .. وأراك قد بدأت تتكيف مع جميع الأنطمة سواء للويندوز أو الأوفيس بارك الله فيك أخي الغالي جعفر عند التجربة وجدت رسالة الخطأ التالية (ويندوز 7 32 بت أوفيس 2016 32 بت)

يمكنك تغيير مسار الحفظ من هذا السطر أخي زياد777 (مش هنساك) .SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "dd.MM.yy") & ".xlsx" يمكنك إزالة ThisWorkbook.Path ووضع مسارك المطلوب بين أقواس تنصيص .. مثال : "D:\Zeyad" حيث Zeyad هو اسم المجلد الموجود على البارتشن D

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

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

أخي الكريم سمسم إليك حسابي على الفيس بوك yakh777@yahoo.com لمعرفة التفاصيل بخصوص الكتاب وكيفية الشراء تقبل تحياتي

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

يمكن تعديل الأكواد بما يتلائم مع كلا النظامين ليعمل على كلاهما .. ولكن الأمر يحتاج لبحث لمعرفة الدوال الخاصة بـ API البديلة لكلا من النظامين ..

كل عام وأنتم بخير إخواني وأحبابي في الله أعاده الله علينا باليمن والأمن والخير والبركات .. تقبل الله منا ومنكم صالح الأعمال

سأحاول العمل على طلبك غداً بإذن الله حيث أن الوقت متأخر الآن .. وسأغادر بعد قليل

حاول أن تقترح عنوان مناسب للموضوع وسأقوم إن شاء الله بتغييره .. أو اتركه كما هو لو تراه مناسباً كنت فقط أعبر عن وجهة نظري ، وقد أكون مخطيء فيها

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

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

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

أخي الكريم أبو يوسف النجار قدم لك الأخ زيزو العجوز كود وحل لمشكلتك ولكن نصيحة حاول ألا تستخدم الخلايا المدمجة قدر الإمكان .. لي سؤال : هل عدد الصفوف التي ستضع فيها البيانات ثابتة أقصد مثلا عدد 35 صف دائماً .. ماذا لو زاد عدد التلاميذ عن 35 طالب ..؟ وماذا لو كان أقل؟ لو كان أقل سيكون هناك عدد صفوف فارغة بين سجل البنين وسجل البنات .. وهل هذا مقبول شكلاً؟ وماذا عن الخلايا المدمجة هل هي ضرورية ؟ لأن الكود المقدم سيعطي رسائل خطأ إذا استخدمته على الملف المرفق بشكل مباشر .. وذلك بسبب الخلايا المدمجة .. أمور لابد من توضيحها ..

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك وأسرتك وكل عام وأنت بخير يرجى تغيير اسم الظهور للغة العربية ، والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى قم بتغيير النص الموجود في الخلية G22 إلى النص SV SKED ثم ضع المعادلة التالية في الخلية H22 =SUMPRODUCT((Table2[FLIGHT STATUS]=G22)*(Table2[GPU NO]<>"")) أرجو أن تفي بالغرض إن شاء المولى تقبل تحياتي

أنا أعمل الآن على نظام ويندوز 7 32 بت ويعمل بشكل ممتاز بارك الله فيك وجزاك الله كل خير

لم تحدد المشكلة ..أنا لم أعمل على 2003 منذ 2007 .. يرجى وضع صورة للمشكلة وتحديد السطر الذي به المشكلة لكي أحاول تعديل الكود بما يتلائم مع نسخة الأوفيس لديك يبدو أنني مخطيء وعند مراجعة المشاركة وجدت أنه لا مشكلة ولكن لا تحدث عملية الفلترة بشكل صحيح .. لا أدري بالضبط ما المشكلة في 2003 التي تمنع عملية الفلترة وقد رأيت بنفسك في الفيديو أنه يعمل لدي بشكل صحيح عموماً جرب الحل بالمعادلات الذي قدمه لنا أخونا محمد الدسوقي فهو حل جيد ويفي بالغرض ..إن شاء الله * خطرت لي فكرة ربما تفيد في الموضوع .. سجل بالماكرو عملية فلترة لنرى الاختلاف في أسطر الفلترة هنا وهنا !! لعل وعسى أو خيار آخر قم بتحديث الأوفيس لنسخة 2013 أو 2016 ... دعونا نواكب التطور (هذا شعاري منذ البداية)

بارك الله فيك أخي الكريم عادل وعوداً حميداً بعد طول غياب عن إخوانك جرب الكود التالي ..ضع الكود التالي في موديول .. قم بمسح النطاق بالكامل D1:I9 بما في ذلك العناوين .. ثم جرب الكود وأخبرني بالنتيجة رابط الكود من هنا

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