عادل ابوزيد قام بنشر أبريل 25, 2014 مشاركة قام بنشر أبريل 25, 2014 الاساتذة الكرام سبق عرص الموضوع وفق الرابط التالى http://www.officena.net/ib/index.php?showtopic=53328 وتم التوصل لحل الملف ولكن ليس بسبب الترحيل وهو اللون فالفكرة الاساسية وهى ان استخدام اللون كعامل من عوامل الترحيل لم تحل لذلك اعرض على سيادتكم الملف مرة اخرى لترحيل الاعمدة من شيت دخول اقراص الى الشيت الثانى بناء على لون الخلية فى العمود a فى شيت دخول اقراص تقبلوا منى كل الحب والتقدير ترحيل اعمده معينة بناء على اللون.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أبريل 26, 2014 مشاركة قام بنشر أبريل 26, 2014 أخي العزيز/ عادل أبو زيد الترحيل عندك ليس على حسب لون الخلية لو كان كذلك لكان الأمر ممكن بسهولة لكن الترحيل عندك على حسب لون التنسيق الشرطي للخلية وهذا هو ما صعب الأمر علي حاولت ولكن يقوم بترحيل كل القيم لم يضبط معي اختيار الشرط من خلال التنسيق الشرطي أتمنى من أحد الأخوة الذي يعرف الطريقة أن يساعدنا لأنها سوف تكون فائدة للجميع إن شاء الله تقبل تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر أبريل 26, 2014 الكاتب مشاركة قام بنشر أبريل 26, 2014 استاذى العزيز الشهابى اشكرك من اعماق قلبى على تواصلك معى ومتابعة الموضوع .. وكما تفضلتم الموضوع سيكون اضافه جميلة ومهمة لمعلوماتنا ودرس جديد سنتعلمه من علمائنا فى منتدانا الكبير اشكرك مرة اخرى من اعماق قلبى ودام الله عليك نعمه وفضله واحسانه وزادك بركه فى الصحة والرزق رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أبريل 27, 2014 مشاركة قام بنشر أبريل 27, 2014 أخي العزيز/ عادل أبو زيد هذا كود باستعمال شروط التنسيق الشرطي من أجل الترحيل Sub trhel() Application.Calculation = xlManual Application.EnableEvents = False Application.ScreenUpdating = False Dim cl As Range Sheets("البضاعةالتىمرعليهافترةمعينة").Range("B6:I10000").Clear For Each cl In Sheets("دخول اقراص").Range("c4:c10000") If cl.Value > 1 And Date - cl > [c2] And cl.Offset(0, 107).Value = 0 Then cl.Offset(0, -1).Resize(1, 7).Copy Sheets("البضاعةالتىمرعليهافترةمعينة").Range("B" & Sheets("البضاعةالتىمرعليهافترةمعينة").[B1000].End(xlUp).Row + 1) End If Next Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlAutomatic End Sub أما بالنسبة للترحيل عن طريق اللون الذي يضعه التنسيق الشرطي في الخلية لم استطع ذلك ولا زلت اتظر تدخل أحد الإخوان للوصول لطرقة الترحيل عن طريقة نتيجة التنسيق الشرطي لأن الكود السابق يستخدم الشروط التي وضعتها في معادلة التنسيق الشرطي ويقوم بالترحيل لكن لو كانت المعادلة طويلة ومعقدة ربما يكون الأمر فيه شيء من الصعوبة وبالتالي فالترحيل عن طريق نتيجة التنسيق الشرطي سوف يكون مجدي ومن ناحية أخرى تكون فائدة وتعليما لنا ولو كان الأمر غير ممكن فضلا من خبرائنا الإجلاء الإفادة تحياتي وتقديري وهذا الملف المرفق ترحيل اعمده معينة بناء على لون خلية فى عمود معين.rar رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر أبريل 27, 2014 الكاتب مشاركة قام بنشر أبريل 27, 2014 الاستاذ الفاضل الشهابى اشكرك من اعماق قلبى على متابعتك ومشاركتك الفعالة زادك الله من علمه وفضله ونحن فى انتظار خبراء المنتدى لتطبيق الترحيل بناء على لون الخلية وفق التنسيق الشرطى رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مايو 3, 2014 مشاركة قام بنشر مايو 3, 2014 السلام عليكم انا ارى ان كود اخي الحبيب الشهابي فيه الكفاية وهو الحل الامثل اما اقحام ناتج التنسيق الشرطي في الكود غير صحيح ويكاد يكون مستحيل تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر مايو 3, 2014 الكاتب مشاركة قام بنشر مايو 3, 2014 استاذى العزيز القدير الغالى عبد الله باقشير اجابتك على الموضوع هو درس جديد قمتم بتعليمه لنا ... فعدم وجود حل هو اجابة حتى لا ينطرح السؤال مرة اخرى زادكم الله من فضله وعلمه وبركاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان