ماعدة فى ترتيب تلقائى

[ahmedmandour25]

السلام عليكم.. اريد ترتيب الأسماء بطريقة تلقائية من الألف إلى اليترتيب الأسماء تلقائى.xlsاء... وعند اضافى اسم جديد يدخل فى ترتيبه 

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

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

ضع الكود التالى فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
LR = Range("B" & Rows.Count).End(3).Row + 1
If Not Intersect(Target, Range("B8:B" & LR)) Is Nothing Then
Range("B8:O" & LR).Sort key1:=Range("B8"), order1:=xlDescending
End If
End Sub

 

[ahmedmandour25]

جزاك الله خيرا .. عند التطبيق يأتى مرتب بالعكس يعنى يبدأ بالياء وينتهى بالألف 

[حسونة حسين]

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

عدل 

xlDescending

الى 

xlAscending