اريد كود برمجي لتلك المعادلة المحيرة

[ahmed_2040]

نداء الي عباقرة المنتدي العظيم

انا قمت بتصميم برنامج مرتبات ولكن اريد ان اضع الكود هذا في البرمجة

Range("w6:w30").Formula = "=If(main!$B$8>(H6*main!$B$7);main!$B$8;H6*main!$B$7)"

لاستخدامة في حساب عمود علاوة 2013

ولكن عند استخدامة يظهرالخطاء التالي في هذة الصورة المرفقة

ولكم جزيل الشكر لتعاونكم

[أبو حنــــين]

 

 

CTRL + Q to Enable/Disable GoPhoto.it

السلام عليكم

حتى و ان الاجابة في غياب الملف تعتبر صعبة نوعا ما

لكن جرب التالي

تغيير الفاصلة المنقوطة ; بفاصلة عادية ,   في الكود الذي ارسلته في مشاركتك

[أبو حنــــين]

Range("w6:w30").Formula = "=If(main!$B$8>(H6*main!$B$7),main!$B$8,H6*main!$B$7)"

تم تعديل مارس 10, 2013 بواسطه أبو حنين

[ahmed_2040]

• الف شكر ياعبقري : السيد ابو حنين جزاك الله خيرا كثيرا
• لقد نجح الكود بالفعل
• ولكن يعبئ كل الخانات حتي التي لايوجد بها بيانات واريد تقنين ذلك علي الخانات التي صفها يحوي بيانات

[أبو حنــــين]

جرب التالي

Range("w6:w30").Formula = "=IF(OR(main!$B$8<>"",H6<>""),IF(main!$B$8>(H6*main!$B$7),main!$B$8;H6*main!$B$7),"")"

[ahmed_2040]

اخي الكريم نفس المشكلة الاولي  تظهر نفس الرسالة  حتي بعد التعديل