الترتيب الألي

[bachiri401]

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

قائمة التلاميذ المعفيين السنة الثالثة.xlsx

[Ali Mohamed Ali]

تفضل

 

 

قائمة التلاميذ المعفيين السنة الثالثة2.xlsm

تم تعديل أبريل 27, 2019 بواسطه ali mohamed ali

[سليم حاصبيا]

بعد اذن اخي علي

الترتيب يتم في العامود الثاني مما يسبب مشاكل في بقية البيانات في الاعمدة المتبقية (مثلا تاريخ ميلاد محمد كان 1/3/2015 فاصبح 10/12/2009) 

لذلك اقترج هذا الكود

1-   يتم الترتيب ابتداء من العامود 2 و حتى العامود 10 (حيث لا يتم المس بالترقيم الالي في العامود الاول)

2 -  الترقيم اوتوماتيكي  يرجى عدم الترقيم (تم وضع حماية له)

3-   لا يتم الترتيب الا اذا كتمل الصف بـــــ 10 عناصر

الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw%, x%, lr%: rw = 8

 x = Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 10)))
   If Target.Row > rw And Target.Column <= 10 And x = 10 Then
      lr = Cells(Rows.Count, 1).End(3).Row
      Cells(rw, 2).Resize(lr, 9).Sort _
      Key1:=Cells(rw, 2), _
      Order1:=1, Header:=2
   End If
End Sub

الملف مرفق

 

Sort_data.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم عمل رائع بارك الله فيك

[وجيه شرف الدين]

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

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

ماشاء الله استاذ سليم عمل رائع كالعادة