ترحيل اعمده معينة بناء على اللون

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

الاساتذة الكرام

سبق عرص الموضوع وفق الرابط التالى

http://www.officena.net/ib/index.php?showtopic=53328

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

لذلك اعرض على سيادتكم الملف مرة اخرى لترحيل الاعمدة من شيت دخول اقراص الى الشيت الثانى بناء على لون الخلية فى العمود a  فى شيت دخول اقراص

تقبلوا منى كل الحب والتقدير

ترحيل اعمده معينة بناء على اللون.rar

[الشهابي]

أخي العزيز/  عادل أبو زيد

الترحيل عندك ليس على حسب لون الخلية لو كان كذلك لكان الأمر ممكن بسهولة

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

حاولت ولكن يقوم بترحيل كل القيم 

لم يضبط معي اختيار الشرط من خلال التنسيق الشرطي 

أتمنى  من أحد الأخوة الذي يعرف الطريقة أن يساعدنا 

لأنها سوف تكون فائدة للجميع إن شاء الله 

تقبل تحياتي وتقديري 

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

استاذى العزيز الشهابى

اشكرك من اعماق قلبى على تواصلك معى ومتابعة الموضوع .. وكما تفضلتم الموضوع سيكون اضافه جميلة ومهمة لمعلوماتنا ودرس جديد سنتعلمه من علمائنا فى منتدانا الكبير

اشكرك مرة اخرى من اعماق قلبى ودام الله عليك نعمه وفضله واحسانه وزادك بركه فى الصحة والرزق

[الشهابي]

أخي العزيز/  عادل أبو زيد

هذا كود باستعمال شروط التنسيق الشرطي من أجل الترحيل 

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

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

الاستاذ الفاضل الشهابى

اشكرك من اعماق قلبى على متابعتك ومشاركتك الفعالة

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

ونحن فى انتظار خبراء المنتدى لتطبيق الترحيل بناء على لون الخلية وفق التنسيق الشرطى

[عبدالله باقشير]

السلام عليكم

انا ارى ان كود اخي الحبيب الشهابي فيه الكفاية وهو الحل الامثل

اما اقحام ناتج التنسيق الشرطي في الكود غير صحيح ويكاد يكون مستحيل

تقبل تحياتي

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

استاذى العزيز القدير الغالى عبد الله باقشير

اجابتك على الموضوع هو درس جديد قمتم بتعليمه لنا ... فعدم وجود حل هو اجابة حتى لا ينطرح السؤال مرة اخرى

زادكم الله من فضله وعلمه وبركاته