ناصرالمصرى

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

ايها الاحباب الكرام السلام عليكم ورحمته الله وبركاته المطلوب بإذن الله تعالى كود للطباعة الشيتات من ورقة 1 حتى ورقة 8 مع مراعاة عدم طباعة أيا من الشيتات الثمانية حال خلو أحدا منها من البيانات وكيف يمكن مسح كافة الاوراق من الخلية A8 وحتى اخر صف به بيانات بعد إعطاء أمر الطباعة شاكر فضل حضراتكم وجزاكم الله خيرا طباعة شيتات متعددة بشرط تجاهل الشيتات الفارغة من البيانات.rar

والله زمان ياأبو العربى فينك بقالك فترة بعيد عننا تمام الله ينور عليك بارك الله فيك وجزاكم الله خيرا

ايها الاحباب الكرام السلام عليكم ورحمته الله وبركاته بعد طلب الاذن من حضراتكم ارجو اضافة شرط فى الكود المبين فى المرفق لو الخلية C1 ="اوفسينا" يعطى فراغ للخلايا E1 و E2 و C2 ان لم يكن ينفذ الكود حسب تغير الارقام بالخلية C1 شاكر فضل حضراتكم وجزاكم الله خيرا إضافة شرط على كود جلب بيانات.rar

والله العظيم الأجمل من النقطة هو رؤية حضرتك أستاذى الفاضل / رجب ومشاركتك بهذة الروح الطيبة واتمنى من الله تعالى حضورك الكريم بموضوعى القادم بإذن الله شاكر فضل الجميع وجزاكم الله خيرا

للرفع رفع الله قدركم

أخى الفاضل الاستاذ / زيزو السلام عليكم ورحمته الله وبركاته أعتذر للعودة للموضوع هل يمكن عمل ترقيم تلقائى بورقة طباعة الاذون حسب اعداد المنتجات المدونة بورقة الشركات شاكر فضل حضرتك وجزاكم الله خيرا

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

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

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

للرفع رفع الله قدركم

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

للرفع

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

ايها الاحباب الكرام السلام عليكم ورحمته الله وبركاته فى الملف ورقتين الاولى صفحة البيانات الرئيسية للأصناف التى تمتد الى 7000 صنف والثانية هى لطباعة أذون الصرف قابلة للزيادة والنقصان المطلوب بعد إذن حضراتكم استدعاء بيانات الاصناف من الورقة الرئيسية وترحيلها الى ورقة طباعة الأذون على اساس العمود B والبيانات المطلوب استدعاؤها الاعمدة C و D و E الى الاعمدة D و E و F شاكر فضل حضراتكم وجزاكم الله خيرا استدعاء بيانات على اساس اسم الصنف.rar

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

الاستاذ الفاضل ابو عبد الرحمن جزاكم الله خيرا

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

السلام عليكم بارك الله فيك ابو البراء هذا فى حالة لو المبلغ بعمود واحد المقصود أن مبلغ الــ 80 قرش بعمود خانة القروش ومبلغ الــ 350 جنيه بعمود خانة الجنيهات فرضا مبلغ الــ 350.80 بالعمود A1 بعد إذنك ضع المعادلة التالية بالخلية B1 بخانة القروش =IF(A1="";"";RIGHT(A1*100;2)) وهذة المعادلة بالخلية C1 بخانة بخانة الجنيهات =IF(A1="";"";((A1*100)-B1)/100) يبقى كدة فصلنا المبلغ لخانتين الناتج المطلوب بخانة القروش بالخلية D1 تسعون قرشا وبخانة الجنيهات بالخلية E1 واحد جنيه من أجل الحصول على نتيجه صحيحة وخاصة أن هناك إعفاء 50 جنيها واليك أخى المعادلتين المعمول بهم ولكن بدون إعفاء الــ 50 جنيه الاولى وهذا خطأ فى التطبيق وبعد اذنك ضع المعادلة الاولى بالخلية D1 بخانة القروش =IF(A1="";"";CEILING(MOD(100*ROUND(SUM(C1;B1/100)*0.006;1);100);0.05)) والمعادلة الثانية بالخلية E1 بخانة الجنيهات =IF(A1="";"";CEILING(INT(100*ROUND(SUM(C1;B1/100)*0.006;1)/100);0.05)) فكيف يكون شكل تلك المعادلتين مع تطبيق الكود المرسل شكرا للمساعدة

الله الله الله شكرا لسرعة الاستجابة من أستاذين كبيرين المخضرم ابو عبد الرحمن والمتألق ابو البراء حاجة تانية بعد إذنكم كيف يكون التعديل لو أردنا تقسيم المبلغ على خانتين خانة للقروش وخانة للجنيهات بالفرض ان مبلغ القروش 80 قرش ومبلغ الجنيهات 350 جنيها الناتج فى خانة القروش = 90 قرش والجنيهات 1 جنيه شكرا للمساعدة

الاخ سليم شكرا جزيلا تحياتى

الاخ ياسر شكرا جزيلا تحياتى

السلام عليكم كيف يمكن تحويل المعادلة التالية الى كود vba وهى ذات شرائح متعددة وللأمانة العلمية فهى منقولة من مشاركات الاعضاء هنا الشريحة الاولى أقل من أو يساوى ٥٠ لاتعطى شيئا الشريحة الثانية أكبر من ٥٠ و أقل من ٢٥٠ الناتج × 6 / 1000 الشريحة الثالثة أكبر من ٢٥٠ و أقل من 500 الناتج × 6.5 / 1000 الشريحة الرابعه أكبر من 500 و أقل من ١٠٠٠ الناتج × 7 /1000 الشريحة الخامسة أكبر من ١٠٠٠ و أقل من ٥٠٠٠ الناتج × 7.50 / 1000 الشريحة السادسة أكبر من ١٠٠٠ و أقل من 10000 الناتج × 8 / 1000 الشريحة السابعة أكبر من ١٠٠٠٠ الناتج × 3 / 1000 الى ما لا نهاية شكرا جزيلا للمساعدة =IF(D5<=50;"";CEILING(IF(AND(D5>50;D5<=250);(D5-50)*0.006;IF(AND(D5>250;D5<=500);(D5-250)*65/10000+1.2;IF(AND(D5>500;D5<=1000);(D5-500)*7/1000+2.83;IF(AND(D5>1000;D5<=5000);(D5-1000)*75/10000+6.33;IF(AND(D5>5000;D5<=10000);(D5-5000)*8/1000+36.33;IF(D5>10000;(D5-10000)*3/1000+76.33))))));0.05))

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

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