ناصرالمصرى

السلام عليكم ورحمته الله وبركاته وكل عام انتم جميعا بخير بمناسبة حلول شهر رمضان المبارك فى محاولة لدمج المعادلين فى معادلة واحدة لتحقيق الاربعة شروط الموضحة بالمرفق التالى يحدث شيئا غير منطقى حيث علامات الخطأ المعادلة الاولى بالخلية H7 لتحقيق الشرطين التاليين على رأس العمل = استحقاق كامل 878.63 اخلى طرفة بتاريخ 2017/5/18= 878.63 ÷ عدد ايام الشهر × عدد الايام الفعلية = 527.18 =IF(D7<>"";F7*DATEDIF(C7;D7+1;"d")/ROUNDUP((DATE(YEAR(C7);MONTH(C7)+1;1)-C7)*30/30;0);F7) المعادلة الثانية بالخلية H12 لتحقيق الشرطين التاليين على رأس العمل بنظام النسبة = 878.63 ÷ 100 × النسبة = 746.84 اخلى طرفة بنظام النسبة بتاريخ 2017/5/18= 746.84 ÷ عدد ايام الشهر × عدد الايام الفعلية = 433.65 =IF(D12="";F12/100*VALUE(RIGHT(E12;2));(IF(LEFT(E12;4)="حافز";F12/100*VALUE(RIGHT(E12;2))/ROUNDUP((DATE(YEAR(C12);MONTH(C12)+1;1)-C12)*30/30;0)*DATEDIF(C12;D12+1;"d")))) فهل يمكن بعد طلب الاذن من حضراتكم المساعدة فى دمج المعادلتين دون وجود لعلامات الخطأ شاكر فضل الجميع *** وجزاكم الله خيرا تاريخ اخلاء.rar

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

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

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

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

للرفع

السلام عليكم هل هناك شبىء غير واضح شاكر فضل الجميع وجزاكم الله خيرا

للرفع

للرفع

للرفع

أحبائى فى الله السلام عليكم ورحمته الله وبركاته فى موضوع سابق لى منذ فترة ولكن لظروف طارئة لم يكتمل الموضوع وقد أدلى اخى الاستاذ الفاضل / سعيد بيرم " أبو عبد الرحمن " بدلوه فى الجزء الاول من هذا الموضوع وهو لمنع واخفاء وطباعة اوراق محددة فى مصنف مع مسح محتويات الجدوال بعد عملية الطباعة الرابط وقد أدلى ايضا اخى الاستاذ الفاضل / حماده عمر " أبو سما " بدلوه فى محاولة لاستكمال الموضوع الرابط المطلوب بعد إذن حضراتكم استكمال الموضوع نحو تعديل أو إضافة على الكود المبين بالمرفق فكرة الموضوع هى فى الاصل ترحيل الاصناف من فاتورة المبيعات الى كل مخزن يتبع لهذا الصنف والتى تتمثل فى الاوراق من stor1 حتى stor10 إذن مانتحدث عنه هو طباعة أذون صرف الاصناف وتختلف هنا الاصناف المُرحلة من حيث العدد كمسلسل ويتم طباعة تلك الاذون على مقاس A5 و يحتوى كل إذن على 20 صنف وفى أحوال أخرى يزيد العدد الى أكثر من 20 صنف على مستوى المخزن الواحد ومن هنا تم تثبيت عدد 5 صفحات جاهزة لطباعة تلك الاذون فى كل ورقة من المخازن العشرة كحد أقصى فكيف يمكن تجاهل باقى الصفحات الفارغة من البيانات على كافة الاوراق من stor1 حتى stor10 أثناء عملية الطباعة مع الاخذ فى الاعتبار المحافظة على حدود الجدوال القابلة للطباعة ملحوظة يجب اخفاء الاوراق من stor1 حتى stor10 حتى يعمل الكود المدون بطريقة صحيحة شاكر فضل حضرتك ***** وجزاكم الله خيرا طباعة صفحات محددة لاكثر من ورقة.xlsb.rar

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

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

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

أخى الفاضل الاستاذ / ياسر خليل السلام عليكم ورحمته الله وبركاته جزاكم الله خيرا وبارك فيكم وشاكر فضلك لاهتمامك بالموضوع المرفق التالى يوضح المطلوب علما بأننى وضعت هذا الكود فى حدث تغير ورقة العمل مع تحديد الاعمدة المعنية بالنتائج دون جدوى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 7 Then If Target.Column >= 89 And Target.Column <= 100 Then Application.EnableEvents = False Cells(Target.Row, "CT").Value = "" Cells(Target.Row, "CT").Value = Cells(Target.Row, "CV").Value Application.EnableEvents = True End If End If End Sub تم مسح الكود المشار اليه من المرفق حتى يتضح المطلوب بالاعمدة المظللة باللون الاصفر شاكر فضلك **** وجزاكم الله خيرا كسر الجنية بعمود واحد.xlsb.rar

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

إخوانى وأحبائى فى الله السلام عليكم ورحمته الله وبركاته جزاكم الله خيرا وبارك فيكم عما تقدموه ابتغاء مرضاة الله أخى الفاضل الاستاذ / ياسر خليل بعد طلب الاذن بشأن الكود المرسل من طرفكم يخص كسر الجنيه بنظام عمودى القرش والجنيه وكما ذكر اخى الفاضل محمد صالح ان الكود يحتاج الى مسح محتويات عمود كسر الجنيه في بداية الكود حتى لا يتم إدخاله في الحساب مرة أخرى " وهذا ماحدث بالفعل " أما عن الملف الاخير بمشاركتى السابقة فهو بنظام العمود الواحد حيث يبدأ من العمود CK رقم 89 وحتى العمود DV رقم 126 علما بأن العمود الخاص بكسر الجنية هو خلايا العمود DT رقم 124 برجاء الاطلاع **** شاكر فضل الجميع **** وجزاكم الله خيرا الاستاذ الفاضل محمد صالح.rar الاستاذ الفاضل ياسر خليل.rar

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

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

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

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

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

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

للرفع

للرفع