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

بارك الله فيك أخي جمال سباق دائما بالخير

أخي الحبيب مبدئيا لن يستطيع أحد أن يطبق الكود الأول لأن السيريال الموجود في الكود الخاص بك هو خاص بالهارد خاصتك فقط فلابد لنا أن نغير السيريال بالسيريال الخاص بالهارد الخاص بنا .. فيلزم أولا معرفة السيريال الخاص بالهارد ديسك إليكم إخواني هذه الدالة التي تقوم بمعرفة سيريال الهارد ديسك الخاص بكم Function HdNum() As String Dim fsObj As Object Dim drv As Object Set fsObj = CreateObject("Scripting.FileSystemObject") Set drv = fsObj.Drives("C") HdNum = Hex(drv.serialnumber) End Function

أخي الحبيب جرب المرفق التالي ولي طلب لديك ألا تستعجل الردود الصبر يا أخي الكريم Sum In One Cell.rar

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

الأخ الكريم محمد رزق تفضل المرفق التالي الصافى السابق.rar

سلمت يداك وسلمت من كل سوء وبارك الله فيك على شرحك المتميز

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

الأخ الغالي أبو محمد عباس اسمح لي بتصحيح بسيط في الكود الذي تفضلت به Sub HideRows() Dim rng As Range Dim cell As Range Application.ScreenUpdating = False Set rng = Range("A5:A263") For Each cell In rng If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell Application.ScreenUpdating = True End Sub

لطفا ارفق ملف للتوضيح ولو تعطي نتيجة يدويا يكون أفضل

تفضل أخي الحبيب مل مرفق يوضع الكود في حدث الشيت أي أنك تقوم بعمل كليك يمين على اسم الشيت المراد إخفاء المعادلات فيه ثم اختر الأمر View Code Hide Formulas By Code.rar

العلم لا حكر فيه هذا رأيي إخواني ولا يجوز كتمان العلم ...... تفضل أخي الحبيب المرفق المطلوب 3 - Copie.rar

الأخ الحبيب محمد رزق قد تكون المشكلة في إعدادات الهوامش جرب هذه النقطة أو جرب أن تدخل على إعدادات الصفحة ثم اختر Fit to واكتب 2 في الخانة الأولى و 2 في الخانة الثانية

الأخ فضل زادك الله فضلا وعلما تفضل المرفق التالي بتنسيق أوفيس 2003 Add-Remove Red Circles.rar

أخي الكريم جرب المرفق التالي وأي استفسار أنا في الانتظار Show-Hide Rows If Value Is Zero.rar

ممكن ترفق ملف بعد إذنك أخي الحبيب

ارفق ملف للعمل عليه أخي الحبيب

سبقتني كنت ناوي أعملها .. يا سباق يا ريفي

الله ينور عليك يا أخ جمال عمل رائع .. بارك الله فيك

الأروع هي مشاركتكم إخواني في انتفاع المسلمين بكل ما نتعلمه

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

أخي في الله جمال المعادلة في العمود D تظهر خطأ عندي رغم أني أستخدم أوفيس 2007

ممكن أعرف -XLFND دي فين ؟؟؟؟

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

أخي في الله لما D9 مكررة مرتين

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