تفريغ بيانات جدول الى الحساب مالي ومركز المسؤلية الخاصة بها

[skyblue]

الاخوة الاعضاء والاساتذة المشرفين

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

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

وحسب المرفق

تحياتي

اظهار الحساب المالي ومركز المسئولية لكل مبلغ.rar

[جمال عبد السميع]

أتمني أن يكون المطلوب ولكن بالمعادلات

اظهار الحساب المالي ومركز المسئولية لكل مبلغ.rar

[skyblue]

شكرا اخي mamoud -lee فعلا مجهود رائع جدا . ولكن كنت اتمنى ان تظهر كل الحسابات دفعة واحدة بالجدول بدون استخدام القائكة المنسدلة فههل يمكن ذلك

تحياتي

[الخالدي]

السلام عليكم

جرب الكود التالي

Sub AL_KHALEDI()

Set Rn = Range("D3,D5:H7,D16:H25")

Rn.Areas(3).ClearContents

For c = 1 To Rn.Areas(2).Columns.Count: For r = 1 To Rn.Areas(2).Rows.Count

If Rn.Areas(2)(r, c) Then

v = v + 1

Rn.Areas(3)(v, 1) = Rn.Areas(2)(r, c)

Rn.Areas(3)(v, 2) = Rn.Areas(1)(1, c)

Rn.Areas(3)(v, 3) = Rn.Areas(2)(r, 0)

Rn.Areas(3)(v, 4) = Rn.Areas(1)(2, c)

End If

Next: Next

Set Rn = Nothing

End Sub

اظهار الحساب المالي ومركز المسئولية لكل مبلغ2.rar

[جمال عبد السميع]

أتمني أن يكون المطلوب يمكن الأستعاضة عن ( الحساب المالي ) بإختيارة من القائمة المنسدلة أو لو حضرتك أردت نقلة هو الأخر ضع فية دالة ( index )

2اظهار الحساب المالي ومركز المسئولية لكل مبلغ.rar

[جمال عبد السميع]

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

اظهار الحساب المالي ومركز المسئولية لكل مبلغ 3.rar

[skyblue]

شكرا اخي mamoud -lee على المجهود الكبير الذي عملته وفعلا حلك كان ممتازا بالكعادلات .

[skyblue]

الاخ / الخالدي الحل كان رائعا بالكود ولكن عندي طلب لو تكرمت ان يكون الجدول الخاص بالكود يظهر في ورقة 2

تحياتي

[الخالدي]

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

سلمك الله اخي الاستاذ محمود

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

الاخ / الخالدي الحل كان رائعا بالكود ولكن عندي طلب لو تكرمت ان يكون الجدول الخاص بالكود يظهر في ورقة 2

جرب المرفق

اظهار الحساب المالي ومركز المسئولية لكل مبلغ4.rar

[skyblue]

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

ومن باب الاستفادة فقط هل يكنن ان تظهر البيانات في ورقة 2 اليا بدون استخدام الزر عن طريق Private Sub Worksheet_Change(ByVal Target As Range)

تحياتي الخالصة لك

[skyblue]

up

[alfahad]

استاذي واخي الخالدي

لا استطيع ان ارى ردودك دون أن أرد عليها

بارك الله فيك وسددك واجزل لك العطاء

[أبو حنــــين]

السلام عليكم

اخي هل تقصد بهذه الطريقة

اظهار الحساب المالي ومركز المسئولية لكل مبلغ4.rar

[رعد داود]

عمل جميل وموفقين وكبف يمكن ان يكون الجمع تراكمي على القوائم يعني أضافة دالة

sumif

فمثلا" المصاريف الخدميه تجمع تلقائيا" كلما يكون تظهر عليها حركة جديدة وتكون بخليه واحدة

[الخالدي]

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

شكرا للأخوة الكرام

واعتذر عن تأخر الرد نتيجة ظروف

واشكر الاستاذ أبو حنين لقيامه بالرد على صاحب الموضوع

في امان الله

[skyblue]

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

فعلا هذا هو مااريده .

تحياتي لك

[أبو حنــــين]

العفو أخي : / skyblue