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

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

رووووووووووعة كلام معبر جدا بارك الله فيك أخي في الله ضاحي

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

أخي الفاضل هامور إليك ما طلبت ..مش حل واحد لا حلين ..حل مرتبط بالضغط على زر ، وحل مرتبط بحدث ورقة العمل Filter Based On Criteria.rar

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

تفضل يا أخي الفاضل Test.rar

أخي المصباحي جرب المرفق التالي حساب فترة.rar

أخي الفاضل جرب المرفق التالي .. وشوف المشكلة هتتحل ExcelBypassEncryptedMacroScan.rar

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

هأخي الفاضل هل تريد عمل الكود بزر يتم الضغط عليه أم أن الخلية D2 مرتبطة بقيمة الخلية A1 أي أنه إذا تغيرت الخلية A1 تتغير قيمة D2 بشكل تلقائي.. مزيد من التوضيح

تجد الكود في محرر الأكواد .. في حاجة اسمها Module بتضغط عليه دبل كليك هيظهر لك الكود خده نسخ والصقه في ملفك

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

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

أخي الحبيب قم برفع الصورة أولا على موقع رفع وانسخ الكود الخاص بالمنتديات والصقه في المشاركة ودا موقع لرفع الصور http://www.0zz0.com/

أخي الجبيب إبراهيم هذه الصورة بامتداد JPG

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

إليك أخي الكريم رفيع شرح مبسط للكود Sub TestThis() 'هذا السطر لتعريف المتغير من النوع نطاق ، واسمه Cell Dim Cell As Range 'هذا السطر يقوم بمسح محتويات النطاق المراد وضع النتائج به [O6:P100].ClearContents 'بداية حلقة تكرارية للعمود الذي به الصنف المراد تصفيته أو المراد استخراج النتائج من خلاله 'بداية هذا النطاق هو الخلية L6 'نهاية النطاق يتم تحديدها من خلال الأكواد لمعرفة آخر خلية بها بيانات في هذا العمود For Each Cell In Range("L6:L" & Range("L" & Rows.Count).End(xlUp).Row) 'يتم وضع شرط ألا تكون قيمة الخلية في هذا النطاق المشار إليه في السطر السابق ألا تكون قيمة الخلية تساوي فراغ أو صفر If Not Cell.Value = "" And Not Cell.Value = 0 Then 'إذا تحقق الشرط وكانت الخلية لا تساوي فراغ ولا تساوي صفر يقوم بنسخ الخلية والخلية المجاورة باستخدام Reszie Cell.Resize(1, 2).Copy 'هذا النطاق هو المكان الذي سيتم لصق القيم فيه Range("O" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues 'نهاية جملة الشرط End If 'الانتقال إلى خلية جديدة Next Cell 'إلغاء خاصية النسخ التي تم استخدامها بالكود Application.CutCopyMode = False 'تحديد الخلية O6 [O6].Select End Sub

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

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

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

تسلم يا كبير شغل عالي بارك الله فيك أخ سليم SALAM MR SALIM

Columns(2).EntireColumn.Hidden = True لاخفاء العمود الثاني B Columns("G:O").EntireColumn.Hidden = True لاخفاء الأعمدة من العمود رقم 7 إلى العمود رقم 15

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

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

الأخ الكريم رفيع سعد جرب الملف التالي TestThis.rar