ترتيب تلقائي تنازلى لثلاث جداول في شيت واحد

[علي الرويلي]

الاخوة الكرام منسوبي منتدانا الغالي 
السلام عليكم ورحمة الله وبركاتة
ارجو تعديل هذا الملف ليتناسب مع احتياجاتي ولكم وافر الامتنان
المطلوب:-
فرز تلقائي لكل جدول على حده حسب الدرجة فرز تنازلي من الأكبر الى الأصغر بمعنى 
الجدول الأول   من D2:D21
الجدول الثاني من J2:J21
الجدول الثالث من P2:P21
على ان يكون الفرز بدون معادلات ولا يكون بزر اي تلقائي بمجر ادخال الرقم يتم الفرز

ترتيب تلقائي لثلاث جداول.xlsm

[ابراهيم الحداد]

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

ضع هذا الكود فى حدث الشيت

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 4) <> "" Then
Range("B2:D21").Sort key1:=Range("D2"), order1:=xlAscending
End If
If Cells(Target.Row, 10) <> "" Then
Range("H2:J21").Sort key1:=Range("J2"), order1:=xlAscending
End If
If Cells(Target.Row, 16) <> "" Then
Range("N2:P21").Sort key1:=Range("P2"), order1:=xlAscending
End If
End Sub

 

[علي الرويلي]

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

شكرا على مرورك استاذنا الغالي ابراهيم الحداد

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

[Ali Mohamed Ali]

طبعاّ بعد اذن استاذنا الكبير إبراهيم ... بارك الله فيك كود ممتاز جعله الله فى ميزان حسناتك

تفضل الأمر بسيط جداً ويمكنك تعديله بنفسك ... عليك بتعديل هذه الكلمة من كل الكود xlAscending الى xlDescending
 

[علي الرويلي]

شكرا شكرا شكرا عدد حبات الرمال حبيبنا اللزم علي محمود علي

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

شكرا لهذا المنتدى والقائمين علية والله اني استفدت منه الشيئ الكثير انا وكل واحد مر من هنا