عادل ابوزيد قام بنشر أبريل 2, 2013 قام بنشر أبريل 2, 2013 الاساتذه الكرام مرفق ملف به شيت من خلاله يتم استيفاء بيانات العملاء ونوع الجهاز وطريقه البيع ( نقدا او قسط ) وعدد الاقساط والمقدمه وبدايه الاستحقاق وتقوم الورقة باستيفاء باقى البيانات عن طريق المعادلات وهى قيمه القسط ونهاية الاستحقاق وتواريخ الاقساط التى يجب الدفع عندها وقيمه كل قسط والمطلوب : فى شيت اخر يتم تحديد تاريخ معين فيتم ترحيل بيانات العملاء والاقساط الواجبة قبل او فى ذلك التاريخ ورقم القسط وقيمته وتاريخ استحقاقه ترحيل مبيعات القسط التى جاء ميعاد استحقاقها.rar
طارق محمود قام بنشر أبريل 4, 2013 قام بنشر أبريل 4, 2013 السلام عليكم أخي العزيز تفضل المرفق حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين.rar
عادل ابوزيد قام بنشر أبريل 4, 2013 الكاتب قام بنشر أبريل 4, 2013 (معدل) استاذنا القدير العزيز طارق اذا كان باستطاعتى لاخترت اجمع البساتين لاجمع ارق الورود لتجميع ازهاى الباقات لارسالها لك إلا ان قلبى مشده السعاده بردكم الكريم لا يملك إلا ان يتضرع لله شكراً وداعياً لك بالصحة الستر وراحةالبال ..اللهم تقبل منا ومنك صالح الاعمال وبعد اذنكم الكريم لى طلب : انه عند الترحيل يقوم الكود بتكرار بيانات العميل فهل يمكن ان يذكر بيانات العميل مرة واحدة والاقساط تكون فى نفس الصف لبيانات العميل منعاً لتكرار الصفوف واحكام الحصر ولك منى كل الحب والتقدير ممكن اطمع فى كرمك وتشرح الكود لانه بجد ابداع بمعنى الكلمة وحتى يمكن اعدل فيه حسب الاحتياج تم تعديل أبريل 4, 2013 بواسطه admbrk
خالد القدس قام بنشر أبريل 4, 2013 قام بنشر أبريل 4, 2013 السلام عليكم الاستاذ الباشمهندس طارق كود رائع ومختصر وسريع بارك الله فيك
طارق محمود قام بنشر أبريل 5, 2013 قام بنشر أبريل 5, 2013 السلام عليكم أخي خالد جزاك الله خيرا علي مرورك الكريم وكلماتك الطيبة أخي 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
عادل ابوزيد قام بنشر أبريل 5, 2013 الكاتب قام بنشر أبريل 5, 2013 الباشموهندس طارق اعمالك كالنجوم تتللأ فى سماء اوفيسينا جزاك الله كل خير وزادك من علمه وفضله
جمال عبد السميع قام بنشر أبريل 8, 2013 قام بنشر أبريل 8, 2013 بعد إذن أستاذى ( طارق محمود ) ، وهذا حل أخر بالمعادلات ترحيل مبيعات القسط التى جاء ميعاد استحقاقها.rar
عادل ابوزيد قام بنشر أبريل 9, 2013 الكاتب قام بنشر أبريل 9, 2013 استاذنا الغالى محمود بحثت فى مفردات اللغه لاعبر لك عن روعة ابداعاتك فلم اجد ما يوفى لك جمال اعمالك سلمت يداك وبارك الله لك فى اولادك وفى علمك وفى رزقك وفى صحتك استسمحك فى تعديل ارجو الا اشق عليك وهو ان المعادلات ترحل جميع الاقساط المسدده وغير المسدده والمطلوب اظهار الغير مسدد فقط والتى جاء ميعاد استحقاقها ولك منى كل الحب والتقدير
جمال عبد السميع قام بنشر أبريل 9, 2013 قام بنشر أبريل 9, 2013 أخى الحبيب ( admbrk ) لقد قمت بتنفيذ طلب حضرتك فور قرائتة ولكن وقفت بعد الإنتهاء من العمل حيث واجهتنى مشكلة وهى: أولا- أى عمود أقساط سأخذة لعمل شرط السداد أو عدم السداد ( هل القسط الأخير أم عدم سدادة من البداية ) ثانيا - لو أخذت البداية ( أى لم يسدد من بداية القسط فهناك من سدد القسط الأول ولم يسدد أقساط أخرى ؟ ) على العموم سأقوم برفع المرفق الذى تم عملة على عدم سداد القسط من بدايتة وإن لم يكن ) تستطيع حضرتك تغيير عمود القسط وربطة بخلية الشرط كما تحب ) ترحيل مبيعات القسط التى جاء ميعاد استحقاقها 2.rar 1
عادل ابوزيد قام بنشر أبريل 9, 2013 الكاتب قام بنشر أبريل 9, 2013 الاستاذ الكبير جمال ( محمود لى ) يبدوا اننى لم اعرف اطبق على الملف الذى شرفنى ان قمت بارساله على قدر فهمى فقد قمت بتعديل عمود حالة السداد حتى يتم تغييرها تلقائياً عند تغيير تاريخ الحصر فى شيت العملاء كلهم بحيث اذا كان تاريخ الحصر اكبر من او يساوى تاريخ استحقاق القسط وخانة تاريخ السداد لا تساوى "" فيكتب لم يسدد والمطلوب ببساطه ان يقوم البرنامج بحصر العملاء والاقساط التى لم تسدد فقط بمعنى انه البرنامج سيبحث فى عمود الحالة لكل قسط والخانة التى لم تسدد هى التى سترحل بياناتها وقسطها امام عميلها اما بقية الاقساط التى لم يحين ميعاد استحقاقها فلا تظهر وبالتالى العملاء التى لم يستحق عليهم اقساط لم يظهروا كذلك واليكم المرفق بعد تعديل خانة حالة السداد ترحيل مبيعات القسط التى جاء ميعاد استحقاقها22.rar 1
جمال عبد السميع قام بنشر أبريل 10, 2013 قام بنشر أبريل 10, 2013 أخى الحبيب ( admbrk ) بصراحة مش فاهم ماهو المطلوب بعد المرفقين إللى أرسلتهم لحضرتك وأوضحت المشكلة أن المعادلة تبحث عن الشروط المعطاة وطالما هناك أخى تشابة فى الشروط المشكلة بتكمن هنا كذلك أوضحت لحضرتك أى عمود من عواميد الأقساط سيتم إختيارة كشرط لفلترة الجدول بالأضافة إلى التواريخ هل هو السداد أو عدم السداد من القسط الأول أو هو أخر قسط على أساس معرفة من هم العملاء اللذين لازال عليهم أقساط ؟ لم أعرف أخى والمعادلة يمكن تطويعها لما تريد من شروط وإلا ياريت ترسل ماتريدة فى مرفق أخر وبه ماتريدة من نتيجة وأنا تحت أمر حضرتك؟ ومع حضرتك حتى تحصل على ماتريدة ولاتخجل من شئ أخى فأنا تحت أمر حضرتك إذا لم يضع زميل أخر تصورة تقبل تحياتى 3
عادل ابوزيد قام بنشر أبريل 10, 2013 الكاتب قام بنشر أبريل 10, 2013 استاذنا الفاضل جمال لا اجد الكلمات لاعبر بها عن سعادتى للتواصل مع شخصكم الكريم ولا تعرف كم السعادة التى اشعر بها من خلال هذا التواصل صحيح ان الاعمال التى عن طريقها يتم التواصل مهمة إلا ان التواصل فى حد ذاته اهم عندى فمثلاً كما تعلم الاستاذ طارق قد اتحفنا بكود رائع ويؤدى العمل به إلا ان التواصل مع خبراء المنتدى كشخصكم الكريم هو اسمى شئ فى هذاالمنتدى وبخصوص الملف الفكرة ببساطه ان يقوم البرنامج بالبحث فى عمود السداد واذا وجد كلمة لم يسدد يقوم بنسخ بينانات العميل وبيانات القسط الفقط الذى لم يتم سداده وقد قمت بعمل حصر يدوى بالنتيجة المطلوبة بعد تحديد خانة بتاريخ الحصر تقبل منى كل حب واحترام ترحيل مبيعات القسط التى جاء ميعاد استحقاقها_222.rar 2 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.