إيجاد مبلغ بجملة الاستحقاقات بحيث الصافي يساوي 3000

[سيف الدين ابو باسم]

سؤال دائما يطرح على العاملين بمجال المرتبات والعمل عليه صعب جداً برجاء من حضرتكم افادتنا انا والعاملين بمجال المرتبات ولحضرتكم جديل الشكر والدعاء والمطلوب ايجاد مبلغ بـ جملة الاستحقاقات والشرح داخل الملف وشكراُ .

استمارة.rar

[ياسر خليل أبو البراء]

أخي الكريم سيف الدين

إليك الكود التالي يؤدي الغرض إن شاء الله

Sub Goal_Seek()
    With Sheet1
        .Range("P5").GoalSeek Goal:=3000, ChangingCell:=.Range("G5")
    End With
End Sub

ضع الكود في موديول عادي ، امسح الخلية G5 ، ثم اضغط Alt + F8 واختر الإجراء الفرعي المسمى Goal_Seek ثم انقر زر الأمر Run ..

 

[سيف الدين ابو باسم]

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

[ياسر خليل أبو البراء]

هل تم المطلوب على خير ؟!

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

إذا تعثرت في ذلك فستجدنا إن شاء الله

مشكور على كلماتك الطيبة ، والحمد لله أن تم المطلوب على خير

تقبل تحياتي

[سيف الدين ابو باسم]

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

[ياسر خليل أبو البراء]

إن شاء الله مفيش مشكلة فقط ارفق ملف معبر عن الملف الأصلي وضع به بعض البيانات وإن شاء الله حلها بسيط

[سيف الدين ابو باسم]

انا وضعت ملف وبه الشرح والله هو الموفق ويجازى حضرتك اجر ماتفعل

استمارة 2.rar

[أبو عبد الرحمن سعيد]

 حضرتك بتقول كيف يمكننى ايجاد جملة الاستحقاقات وانا مطلوب منى ان يكون الصافى المستحق مبلغ 3000

بعد خصم قيمة كسب العمل والدمغه !!!!!!!!!!

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

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

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

[سيف الدين ابو باسم]

لا هذا دائما بيطلب فى حوافز معينه مثل س من العمال اعطيله حافز 500 جنيه على اساس يكون ال 500 جنيه صافى او 300 او200 على حسب وطبعا قانون الدمغه مايزيد عن 50 جنيه اخصم دمغه وهو مطلوب ياخد ال 500 او 300 او 200 صافى هى دى المشكله وشكرا .

[أبو عبد الرحمن سعيد]

معلشى أعذرنى مازال هناك لبس لعدم اقتناعى

فهل هناك مزيد من التوضيح لان الكلام كده مش واضح

لاكون على قناعة فى تقديم حل لموضوعك

وافر تقديرى

[سيف الدين ابو باسم]

يا استازى مثلا حضرتك عاوز تعطى موظف مكافئه ماليه قدرها 100 جنيه يعنى تصل الى يد الموظف 100 جنيه بس فى مشكله ان قانون الضرائب بيستقطع مبلغ دمغه ضريبيه على كل مبلغ يصل الى اي موظف يزيد عن 50 جنيه وحضرتك عاوز ان الموظف يصله 100 جنيه صافى فماذا تفعل مثلا .

[أبو عبد الرحمن سعيد]

ياحبيبى انا فاهم الموضوع كويس

على اعتبار أننى متخصص ومتخصص جدا جدا فى مجال المرتبات

ورغم من هذا وبعد إطلاعى على كافة مشاركتك

فلا أستطيع تقديم المساعدة لعدم منطقية المطلوب من الناحية القانونية ولا من الناحية المرورية

وافر تقديرى

[ياسر خليل أبو البراء]

إخواني الكرام بصرف النظر عن منطقية الطلب حسب طبيعة العمل إليكم الكود الذي يؤدي الغرض

Sub Goal_Seek()
    Dim I As Integer

    Application.ScreenUpdating = False
    For I = 5 To 29
        With Sheet1
            .Range("P" & I).GoalSeek Goal:=3000, ChangingCell:=.Range("G" & I)
        End With
    Next I
    Application.ScreenUpdating = True
End Sub

وأنا منذ البداية رغم عدم خبرتي بمجال المرتبات إلا أنني لم أقتنع بالطلب .. ولكن لكل مؤسسة طبيعة خاصة بها والله أعلم

تقبلوا تحياتي

 

[سيف الدين ابو باسم]

استاذ ياسر انا شاكر افضال حضرتك ومساعدتك ليا انا ومن يحتاج الى هذه الفكره وانا بقول حاجه بسيطه مافيش انسان بيطلب مساعده وهو مش محتاجها .

[ياسر خليل أبو البراء]

الحمد لله أخي العزيز سيف الدين أن تم المطلوب على خير

الحمد لله الذي بنعمته تتم الصالحات .. ولئن شكرتم لأزيدنكم

تقبل تحياتي