سؤال في تحليل شجرة الحسابات - اكسل

[ياسر الحافظ]

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

اخوتي الاعزاء / اساتذي الكرام

في المرفقات ملف اكسل يتضمن نموذج سند قيد محاسبي

ارجو المساعدة في تحليل رقم حساب ( تفصيلي ) الى حساباته الرئيسية ( لثلاث مستويات رئيسية )

الشرح في المرفق " واتمنى ان اكون قد وفقت في شرح ما ارغب به "

تحياتي الحارة للجميع

وفقكم الله

ابو الحارث

سند قيد.rar

[ياسر الحافظ]

up

[عبدالله باقشير]

السلام عليكم

جرب الكود هذا لعله المطلوب

مع ملاحظة ضع الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Num$

On Error Resume Next

If Not Intersect(Target.Cells, Range("F12:F25").Cells) Is Nothing Then

    Num = Trim(Target)

    If Not IsNumeric(Num) Then Exit Sub

    If Len(Num) - 1 Then

        Target.Offset(-1, 0).Value = Mid(Num, 1, Len(Num) - 1)

    End If

End If

End Sub

ودمتم في حفظ الله

[ياسر الحافظ]

بسم الله

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

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

ولي طلب آخر : ارجو ان كان ممكنا ان يكون التحليل لثلاث حسابات للاعلى فقط ( كاقصى حد ) والحساب المطلوب هو الرابع .

وارجو ان يكون نفس العمل في العمود /L/

تشكر بكل الاحوال استفدت كثيرا من ردك

في المرفق ملف سند القيد بعد التعديل على نحو ما ورد بمشاركتك رقم / 3 /

وفقك الله

ابو الحارث

سند قيد 1.rar

[عبدالله باقشير]

بسم الله

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

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

ولي طلب آخر : ارجو ان كان ممكنا ان يكون التحليل لثلاث حسابات للاعلى فقط ( كاقصى حد ) والحساب المطلوب هو الرابع .

وارجو ان يكون نفس العمل في العمود /L/

تشكر بكل الاحوال استفدت كثيرا من ردك

في المرفق ملف سند القيد بعد التعديل على نحو ما ورد بمشاركتك رقم / 3 /

وفقك الله

ابو الحارث

حفظك الله

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

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Num$, i%

On Error Resume Next

If Not Intersect(Target.Cells, Range("F12:F25,L12:L25").Cells) Is Nothing Then

Num = Trim(Target)

If Not IsNumeric(Num) Then Exit Sub

Application.EnableEvents = False

For i = 1 To 3

If Len(Num) - i Then

If Target.Offset(-i, 0).Row = 10 Then GoTo 1

Target.Offset(-i, 0).Value = Mid(Num, 1, Len(Num) - i)

End If

Next

1:

Application.EnableEvents = True

End If

End Sub

شاهد المرفق2003

سند قيد 2.rar

[ياسر الحافظ]

بسم الله

ماذا نقول ...ماذا نكتب ... بعد كل ما قيل وكتب عن هذا العالم الذي لايشق له غبار ( بحق )

الاخ / الاستاذ عبد الله ( خبور خير )

رائع ......

جعبتي مليئة بكلمات صادقة نابعة من القلب تستطبع ( ربما ) ان تعبر عن بعض امتناني وشكري واعتزاري بشخص مثلك

ولكن هذا الامر اعلم علم اليقين انك لاتصبو اليه

ولكن كلمة لابد ان تقال ( بعد الشكر والاعجاب الشديدين ) وفقك الله .... يسر الله امرك

هذا اكثر مما كنت انتظره

ادامك الله لنا وللمنتدى ... حفظك من كل مكروه وبارك لك في صحتك وايامك وعائلتك

اخوكم ياسر الحافظ