عبدالله المجرب

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

للرفع

للرفع

شكراً لكم جميعاً

ما شاء الله تجميع ممتاز للافكار وتنفيذ اجمل بداءت اول الخطوات وان شاء الله تستمر في التقدم بثبات وفقك الله اخي ابو الحسن

اخي الفاضل ماهي الدلالة وهل تريد ترحيل الكل الى الشيت المختار ام بيانات محددة بانتضار إجابتك حتى نبداء في العمل

للعلم بانك مهما اضت من اوراق عمل ستضاف الى القائمة المنسدلة

السلام عليكم جرب المرفق فيه كودين واحد لمسح نطاق ورقة محددة والاخر مسج النطاق المحدد من جميع اوراق العمل ابو احمد (مسح نطاق).rar

شكراً جزيلاً على هذه المعلومة

الاستاذ الفاضل يحيى حسين جربت دالة MROUND على 2003 وهي غير موجودة فهل من دالة بديلة

السلام عليكم عن نفسي اعتذر عن البدء في الموضوع ولكن ان تم عمل المشروع وكان لدي القدرة على المساعدة فلن اتأخر وشكراً

المعادلة تصبح هكذا =IF(MID(A1;LEN(A1);1)="0";A1;IF(MID(A1;LEN(A1);1)<="5";A1-MID(A1;LEN(A1);1)+5;IF(MID(A1;LEN(A1);1)>"5";A1-MID(A1;LEN(A1);1)+10)))

السلام عليكم جرب هذه المعادلة بفرض ان الرقم في الخلية A1 =IF(MID(A1;LEN(A1);1)<="5";A1-MID(A1;LEN(A1);1)+5;IF(MID(A1;LEN(A1);1)>"5";A1-MID(A1;LEN(A1);1)+10))

تفضل المرفق وبه المعادلة وكما قال الاستاذ يحيى لا تنسى انها معادلة صفيف فلا تنسى أن تضغط Ctrl+Shift+Enter = الفرق بين الدالتين ان دالة Average لاستخراج المتوسط بينما دالة Sumifتجميعية بشرط هاني بدر.rar

الاستاذ الفاضل محمد صالح وضحت الفكرة بشكل تام

بصراحة الرابط عجيب فما هي فكرته

اين المرفق

الحل 36 == س + س +1/2 س +1/4س +1 = 100 2 س +3/4س = 99 بتوحيد المقامات 11/4 س = 99 11س = 99 * 4 س = 9*4 س 36

تم دمج الموضوعين ونرجو عدم فتح موضوع ومازال السابق نشط

المرفق على السريع فرز.rar

السلام عليكم هل تقصد فرز ام تصفية ويفضل ان ترفق ملف للعمل عليه

الاخ الفاضل قصي شكراً لتشجيعك == الاخ الفاضل فضل الحمدلله ان كان هذا هو طلبك

وهذا كود أخر ان شاء الله يفي بالغرض (تعدد الحلول) Sub Abu_Ahmed() LR = Range("A" & Rows.Count).End(xlUp).Row + 1 If Range("A" & LR - 1).Value = "الاجمالي" Then MsgBox "تم الجمع سابقاً", vbCritical + vbOKOnly, "تنبيه": Exit Sub Range("A" & LR).Value = "الاجمالي" x = Application.Sum(Range("C2:C" & LR)) y = Application.Sum(Range("D2:D" & LR)) z = Application.Sum(Range("E2:E" & LR)) Range("B" & LR).Value = x + y + z End Sub

تقويم جميل وفكرة اللغات حلوة شكراً جزيلاً ونتمنى ارفاقه مفتوح (بدون حماية) للفائدة او تسمح لي بذلك والراي لك

جرب المرفق بعد التعديل التحقق من صحة اخر ثلاث ارقام جلوس.rar