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

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

أخي الحبيب ارفق ملفك للعمل عليه . واعذرني لضيق وقتي حاليا حيث أنني مشغول في أعمال الكنترول Islam Lover.rar

أخي الفاضل محمد جابر يفضل طرح طلبك في موضوع مستقل

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

أخي عاشق الإسلام كنت قد طلبت عمل المطلوب بالكود بعون الله وتوفقه توصلت بعد معاناة في البحث والاستفسار طوال النهار عن هذا الموضوع بالذات إليك رابط الإصدار الجديد من مكتبة الصرح ، ابحث عن كلمة [متناقصة] ستجد الكود مرفق مع الشرح السابق (يعني دلوقتي معاك 2 * 1 بالمعادلات وبالأكواد .وانت اختار اللي يعجبك) http://www.officena.net/ib/index.php?showtopic=57935&page=9#entry371933 هتلاقي ناس محتارة ، هتقول محتار أختار مين فيهم هما الاتنين عاجبني !! تقبل تحياتي

بارك الله فيك أخي الفاضل على كلماتك الرقيقة .. يبدو أنك شاعر .. وإليك أهدي الإصدار الأخير من المكتبة ... Codes Library v1.9.3.rar

أخي الفاضل أهلا ومرحبا بك بين إخوانك هناك بالمنتدى مكتبة الصرح ، يمكنك البحث فيها عما تريد ، فقد تجد مبتغاك فيها بإذن الله هذا هو رابط آخر إصدار من المكتبة http://www.officena.net/ib/index.php?showtopic=57935&page=9#entry371905 قم بتحميل الإصدار وفتح المكتبة ، وفي خانة البحث اكتب الكلمة [عد القيم] ستجد دالة معرفة تقوم بالمطلوب إذا لم يكن الشرح وافياً أو التبس عليك تطبيق المطلوب أبلغني في الحال ..

أخي الحبيب عاشق الإسلام صراحة بحثت كثيرا ووجدت بعض الأكواد ولكنها ليست فعالة تماما ..ما زال البحث جاري عموما شرح المرفق موجود الآن في الإصدار الجديد لمكتبة الصرح يمكنك تحميل آخر نسخة بتاريخ اليوم 15 / 01 / 2015 ، لتجد ما تريد من فهم المرفق http://www.officena.net/ib/index.php?showtopic=57935&page=9#entry371905 مفتاح البحث كلمة [متناقصة] يرجى الإطلاع على الشرح وإذا كان فيه شيء غير مفهوم يرجى إطلاعي عليه حتى نضيفه .. ليكتمل العمل بإذن الله

الحمد لله الذي بنعمته تتم الصالحات قررت أن أتابع الإصدار أولاً بأول حتى يتسنى لمن يريد المشاركة الإطلاع على المكتبة و البحث عن الكود الذي سيقوم بإدراجه أولاً فإذا وجد نفس الكود فلا يتم المشاركة به مرة أخرى ، ولو وجد نفس الموضوع ولكن لديه كود آخر فليتقدم به ، فنحن نريد إثراء المكتبة بالحلول المختلفة للموضوع الواحد إليكم الإصدار الأخير (هدوخكم ورايا) Codes Library v1.9.2.rar

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

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

عموماً تفضل أخي الحبيب Least And Most Occurence V2.rar

أليس هذا كلامك

جرب المرفق Merge Cells And Keep Formatting.rar

=INDIRECT(SUBSTITUTE(B6&C6;" ";""))

أخي الكريم جرب المرفق التالي Least And Most Occurence.rar

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

الأخوة الكرام .. إليكم الإصدار الجديد من المكتبة .. الأخ خالد الغالي أبا الحسن والحسين ابحث في مكتبة الصرح عن كلمة [إزالة] ستجد أكواد حذف الصفوف المكررة .. اطلع على الشرح أولاً واقرأ الشرح جيداً .. بالنسبة للكود الأول يتم تحديد عدد الأعمدة من خلال مصفوفة من 1 إلى 9 أي من العمود رقم 1 إلى العمود رقم 9 ، أي لكي يعمل معك الكود لابد من التعديل قليلاً عليه ، وإذا قابلتك أي مشكلة أبلغني في الحال Codes Library v1.9.1.rar

جزيل الشكر لك أخي الحبيب أبو تراب يوجد بالمكتبة كود بسيط جدا يقوم بنفس المهمة ، مفتاح البحث [حذف] أو [إزالة] .. Sub DeleteDuplicateRows() Dim Rng As Range 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تعيين النطاق المراد العمل عليه من العمود الأول إلى العمود التاسع Set Rng = Range("A1", Range("D1").End(xlDown)) 'إزالة الصفوف المكررة ، من خلال مصفوفة الأعمدة من العمود رقم 1 إلى العمود رقم 9 Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo End With End Sub وعموما سيتم إضافة رائعتك أيضاً لإثراء المكتبة بحلول وأكواد مختلفة

بارك الله فيك أخي الغالي أبو تراب أكواد ودوال مميزة من شخص متميز .. ربنا ميحرمناش منك ويخليك للغلابة .. نطمع في المزيد ... لا تنعتني بالطماع ، لأني طماع بطبعي Greedy Very Greedy>> I'm Greedy Mr. Haridy .. Who's Mr. Haridy تقبل تحياتي

جرب أن تضع في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Application.Visible = True ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

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

أخي الحبيب عاشق الإسلام جرب المرفق التالي Decreasing List.rar

استخدم Close بدلاً من Quit

بارك الله فيك أخي الجموعي على هذه الأكواد الرائعة بعد التجربة قمت بتغيير هذا السطر فقط لتجنب وقوع خطأ If LCase(SheetNewName.Text) = LCase(Worksheets(I).Name) Then فعند تجربة الكود قمت بكتابة كلمة Data في مربع النص فتم إنشاء الصفحة ، وعند كتابتها مرة أخرى ظهرت رسالة التنبيه ، وعند كتابتها بالحروف الصغيرة data ظهرت رسالة خطأ يرجى إعادة تجربة الكود قبل التعديل وبعد التعديل للتأكد من صحة ما قلت تقبل تحياتي