ترتيب تلقائي على اساس اعلى قيمة للصف بالكامل

[رسول هادي]

السلام عليكم في المرفق مجموعة من البيانات لاسماء طلبة المطلوب عند كتابة المعدل في خلية المعدل فن ترتيب الطالب يتغير حسب تسلسل المعدل.

مع التقدير

ترتيب تلقائي.rar

تم تعديل يوليو 3, 2013 بواسطه رسول هادي

[يحيى حسين]

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

 

شاهد الملف المرفق أخي 

 

ترتيب تلقائي.rar

[رسول هادي]

شكرا جزيلا اخي العزيز وبارك الله فيك وزادك علما الى علمك.

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

[يحيى حسين]

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

 

أخي لتنفيذ طلبك بهذه الطريقة 

 

رايت اكليك على اسم الشيت و اختر 

view code

ثم الصق الكود التالي 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Columns("C:C")) Is Nothing Then
        Range("A1:E" & LR).Sort Range("C2"), xlDescending
    End If
End Sub

تم تعديل يوليو 3, 2013 بواسطه يحيى حسين

[رسول هادي]

بصراحة ان خجلان منك وانا لا اعرف كيف اشكرك ولكن اسال الله رب العرش العظيم ان يحفظك من كل مكروه...

مشكور اخي وبارك الله فيك

[يحيى حسين]

حياك الله أخي الحبيب 

و كل ما نطمع به دعوة في ظهر الغيب لعلها تصادف ساعة استجابة 

[رشراش علي]

جازاك الله خيرا أستاذنا الكريم