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

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

بارك الله فيك وجزاك الله كل خير على التوضيح ... وإن كان الموضوع قريب من السابق ...إذاً التغير فقط في مرجع الخلايا التي تتم مراقبتها

معلمي القدير عمر الحسيني لا أعترض بشكل كامل على الكود إنما لاحظت ملحوظة بسيطة جداً وأحببت أن أنوه لها فقط الكود يعمل في الملف الذي أرفقه أخونا صلاح بشكل ممتاز .. هذا يرجع لهيكلة الملف حيث أن النطاق يحتوي على معادلات .. جرب الملف المرفق التالي حولت المعادلات إلى قيم ثابتة وزودت البيانات في عمود الصف الخامس ..جرب بنفسك لترى ما أتحدث عنه .. ثم إنه من المفترض أن نتناقش في الحلول المقدمة لا أن نرى ذلك اعتراض (وأعتذر إليك إذا كان ذلك يضايقك وأعدك ألا أعيد الكرة وألا أعترض مرة أخرى) جرب الملف المرفق بعد تحويل النطاق من معادلات إلى قيم ثابتة ووزيادة بعض البيانات ** أعتذر للأخ الكريم أبو عيد حيث أنني لم أنتبه أن الحل المقدم من قبله ولم ألحظ إلا الآن ، ربما يجب أن أستشير الطبيب لأني عيني بدأت تؤلمني بشدة ولم أعد أرى بشكل جيد XX.rar

أعتقد الموضوع مكرر يا أبو عيد .. كان من الممكن أن تضع رابط الموضوع الذي فيه نفس الملف تقريباً أم أن الملف مختلف ، وأنا لم ألتفت لذلك

وجزيت خيراً أخي الكريم أبو سلمان ببساطة يوضع سطر لفك الحماية في بداية الكود وفي نهاية الكود يوضع سطر لوضع الحماية مرة أخرى Activesheet.Unprotect 123 هذا السطرلفك الحماية بفرض أن كلمة السر 123 .... لإرجاع الحماية ستستخدم نفس السطر بالضبط وتحذف منه فقط حرفين Un ... أرجو أن يفي هذا بالغرض

بارك الله فيك أخي الكريم محمد إليك السطر التالي يفي بالغرض (والعرب بردو عندهم إمكانيات) Sub Test() Cells.Replace What:=Chr(10), Replacement:="" End Sub

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

وجزيت خيراً بمثل ما دعوت لنا يا حاوي وبعدين فينك بقالك فترة مختفي عن الأنظار ..الفيس واخدك مننا

أخي الكريم قم بالإطلاع على الموضوع التالي وإن شاء الله يفيدك من هنا

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

بارك الله فيك أخي الحبيب سليم تعجبني الحلول البسيطة ... والرائعة في نفس الوقت

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

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

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

الحمد لله أن تم المطلوب على خير أخي الكريم حسين55 ما تغير الرقم وخليه لقب .. عشان نقفشك ونبلغ عنك

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

يمكنك أن تقوم بعملية فلترة للتاريخ ولكن رجاءً ضع بيانات في الملف المرفق فيما لا يقل عن 15 أو 20 صف للعمل عليها ولتجربة الكود اللازم .. وسؤال هل هناك شروط أخرى غير التاريخ الموجود في الخلية B3؟؟ وهل تريد إزالة الفلترة بعد الطباعة أم تريد الفلترة فقط ... وزر الطباعة سيكون مخصص له زر آخر؟

الحمد لله الذي يسر لك الأمور ووجدت ضالتك وأهلا بك في المنتدى ونورت بين إخوانك .. وإن شاء الله تجد ما يسرك في المنتدى تقبل تحياتي

أخي الكريم ابن بنها هوناً علينا .. أعتذر عن الخطأ الذي بدر مني ، فقد رأيت الأرقام في مشاركتك بجوار كلمة Order .. وعلى هذا الأساس قمت بالرد (العتب على النظر !!) بالفعل لديك حق ، يمكن استخدام الرقم 1 بدلاً من كلمة xlAscending ، والرقم 2 بدلاً من xlDesciending ... أي أن كلاهما يؤدي نفس الغرض بارك الله فيك وجزيت خيراً على الإضافة

وعليكم السلام ورحمة الله وبركاته مشكور على كلماتك الطيبة ودعائك الطيب يا خير الايمان والحمد لله أن تم المطلوب على خير

الأخ أبو حنين الموضوع من 20 / 7 ولم تتم الاستجابة بطلب رفع الملف حيث أنه غير موجود لو كنت قمت بطرح موضوع آخر بنفس الطلب فيرجى وضع رابط الموضوع الآخر لحذف هذا الموضوع لئلا تتكرر الموضوعات بدون داعي

الأخ محمد ربما يفيدك الملف التالي إلى حين إرفاق ملفك الأصلي ولكن الفكرة واحدة حيث يتم كتابة التاريخين ، وإذا كان تاريخ واحد يكتب التاريخ في الخليتين ...ثم يتم جلب البيانات وإعداد التقرير Report Data Between Two Dates.rar

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

حلول جميلة ورائعة ..حل بالكود في حدث فتح المصنف يقوم بتسمية النطاقات بما يتماشى مع البيانات الموجودة .. وإن كانت هناك مشكلة في حالة أن الصف الأخير ليس موحد End_Row حيث أن الاعتماد على العمودAI ، وفي حالة كانت البيانات في الأعمدة غير متساوية أقصد لو الصف الأخير في الـ AI يساوي 12 وفي بقية الأعمدة يساوي 18 .. ستحدث مشكلة من نوعٍ ما ولن تكون القوائم الفرعية مضبوطة بنسبة كبيرة حل الأخ سليم جميل ورائع ، ولكنه استعان بصف مساعد للحصول على عدد العناصر المطلوبة ، وتم استخدام الدالة Offset ، وقد سمعت في كثير من المنتديات أنها دالة رغم فوائدها إلا أن لها عيوب خصوصاً مع كثرة استخدامها .. ولكن الحلول المقدمة قمة في الروعة فقد مكثت بالأمس محاولاً إيجاد طريقة مثلى ، ولم أجد سوى طريقة واحدة ولكنها طويلة بعض الشيء وتستلزم تسمية نطاقات معرفة بشكل معين ، ثم وضع Data Validation لها ..طريقة جميلة لكنها معقدة بعض الشيء

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