إضافة

أ/حكيم · فبراير 6, 2013

المطلوب في المرفق مع الشكر

**احمد عبد الناصر** · فبراير 6, 2013

السلام عليكم

جرب هذا الكود

For Each cell In Range("B6:B17")
If cell.Value + Range("b3").Value <= 50 Then cell.Value = cell.Value + Range("b3").Value Else cell.Value = ""
Next

تحياتي

حسن الحاوى · فبراير 6, 2013

أرجو أن يكون هذا هو المطلوب

**أبو محمد أشرف** · فبراير 6, 2013

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

تفضل

أ/حكيم · فبراير 8, 2013

شكراُ للاخوة الأعزاء على على هذه الأكواد الجميلةوجزاكم الله الف خير

تم تعديل فبراير 8, 2013 بواسطه أبو حكيم

**حمادة عمر** · فبراير 8, 2013

السلام عليكم

الاخوة الكرام

حلول جميله

جزاكم الله خيرا

الردود الموصى بها