الشيباني1 قام بنشر مارس 2, 2013 قام بنشر مارس 2, 2013 اخواني الاعزاء تحية طيبه ارجو التفضل بالمساعده بتعديل الكود ليقوم بمسح كل البيانات التي رحلت الى الجدول (2) من الجدول الرئيسي والابقاء على بيانات الجدول (1) مع الامتنان ترحيل بشرط2.zip 1
طارق محمود قام بنشر مارس 2, 2013 قام بنشر مارس 2, 2013 السلام عليكم أخي العزيز غير الكود بالتالي Sub MOVE() Application.ScreenUpdating = False Dim RNG1, RNG2, RNG3, CEL As Range Set RNG0 = Sheets("ورقة1").[B5:C1000] Set RNG1 = Sheets("ورقة1").[C5:C1000] Set RNG2 = Sheets("ورقة1").[E5:F1000] Set RNG3 = Sheets("ورقة1").[H5:I1000] RNG0.Sort Key1:=[C5], Order1:=xlDescending [E5:I99].ClearContents For Each CEL In RNG1 If CEL.Value <= 20 Then GoTo 10 Next 10 r = CEL.Row: LR = [B999].End(xlUp).Row Range("B" & r & ":C" & LR).Copy [H5].PasteSpecial Paste:=xlPasteValues Range("B" & r & ":C" & LR).ClearContents [H19:I19].Copy: RNG0.PasteSpecial Paste:=xlPasteFormats Range("B5:C" & r - 1).Copy [E5].PasteSpecial Paste:=xlPasteValues RNG0.Sort Key1:=[B5], Order1:=xlAscending RNG2.Sort Key1:=[E5], Order1:=xlAscending RNG3.Sort Key1:=[H5], Order1:=xlAscending Application.ScreenUpdating = True End Sub أو تفضل المرفق ترحيل بشرط3.rar 2
أبو محمد أشرف قام بنشر مارس 2, 2013 قام بنشر مارس 2, 2013 بارك الله فيك اخي واستاذي طارق نتعلم منك الكثير
الشيباني1 قام بنشر مارس 2, 2013 الكاتب قام بنشر مارس 2, 2013 استاذنا الرائع القدير مع جزيل شكري وامتناني ارجو (ان كان ذلك ممكنا)اجراء تعديل على الكود ليتقبل ديونا ووكلاء آخرين تتم اضافتهم حسب الحاجة ليتم ترحيل ديونهم الى الجدولين مع ثبات البيانات المرحله سابقا مع الامتنان
طارق محمود قام بنشر مارس 2, 2013 قام بنشر مارس 2, 2013 السلام عليكم تفضل المرفق وبه الكود يتقبل ديونا ووكلاء آخرين تتم اضافتهم حسب الحاجة ليتم ترحيل ديونهم الى الجدولين مع ثبات البيانات المرحله سابقا وبه أيضا تلوين أخضر غامق للمرحل حديثا فقط ترحيل بشرط4.rar 1
الشيباني1 قام بنشر مارس 3, 2013 الكاتب قام بنشر مارس 3, 2013 استاذنا القدير مع جزيل شكري وتقديري على هذا التعديل الرائع اتساءل عن امكانية اجراء تعديل اخير يقوم بترحيل البيانات الاقدم عند تغيرها الى جدول رقم (2) فمثلا اذا قلت ديون الوكيل (D) الى (5.5) وفعلنا الكود لا يقوم بالترحيل الى الجدول المطلوب مع الامتنان
الشيباني1 قام بنشر مارس 4, 2013 الكاتب قام بنشر مارس 4, 2013 استاذنا القدير بارك الرحمن فيك وادامك لنا منقذا
الشيباني1 قام بنشر مارس 4, 2013 الكاتب قام بنشر مارس 4, 2013 استاذنا القدير تحية طيبه لدى مسح البيانات المرحله وتعديل بعض الارقام ليتم ترحيلها الى الجدول (2) وتفعيل الكود لم يعمل ولم اتبين السبب ارجو المساعده مع التقدير ترحيل بشرط5.zip
طارق محمود قام بنشر مارس 4, 2013 قام بنشر مارس 4, 2013 الكود أخي العزيز يسجل في متغير S آخر صف تم ترحيله ثم يبدأ الترحيل من الصف الذي يليه لكيلا يرحل أي بيان أكثر من مرة حل سريع: إضغط Ctrl-F3 ، ستجد متغير اسمه S ويحمل قيمة آخر صف تم ترحيله إن أردت يدويا ترجع قيمته للرقم 5 (رقم أول صف في البيانات)
الشيباني1 قام بنشر مارس 4, 2013 الكاتب قام بنشر مارس 4, 2013 استاذنا القدير الشكر قليل بحقك جزاك الرحمن خير الجزاء وادامك لنا مرجعا
طارق محمود قام بنشر مارس 5, 2013 قام بنشر مارس 5, 2013 السلام عليكم أخي الشيباني لم أنتبه لسؤالك في المشاركة #7 امكانية اجراء تعديل اخير يقوم بترحيل البيانات الاقدم عند تغيرها الى جدول رقم (2) فمثلا اذا قلت ديون الوكيل (D) الى (5.5) وفعلنا الكود لا يقوم بالترحيل الى الجدول المطلوب مع الامتنان ممكن طبعا ولكني مشغول جدا اليوم سأراها غدا إن شاء الله
الشيباني1 قام بنشر مارس 7, 2013 الكاتب قام بنشر مارس 7, 2013 استاذنا القدير تحية طيبه لا زلت منتظرا لأني لن يخيب بأذن الله ظني مع الامتنان
طارق محمود قام بنشر مارس 7, 2013 قام بنشر مارس 7, 2013 السلام عليكم أخي العزيز مشغووول أمهلني يوما أو يومين
طارق محمود قام بنشر مارس 9, 2013 قام بنشر مارس 9, 2013 السلام عليكم تفضل أخي العزيز ماطلبت بالمرفق ترحيل بشرط5.rar
الشيباني1 قام بنشر مارس 9, 2013 الكاتب قام بنشر مارس 9, 2013 استاذنا القدير مع جزيل شكري وتقديري لجهودكم الرائعه قمت بالترحيل الى الجدولين (1و2) ولكن لدى تغيير بعض الارقام المتبقيه في الجدول الرئيسي لترحل الى جدول رقم (2) حدثت مشكلة في الجداول لم اتبين سببها . ارجو التفضل بالتجربه مع الامتنان
الشيباني1 قام بنشر مارس 11, 2013 الكاتب قام بنشر مارس 11, 2013 استاذنا القدير تحية طيبه اتساءل عن امكانية تعديل الكود ليرحل البيانات الى الجدول الثاني فقط حيث ان بيانات الجدول الاول ستبقى في الجدول الرئيسي مع الشكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.