(تمت الاجابة) هل ممكن استخلاص الرصيد للمورد (بالكود بهذه الطريقه)

[أبو أنس حاجب]

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

المطلوب حفظكم الله

بالكود ولحجم بيانات كبيرة إستخلاص الرصيد لكل مورد حسب المعادلة الموجودة في الخلايا البرتقالية بناءاً على الاسم الموجود في العمود C

أرجو أن يكون ذلك ممكن بهذا الشكل

أبوأنس

إستخلاص الرصيد لكل مورد.rar

[أبو أنس حاجب]

للرفع

[أبو أنس حاجب]

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

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

أبوأنس

[طارق محمود]

السلام عليكم

أخي الحبيب / أبو أنس

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

مشاركاتاك علي العين والراس

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

أعذر إخوانك

فلكل ، مشغولياته

المهم هذا الطلب سهل والحمد لله

تفضل المرفق ، إن شاء الله يعجبك

إستخلاص الرصيد لكل مورد2.rar

[طارق محمود]

أخي الحبيب / أبو أنس

ملاحظة

فقط أنا جعلت النتيجة في العمود M

وإن شئت بدله كما تشاء من الأسطر الأخيرة من الكود

	Next i

	Cells(i, "M").Value = Raseed

10 Next r

Range("M6:M" & [M10000].End(xlUp).Row).NumberFormat = "[Blue]+#,##0.00_ ;[Red]#,##0.00-"

End Sub

وبالتحديد في المواضع التالية (الحمراء)

Next i

Cells(i, "M").Value = Raseed

10 Next r

Range("M6:M" & [M10000].End(xlUp).Row).NumberFormat = "[blue]+#,##0.00_ ;[Red]#,##0.00-"

End Sub

[أبو أنس حاجب]

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

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

سوف انظر في ردك واعلمك لاحقاً

أخوك أبوأنس

[أبو أنس حاجب]

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

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

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

أبوأنس

[طارق محمود]

السلام عليكم

أهلا وسهلا بك أخي أبو أنس في أي وقت

....<<<< رددت علي إميلك >>>>> ....

[fidodido]

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