مهند الزيدي

شكراً أخي العزيز " أخوكم في الله " على الإستجابة لطلبي بسرعة ..وفقكم الله لكل خير.. تم حل مشكلة عدم تكرار نتائج البحث في الطباعة عن طريق الكود " Range("A8:E" & Last).ClearContents ".. ولكن مشكلة المجموع الإجمالي لم تحل وظهرت بعض النائج كما في الصورة المرفقة .. واتمنى أن أكون خفيف الظل ولم أثقل عليك .. مع تقديري وإحترامي لك أخي العزيز

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

للرفع

للرفع

للرفع

للرفع

السلام عليكم .. ممكن عمل كود طباعة في فورم البحث ..حيث يقوم بطباعة نتائج البحث في الشيت طباعة مع جمع حقل المستحقات . كما مبين في شيت الطباعة .. مثلا عند البحث عن الإسم تظهر نتائج البحث حتى لو مكررة .. عند الضغط على صورة الطابعة في الفورم يقوم بترحيل نتائج البحث بدلالة الإسم الى الشيت الطباعة مع جمع المستحقات ..مع شكري وتقديري New-Userform-Arabic.rar

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

وفقك الله لكل خير أخي ياسر خليل

روعة أخي ياسر .. وفقكم الله لكل خير

جزاك الله خيرا "ياسر خليل " وفقك الله لكل خير

بارك الله فيك أخي العزيز ياسر دائما انت مبدع وفقك الله لكل خير

السلام عليكم .. ممكن سبب ظهور الخطا في الملف كما في الصور .. وفقكم الله لكل خير علما اني استخدم 2013 32bit Calendar UserFrom.rar

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

Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("K7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("K7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function

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

السلام عليكم .. تقضل الحل عاى شكل دالة تقوم بجمع الخلايا الملونة حسب أختيارك جمع الخلايا الملونة22.rar

شكرا أخي العزيز ياسر خليل ..اتمنى أن لااكون أزعجتك .. وفقك الله لكل خير

اخي العزيز المشكلة عندك في لغة النظام .. إذهب الى Control Panal وعدل اعدادات اللغة كما مبين في الصور المرفقة

للرفع

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

تفضل اخي عسى ان اكون قد وفقت في المطلوب 1طبع الكتاب من داخل الفورم.rar

للرفع

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

شكرا اخي محمد عادل وفقك الله لكل خير