حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين

[عادل ابوزيد]

الاساتذه الكرام

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

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

ترحيل مبيعات القسط التى جاء ميعاد استحقاقها.rar

[عادل ابوزيد]

up

[عادل ابوزيد]

للرفع

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرفق

حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين.rar

[عادل ابوزيد]

استاذنا القدير العزيز طارق

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

وبعد اذنكم الكريم لى طلب : انه عند الترحيل يقوم الكود بتكرار بيانات العميل فهل يمكن ان يذكر بيانات العميل مرة واحدة والاقساط تكون فى نفس الصف لبيانات العميل منعاً لتكرار الصفوف واحكام الحصر ولك منى كل الحب والتقدير

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

تم تعديل أبريل 4, 2013 بواسطه admbrk

[خالد القدس]

السلام عليكم

الاستاذ الباشمهندس طارق

كود رائع ومختصر وسريع

بارك الله فيك

[طارق محمود]

السلام عليكم

أخي خالد

جزاك الله خيرا علي مرورك الكريم وكلماتك الطيبة

 

أخي admbrk

الكود بعد التعديل

 

Sub Remin_2()

LR = Cells.SpecialCells(xlCellTypeLastCell).Row
    Sheet3.[B5:AC1000].ClearContents
For c = 20 To 99
    If Cells(3, c) = "حالة السداد" Then
    N = (c - 2) / 4 - 4
    For r = 4 To LR
        V = Cells(r, c - 1)
        D = Cells(r, c - 2)
        If Cells(r, c) = "لم يسدد" And D <= [P1] Then
            Clnt_N = Cells(r, 2)
            C_Nam = Cells(r, 4)
            Clnt_T = Cells(r, 5)
            C_Add = Cells(r, 6)
        Else: GoTo 10
        End If
        With Sheet3
            s = .[H1000].End(xlUp).Row + 1
            For s_r = 5 To s - 1
                If .Cells(s_r, 3) = C_Nam Then
                   clm = .Cells(s_r, "IV").End(xlToLeft).Column
                   .Cells(s_r, clm + 1) = N
                   .Cells(s_r, clm + 2) = D
                   .Cells(s_r, clm + 3) = V
                   GoTo 10
                End If
            Next s_r
            .Cells(s, 2) = Clnt_N
            .Cells(s, 3) = C_Nam
            .Cells(s, 4) = Clnt_T
            .Cells(s, 5) = C_Add
            .Cells(s, 6) = N
            .Cells(s, 7) = D
            .Cells(s, 8) = V
        End With
10
    Next r
    End If
Next
Sheet3.Activate

End Sub

 

مرفق الملف به الكود الجديد ليناسب ماطلبت

وبه أيضا شيت اضافي لشرح الكود

تفضل المرفق

 

حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين2.rar

[عادل ابوزيد]

الباشموهندس طارق

اعمالك كالنجوم تتللأ فى سماء اوفيسينا

جزاك الله كل خير وزادك من علمه وفضله

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

بعد إذن أستاذى ( طارق محمود ) ، وهذا حل أخر بالمعادلات

ترحيل مبيعات القسط التى جاء ميعاد استحقاقها.rar

[عادل ابوزيد]

استاذنا الغالى محمود

بحثت فى مفردات اللغه لاعبر لك عن روعة ابداعاتك فلم اجد ما يوفى لك جمال اعمالك

سلمت يداك وبارك الله لك فى اولادك وفى علمك وفى رزقك وفى صحتك

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

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

أخى الحبيب ( admbrk ) لقد قمت بتنفيذ طلب حضرتك فور قرائتة  ولكن وقفت بعد الإنتهاء من العمل حيث واجهتنى مشكلة وهى:

أولا- أى عمود أقساط سأخذة لعمل شرط السداد أو عدم السداد ( هل القسط الأخير أم عدم سدادة من البداية )

ثانيا - لو أخذت البداية ( أى لم يسدد من بداية القسط فهناك من سدد القسط الأول ولم يسدد أقساط أخرى ؟ )

على العموم سأقوم برفع المرفق الذى تم عملة على عدم سداد القسط من بدايتة وإن لم يكن ) تستطيع حضرتك تغيير عمود القسط وربطة بخلية الشرط كما تحب )

ترحيل مبيعات القسط التى جاء ميعاد استحقاقها 2.rar

[عادل ابوزيد]

الاستاذ الكبير جمال ( محمود لى )

يبدوا اننى لم اعرف اطبق على الملف الذى شرفنى ان قمت بارساله على قدر فهمى فقد قمت بتعديل عمود حالة السداد حتى يتم تغييرها تلقائياً عند تغيير تاريخ الحصر فى شيت العملاء كلهم بحيث اذا كان تاريخ الحصر اكبر من او يساوى تاريخ استحقاق القسط وخانة تاريخ السداد لا تساوى "" فيكتب لم يسدد

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

وبالتالى العملاء التى لم يستحق عليهم اقساط لم يظهروا كذلك

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

ترحيل مبيعات القسط التى جاء ميعاد استحقاقها22.rar

[عادل ابوزيد]

up

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

أخى الحبيب ( admbrk ) بصراحة مش فاهم ماهو المطلوب بعد المرفقين إللى أرسلتهم لحضرتك وأوضحت المشكلة أن المعادلة تبحث عن الشروط المعطاة وطالما  هناك أخى

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

هل هو السداد أو عدم السداد من القسط الأول أو هو أخر قسط على أساس معرفة من هم العملاء اللذين لازال عليهم أقساط ؟ لم أعرف أخى والمعادلة يمكن تطويعها لما تريد من شروط

وإلا ياريت ترسل ماتريدة فى مرفق أخر وبه ماتريدة من نتيجة وأنا تحت أمر حضرتك؟ ومع حضرتك حتى تحصل على ماتريدة ولاتخجل من شئ أخى فأنا تحت أمر حضرتك إذا لم يضع زميل أخر تصورة

تقبل تحياتى

[عادل ابوزيد]

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

وبخصوص الملف

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

وقد قمت بعمل حصر يدوى بالنتيجة المطلوبة بعد تحديد خانة بتاريخ الحصر

تقبل منى كل حب واحترام

ترحيل مبيعات القسط التى جاء ميعاد استحقاقها_222.rar