أيهاب ممدوح

السلام عليكم مرفق ملف ايجارات يوجد لكل عمارة صفحه بها بيانات المستأجرين المطلوب نقل بيانات المستأجر بالكامل الي صفحه المتأخرين عن السداد لو كان عدد الايام اكبر من صفر المطلوب رقم 2 يوجد صفحه اسمها سند قبض في الخليه A10 نهاه التاريخ المدفوع اريد يتم ترحيله الي خليه نهايه الايجار في صفحه العمارة مع صف المستأجر المحددين اعلي السندالايجارات.xlsm

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

ممتاز جدا هل من الممكن استخراج السنوات في الخليه والشهور في خليه اخري والايام في خليه ثالثه ممكن جداً dATE_IF 1.xlsx

السلام عليكم مطلوب معرفه عدد كام سنه وكام شهر وكام يوم في عدد ايام مثلا 400 يوم عن طريق دوال او كود يقوم باستخراج عدد السنين 1 والشهور 1 والايام 10 ولكم الشكر

تمام جزاك الله كل خير هذا هو المطلوب بالظبط

السلام عليكم مرفق الملف بدون تنسيقات المطلوب ترحيل من العمود B الصفحه سندات قبض الي العمود C في صفحه العميل ترحيل من العمود C الصفحه سندات قبض الي العمود D في صفحه العميل ترحيل من العمود D الصفحه سندات قبض الي العمود E في صفحه العميل ترحيل من العمود E الصفحه سندات قبض الي العمود F في صفحه العميل ترحيل من العمود F الصفحه سندات قبض الي العمود G في صفحه العميل ترحيل من العمود G الصفحه سندات قبض الي العمود H في صفحه العميل ترحيل من العمود H الصفحه سندات قبض الي العمود I في صفحه العميل ترحيل من العمود I الصفحه سندات قبض الي العمود J في صفحه العميل ترحيل من العمود J الصفحه سندات قبض الي العمود K في صفحه العميل ترحيل من العمود K الصفحه سندات قبض الي العمود L في صفحه العميل ترحيل من العمود N الصفحه سندات قبض الي العمود M في صفحه العميل الايجار Salim.xlsm

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

السلام عليكم مرفق ملف به الكود علي الملف وبه خلل كبير علي الرغم من وجود كلمه تم الترحيل يقوم بالترحيل كل البيانات جديد وقديم ويقوم بكتابه كلمه تم الترحيل في العمود بالكامل لا اعلم الخلل ارجوا الافادة الايجار ehab.xlsm

تمام براجع الكود وبخبرك بالنتيجه شكرا اخي الكريم

اتوقع ان لو غيرت k هيأثر علي قيمه i وهيأثر علي قيمة الترحيل لا علاقة للــ k يهذا الامر (أصلاً يمكن حذف هذا المتغير k الذي لا دور له)

جزاك الله خير لكن الكود يعمل بالكامل اول مرة لكن المرة الاخري لا يعمل /// رد طبعاً لن يعمل لانه أضاف عبارة" تم الترحيل "في المكان المناسب لكن اذا اضفت بيانات جديدة سوف ترحل كالعادة و يقوم الكود باضافة هذه العبارة مجدداً في نهايةكل سطر من البيانات الجديدة عند اضافه بيانات في الصفوف الاخري لا يعمل الكود تم اضافه بيانات جديدة ولم تضاف واعتقد ان المتغير i = 2 To k اي ان الصفوف من 2 الي 4 فقط والله اعلم /////// استبدل الحرف K بــــ LrP For i = 2 To Lrp

الاخوة الكرام ارجوا اضافه كلمه تم الترحيل الي اخر عمود في الجدول وهو العمود (q) ويوضع شرط في الكود عدم ترحيل الصف طالما موجود كلمه تم الترحيل حاولت عملها لكن لم تظبط معي ارجوا المساعده الايجار ehab.xlsm

هل من طريقه لتصحيح الكود

اخي الكريم تم تجربه الكود ويوجد بعض المشاكل وهو يقوم بترحيل اخر عمليه لكل الكشوف حتي لو تم ترحيلها وارجوا العمل علي الكود هذا Sub REPORT_salim() Application.ScreenUpdating = False Dim My_name$ Dim SpecLr% Dim sh As Worksheet: Set sh = Sheets("سندات القبض") Dim k%, i%: k = Sheets.Count Dim LrP%: LrP = sh.Cells(Rows.Count, "P").End(3).Row If LrP = 1 Then LrP = 2 For i = 2 To k My_name = sh.Cells(i, "P") SpecLr = Sheets(My_name).Cells(Rows.Count, "c").End(3).Row + 1 With Sheets(My_name) .Cells(SpecLr, 3) = sh.Cells(i, "B") .Cells(SpecLr, 4) = sh.Cells(i, "D") .Cells(SpecLr, 5) = sh.Cells(i, "e") .Cells(SpecLr, 6) = sh.Cells(i, "f") .Cells(SpecLr, 7) = sh.Cells(i, "h") .Cells(SpecLr, 8) = sh.Cells(i, "i") .Cells(SpecLr, 9) = sh.Cells(i, "g") .Cells(SpecLr, 10) = sh.Cells(i, "k") .Cells(SpecLr, 11) = sh.Cells(i, "n") .Cells(SpecLr, 12) = sh.Cells(i, "l") End With Next Application.ScreenUpdating = True End Sub

جزاك الله خير . جاري التجربه

جزاك الله خير لكن طلب اخير بخصوص الموضوع هل يوجد طريقه لمنع تكرار الترحيل البيانات التي تم نقلها

تم التأكد من الاسماء ونفس المشكله قائمه علي الرغم من الكود يعمل بشكل صحيح يوجد صفحات اخري بالملف عند حذفها تم حل المشكله لكن اريد الكود لا يتعرف الا علي الصفحات الموجود بالعمود p هل السطر Dim k%, i%: k = Sheets.Count له علاقه بالامر لاني عندما استبدلت Sheets.Count ب رقم 4 وهو عدد صفحات العملاء تم عمل الكود ولكن فيه خلل وهو نقل اسماء البعض والباقي لا ولا اعلم ما هو الخطأ في الكود أضف هذا السطر الى الكود مباشرة بعد For i=2 to K On Error Resume Next

اخي الكريم يعطي خطأ في السطر ///// يجب ان تكون اسماء الصفحات يالضبط كما هي يالخلايا بالعامود P (دون مسافات زائدة او ناقصة) SpecLr = Sheets(My_name).Cells(Rows.Count, "c").End(3).Row + 1

جزاك الله خير وجاري التجربه

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

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

شكرا اخوتي في الله هذا هو الحل للمطلوب شكرا لكل من حاول وساعد ehab3.rar

اخي الكريم سليم شكرا لمجهودك لكن المطلوب هو عند تواجد اسم الفرع مع نوع العمليه بعد ان نتحقق منهم تقوم المعادله باستخراج القيمه المخصومه من مبلغ العمليه مثال فرع رقم 1 قام بعمليه شبكه سعوديه بقيمه 1000 يقوم البنك بخصم نسبه من قيمه العمليه 0.7% *1000=7 هذا هو المطلوب في عمود المستحق ولو قام بعمليه فيزا تخصم 2% من العمليه 2%*1000 = 20 وقيام فرع 2 بعمليه شبكه سعوديه بقيمه 1000 يقوم البنك بخصم قيمه مختلفه بنسبه 0.8%*1000=8 ونفس نسبه الخصم للفيزا في البدايه كانت النسبه واحدة علي جميع الفروع لذلك كانت معدله if تفي بالغرض وهي عند وجود شبكه سعوديه نضرب في 0.7% من جميع العمليات ولو العمليه فيزا يخصم 2% من جميع المليات من النوع فيزا علي جميع الفروع لذلك نرغب في معادله عند وجود نوع العمليه شبكه سعوديه تتحقق من رقم الفرع 2 او 4 هنا تضرب قيمه العمليه في 0.8% لو اسم الفرع خلاف ذلك وهو 1 و 8 تضرب قيمه العمليه في 0.7% لو نوع العمليه فيزا تضرب جميع القيم لجميع الفروع تحت نوع فيزا *2% هذا هو المطلوب لكن ما داخل الملف هو استدعاء لقيمه معينه ارجوا ان اكون وفقت في الشرح تقبل تحياتي اخي الكريم

للرفع

اخي الكريم ابو عيد تمام كما ذكرت بالنسبه للشبكه السعوديه اما البقيه فهو ثابت علي جميع الفروع و وجميع الانواع الاخري 2% شكرا اخي الكريم