اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information