محتاج كود لترتيب الاسماء ابجدي

[أ محمد عبد الصمد]

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

[Ali Mohamed Ali]

تفضل أخى

ترتيب الأسماء والنوع.xls

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

حرب هذا الملف

الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim lr As Long
 If Target.Column = 1 And Target.Cells.Count = 1 Then
 lr = Cells(Rows.Count, 1).End(3).Row
 Range("a1:a" & lr).SortSpecial
 End If
Application.EnableEvents = True
End Sub

الملف مرفق

 

autu_sort.xlsm

[أ محمد عبد الصمد]

السلام عليكم ورحمة الله وبركاته الف الف شكر ali mohamed ali والاستاذ سليم حاصبيا فلقد قمت بمساهمات فعالة على اثرها نلت المراد وقد وجدت فى مساهامتكم ما اريد