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

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاساتذة الكرام والاخوة الاعزاءجزاكم الله خيرا وبارك الله في عملكم وعلمكم

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

 

 

فرز الخلايا حسب اللون.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه

Sub Dahmour()
Application.ScreenUpdating = False
Dim Target As Range
For g = 1 To Range("iv1").End(xlToLeft).Column
Set Target = Cells(1, g)
l = Target.Offset(10000, 0).End(xlUp).Row
Add = Target.Resize(l, 1).Address
add2 = Range("Ca1:ca" & l).Address
Range(Add).Copy Range(add2)
For Each c In Range(add2)
If c.Interior.ColorIndex = -4142 Then
c.Offset(0, 1) = x + 10000
x = x + 1
Else
c.Offset(0, 1) = x + 1
x = x + 1
End If
Next
Range("Ca2:cb" & l).Sort key1:=Range("cb2")
Range("Ca2:ca" & l).Copy Target.Offset(1, 0)
Range("Ca1:cb" & l).Clear
Next
Application.ScreenUpdating = True
End Sub

تحياتي

فرز الخلايا حسب +-+-اللون.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ احمد عبدالناصر جزاك الله خيرا

كود رائع  بارك الله فيك

اخي العزيز اذا اردت ان اغير اللون الموجود الى لون اخر لايعمل الكود كيف لي ان اتعامل اذا تغير اللون

دمتم برعاية الله وحفظه

[احمد عبد الناصر]

السلام عليكم

 

استاذ عباس من المفترض ان يعمل حتى بعد تغير الالوان .

 

برجاء ارفق ملف فيه المشكلة .

 

تحياتي

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

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

استاذنا الفاضل صحيح كما تفضلتم يعمل مع بقية الالوان وجزاك الله خيرا لكن في لون واحد مهما كان  اللون لكن انا وضعت اكثر من لون فلم يعمل مع بقية الالوان

هل يمكن ذلك بان يقوم بفرز الالوان الموجودة لكل عمود مع بعض مهما كان عدد الالوان يعني الاحمر اربعة الوان تحت بعض ثم ياتي الاصفر عشرة الوان تحت بعض وهكذا لبقية الالوان لكل عمود

ندعوا الله سبحانه وتعالى ان يجعل جميع اعمالك في ميزان حسناتك

تقبل فائق احترامي وتقديري

 

 

 

فرز الخلايا حسب الالوان.rar

[احمد عبد الناصر]

السلام عليكم

 

الاستاذ و الاخ عباس تحياتي لك

 

جرب هذه 

Sub Dahmour()
Application.ScreenUpdating = False
Dim Target As Range
For g = 1 To Range("iv1").End(xlToLeft).Column
Set Target = Cells(1, g)
l = Target.Offset(10000, 0).End(xlUp).Row
Add = Target.Resize(l, 1).Address
add2 = Range("Ca1:ca" & l).Address
Range(Add).Copy Range(add2)
For Each c In Range(add2)
c.Offset(0, 1) = c.Interior.ColorIndex
Next
Range("Ca2:cb" & l).Sort key1:=Range("cb2"), order1:=xlDescending
Range("Ca2:ca" & l).Copy Target.Offset(1, 0)
Range("Ca1:cb" & l).Clear
Next
Application.ScreenUpdating = True
End Sub

هذا الكود يرتب علي حسب colorindex لكل خلية , ارجو ان يفي بالغرض .

 

تحياتي

--+--فرز الخلايا حسب الالوان.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ احمد عبد الناصر بارك الله فيك عمل رائع وكود متقن وهذا المطلوب

ما شاء الله تبارك الرحمن زادك الله علما ونفع بعلمك

دمتم برعاية الله وحفظه