احتاج مساعده -طلب اكواد ترحيل بشروط

[محمد الريفى]

بسم الله الرحمن الرحيم

الحمد لله والصلاة والسلام على رسول الله سيدنا محمد صلى الله عليه وسلم

وبعد

اولا جزى الله خير القائمين على هذا المنتدى

ثانيا: احتاج من الاخوه الافاضل الخبراء فى الاكود

عمل اكود ترحيل التايه

1-لدى صفحة تسمى اليوميه العاميه يوجد بها عمود اسمه الباقى

احتاج ترحيل كل الاكبر من الصفر الى صفحة مستقله تسمى صفحة الاقساط كما هو موضح بالملف المرفق ( على يرحل معها جميع البيانات المظلله بالاعمده باللون الاصفر)

2- احتاج ترحيل من نفس الصفحة اليومية العامه

نسخ او ترحيل  الصفحه بالكامل الى صفحة الفرع

3- هل هناك امكانية وضع كود للتعديل فى حالة احتياج التعديلات او يتم ذلك يدوى

وجزاكم الله خيرا عنى وعن كل من استفاد ويستفيد من منتداكم العظيم

 

برنامج العملاء.rar

تم تعديل يونيو 5, 2014 بواسطه الريفى

[؛ أحمد النجار ؛]

ان شاء الله يكون المطلوب

برنامج العملاء.rar

[احمدزمان]

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

 

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

 

و بصفة خاصة نؤكدعلى ما يلي

1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

 

تتم تعديل العنوان

[طارق محمود]

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

مرفق حل للسؤالين بالأكواد

تفضل المرفق
 

a.rar

[محمد الريفى]

اولا: جزى الله خيرا القائمين على هذا المنتدى

ثانيا: واود ان اشكر الاساتذه الافاضل الكرماء فى العطاء

الاستاذ الكريم/ احمد النجار

الاستاذ الكريم / طارق محمود

على مساعدتهم لى فى هذا الملف الذى والله ابحث عن من يساعدنى منذ شهر تقريبا

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

لذا فاننى اعتذر عن الحاحى فى الاجابه ان كنت انحرفت عن قواعد المشاركه فى البرنامج

ثالثا : احب ان اتعلم ال vba اكسيل . فكيف لى بذلك؟  واطمع من الاستاذ الفاضل شرح الكود حتى استطيع استخدامه مره اخرى فى ملفات اخرى

رابعا : من خلال مشاركتى هذا  اتمنى ان اساعد الاخرين معكم من خلال بناء المعادلات حيث اننى حاصل على MOS: Microsoft Office Excel 2010 Expert

وعندى علم متواضع فى الاكسيل وهذا هو حسابى على الفيس بوك https://www.facebook.com/elrifi.elrify?ref=tn_tnmn

واخيرا جزاكم الله خيرا ودام الله عطاؤكم ونفع بكم

[طارق محمود]

السلام عليكم

مرفق الملف مرة أخري وبه ورقة خاصة لشرح الكود

a.rar

[محمد الريفى]

استاذى الفاضل

جزاكم الله خيرا على سرعة الاجابه ومساعدتى

ولكن

كلما ضغطت على ترحيل الى صفحات الفروع فانه يكرر نفس ما قد تم كتابته مره اخرى

بمعنى انه مع كل ضغطه فانه يكرر نسخ نفس الصفوف مره اخرى

وهكذا فاننى فى حالة السهو والضغط اكثر من مره فاننى ساكررنفس البيانات

[محمد الريفى]

up

[طارق محمود]

السلام عليكم

أخي الحبيب

الرجاء تحديد الطلب فيما يلي سأساعدك في ذلك

هل تريد مثلا:

1- أن يتم حذف البيانات التي تم ترحيلها بالفعل 

(وفي هذا حذف للبيانات في ورقة اليومية العامه التي تم ترحيلها من قبل)

 

2- أن يتم حذف البيانات من الصفحات المُرحل إليها قبل بدأ الترحيل الجديد

(وفي هذا حذف للبيانات السابق ترحيلها)

 

3- أن يتم مقارنة ومن ثم التعرف علي البيانات المُرحلة سابقا مع بيانات الترحيل الجديد لتجنب تكرارها

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

 

4- أي مرجع آخر تضمن به عدم التكرار وعدم الحذف (عليك تحديده)

[محمد الريفى]

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

جزاكم الله خير على اهتمامكم

وما اريده واحتاجه موجود فى داخل الصفحه وملخصه كالتالى

1- ترحيل نطاق الصف مره فقط مثلا من(B4:AK4) بمعنى عند الضغط على الترحيل يرحل بيانات هذا الصف فقط حتى لا يتكرر الترحيل

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

ويكون هذا التقرير بشكل عمودى وليس افقى . وهذا ان كان وقت سيادتكم يسمح

3- عند الضغط على زر الترحيل فانه يحدث بطىء وقد اردت استخدام الاكواد VBA هربا من المعادلات وبطوءها

واننى والله لا اعرف كيف اشكركم على مساعتكم لى جزاكم الله خيرا عنى

a.rar

[طارق محمود]

السلام عليكم

أخي الكريم

1- ترحيل نطاق الصف مره فقط مثلا من(B4:AK4)

مازلت لم أفهم ، فعندك الآن زرين للترحيل الأحمر علي اليسار لصفحة الأقساط ليس به مشكلة حسب مافهمت لأنه يمسح مابهذه الصفحة قبل نقل أي شيء إليها

والأزرق علي اليمين الذي يرحل لصفحات الفروع ، وهذا الذي يكرر فإذا لم يكن لديك معيار للترحيل ستظل المشكلة قائمة

بمعني أنك إن ضغطت سهوا مرتين علي الزر وأنت في الصف الرابع فسينقل الصف الرابع (B4:AK4) مرتين للفرع التابع له

مرة أخري حدد مرجعا وحيدا لكل بيان يتم الترحيل بناءا عليه ، فإن كان موجودا في الصفحة المُرحل إليها فلايتم الترحيل

 

2-احتاج منك مساعده اخرى وهى عمل تقرير اقساط (مستحق-متاخر-مسدد) ويكون مصدره صفحة المبيعات القسط ويكون هذا التقرير بشكل عمودى وليس افقى .

في تلك الصفحة : لايوجد أيضا مرجع يتم التحديد علي أساسه أن القسط مستحق-متاخر-مسدد

 

3- عند الضغط على زر الترحيل فانه يحدث بطىء وقد اردت استخدام الاكواد VBA هربا من المعادلات وبطوءها

عندي الكود يعمل بسرعة عالية جدا ولايوجد بطؤ ، رجاء جرب تغير الجهاز أو ترسل الملف كاملا لعل به عوائق أخري

[محمد الريفى]

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

جزاك الله خيرا استاذى الفاضل /طارق محمود

توضيح

1-احتاج الزر الازرق يعمل مثل الزر الاحمر  وممكن ان يكون المعيار مثلا هو خانة التاريخ اذكانت اكبر من الواحد فيتم الترحيل الى صفحة الفرع

2- بالنسبة الى تقرير الاقساط ( القسط مستحق-متاخر-مسدد)

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

رصيد القسط = صفر فانه يعنى سداد القسط

رصيد القسط اكبر من >0 فانه يعنى متاخر اذا كان اكبر من تاريخ الاستحقاق

او ام يحن تاريخ استحقاقه

 

3- واننى والله اعجز عن شكرك

a.rar

[أ/حكيم]

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

[طارق محمود]

السلام عليكم

أخي العزيز / أ:حكيم

شاكر لك مرورك الطيب

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

 

أخي العزيز / الريفي

1-احتاج الزر الازرق يعمل مثل الزر الاحمر  وممكن ان يكون المعيار مثلا هو خانة التاريخ اذكانت اكبر من الواحد فيتم الترحيل الى صفحة الفرع

إذا جعلنا التاريخ معيار فقد تفقد بعض البيانات

مثلا إذا لديك في سطرين مختلفين بيانين في يوم واحد (مثلا 02 January 2014)  لنفس الفرع (فرع 2)

فعند الضغط علي الزر وأنت بالسطر الأول سيتم النقل

ولكن عند الضغط علي الزر وأنت بالسطر الثاني سيقارن التاريخ (المعيار) ويجده موجودا من قبل في صفحة الفرع فلن يتم النقل
 

2- بالنسبة الى تقرير الاقساط ( القسط مستحق-متاخر-مسدد) ، فاننى قد حددت المعيار بناء على عمود رصيد القسط
فاذا كان رصيد القسط = صفر فانه يعنى سداد القسط ، رصيد القسط اكبر من >0 فانه يعنى متاخر اذا كان اكبر من تاريخ الاستحقاق

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

وغيرت بداية ونهاية فتره التقرير أيضا لنفس السبب (يمكنك تغيرها كما تشاء

مثلا لن يلتفت للأقساط التي تاريخ استحقاقها أصغر من بداية الفتره 01/04/2014 أو أكبر من نهاية الفتره 30/05/2014

 

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

 

الكود يعمل بالضغط علي الزر الأخضر في صفحة تقرير الاقساط

مرفق الملف وبه الكود الجديد

 

a2.rar

[محمد الريفى]

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

استاذى الفاضل/ طارق محمود

أتمنى من الله عز وجل أن يعطيكم الصحة والعافية
شكرا لكم على ما قدمتموه لي

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

الباشمهندس طارق ( الاستاذ الفاضل الكبير )

صاحب حلول المسائل الصعبة المعقده التى تمثل لنا قمه المشاكل وعندما نرى الحل ننبهر بالحل وبساطته

زادك الله من علمه وفضله واحسانه