تصحيح كود ابجدة

[عبدالعزيز محمد]

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

ومبارك عليكم رمضان 

في المرفق كود ابجدة كنت قد حملته من المنتدى ولكن بعد تجربته اتضح به عيب وهو عند كتابة أي اسم يبدأ بـ ا (ألف) مثل احمد أو اكرم أو امجد فلا يضععهم في مكانهم المناسب ولكن يدرجهم في أعلى الجدول وكلما قمت بكتابة اسم يبدأ بـ ا مثل احمد أو اكرم أو امجد يدرجهم في أعلى الجدول وبالتجربة تتضح المشكلة .

نأمل تصحيحه .

Aziz.rar

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

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

استبدل الكود السابق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Rem كود يقوم بترتيب وفرز البيانات بمجرد الكتابة
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
   Rem المدى المراد فرزه
 Range("a2:a" & LR).Select
 Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       Range("a3").Select
   
End Sub

 

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

اسنبدل الكود بهذا

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Or Target.Row <= 2 Then GoTo 1
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
Range("A2:b" & lr).Sort Key1:=Range("A2"), Order1:=1, Header:=1
1:
  Application.ScreenUpdating = True
End Sub

 

9 دقائق مضت, زيزو العجوز said:

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

استبدل الكود السابق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Rem كود يقوم بترتيب وفرز البيانات بمجرد الكتابة
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
   Rem المدى المراد فرزه
 Range("a2:a" & LR).Select
 Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       Range("a3").Select
   
End Sub

 

عذراً اخي زيزو

لم انتبه لمشاركتك الا بعد ادراج مشاركتي

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

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

اخى الكريم الاستاذ سليم / كل عام وانتم بخير بمناسبة شهر رمضان المعظم

اخى الكريم لا داعى ابدا للاعتذار

فأنت احد اعلام هذا المنتدى ودخولك على اى موضوع هو شرف لكل المشاركين فيه

[عبدالعزيز محمد]

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

مبارك عليكم رمضان

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

هذا المطلوب