ناصرالمصرى

السلام عليكم ورحمته الله وبركاته

وكل عام انتم جميعا بخير بمناسبة حلول شهر رمضان المبارك

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

يحدث شيئا غير منطقى حيث علامات الخطأ

المعادلة الاولى بالخلية 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

أخى الفاضل / حماده عمر

السلام عليكم

تمت الافادة وجزاكم الله خيرا  وبارك فيكم

شاكر فضل حضرتك *** وجزاكم الله خيرا

13 ساعات مضت, حمادة عمر said:

السلام عليكم

الاخ الكريم / ناصر المصري

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

وحمد لله علي السلامة .. ونرجو ان يكون غيابك خير من الله وان تكون في احسن حال

شاهد اخي الكريم المرفق التالي .. واخبرني بالنتائج .. فكرة بسيطة لتنفيذ طلبك الخاص بالطباعة

تقبل خالص تحياتي

 

طباعة صفحات محددة لاكثر من ورقة-new.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

1 ساعه مضت, ياسر خليل أبو البراء said:

وعليكم السلام

ضع الكود التالي في حدث ورقة العمل (كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code والصق الكود التالي)

قم بوضع أية بيانات في الأعمدة من AD إلى AW ولاحظ النتيجة في العمود AN

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 7 Then
        If Target.Column >= 30 And Target.Column <= 49 Then
            Application.EnableEvents = False
                Cells(Target.Row, "AN").Value = Cells(Target.Row, "AR").Value
            Application.EnableEvents = True
        End If
    End If
End Sub

 

1 ساعه مضت, أ / محمد صالح said:

بارك الله لك أستاذ ياسر

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

حتى لا يتم إدخاله في الحساب مرة أخرى

وحتى نحصل على الصافي بدون قروش

أخى وحبيبى فى الله الاستاذ الفاضل / ابو البراء

السلام عليكم ورحمته الله وبركاته

بارك الله فيكم جميعا وجزاكم الله خيرا

نعم أخى تم تغير البيانات والنتيجة 100% ولكن إعتقاد اخى الفاضل / محمد صالح فى محله

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

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

ولكن لم يعطى شيئا رغم التعديل حسب ارقام الاعمدة

برجاء الاطلاع **** شاكر فضلكم جميعا وجزاكم الله خيرا

كسر الجنيه بظام العمود الواحد.rar

أخى وحبيبى فى الله الاستاذ / ياسر خليل

السلام عليكم ورجمته الله وبركاته

وكيف يمكن التعامل مع صف الخلية الهدف فقط بعد وضع الكود فى حدث التغير فى ورقة العمل

فهل يمكن رجاءا  ابداء رأيكم  الحكيم  مشفوعا بمرفق من طرفكم

لإعتقادى أنه قد يطرأ تغيرا  أو تعديل فى مجريات الامور

شاكر فضل حضرتك وجزاكم الله خيرا

أخى وحبيبى فى الله الاستاذ / محمد صالح

السلام عليكم ورجمته الله وبركاته

انا معك قلبا وقالبا وأدرك تماما  ماتقصده

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

للحصول على النتيجة المطلوبة فهل يمكن وضع معادلة تخص خلية كسر الجنية بعد تحويل الكود الى دالة معرفة

معلش انا بحاول اوصل الفكرة لان باقى الملف مصمم بالمعادلات مش عارف بقى الكلام ده منطقى أم على غير ذلك

شاكر فضل حضرتك وجزاكم الله خيرا

3 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أستاذي الكبير محمد صالح على حلولك الرائعة ، والله لقد دبت الروح في المنتدى بعد عودتك إليه

 

2 ساعات مضت, سليم حاصبيا said:

استاذ محمد 

كود رائع بسيط و معبّر بارك الله بك و باعمالك

 

نعم أخى الفاضل  ابو البراء وأخى الفاضل سليم

والله والله لقد دبت الروح فى المنتدى بعودة الاستاذ الفاضل محمد صالح

بارك الله فيكم جميعا  وجزاكم خيرا **** ولى طلب بعد إذنكم جميعا

هل يمكن تحويل هذا الكود الى دالة معرفة ليتم الحساب تلقائيا دون اللجوء الى زر تنفيذ الكود

شاكر فضل حضراتكم جميعا وجزاكم الله خيرا 

اخى وحبيبى فى الله الاستاذ / محمد صالح

السلام عليكم ورحمته الله وبركاته

عندما تتسم الاكواد بالبساطة والسحر على غير المعتاد

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

على هذة المساهمات الطيبة *** شاكر فضل الجميع *** وجزاكم الله خيرا

أخى وحبيبى فى الله الاستاذ الفاضل / محمد صالح

السلام عليكم ورحمته الله وبركاته

جزاكم الله خيرا وبارك فيكم

نعم حبيبى فى الله الكود أدى الغرض تماما

أطمع فى طلب أخر ألا وهو تطبيق نفس فكرة الموضوع ولكن على خانتين للقرش والجنيه

اليك المرفق التالى برجاء الاطلاع والافادة بإذن الله

شاكر فضل حضرتك وجزاكم الله خيرا

mas_كسر الجنية ذو الخانتين.rar

للرفع