اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه 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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتى

  • Like 3
رابط هذا التعليق
شارك

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

وبخصوص الملف

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

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

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

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information