تعديل كود كتشنة يترك الاسم الاول

[الحديثة]

الرجاء التعديل على كود الكتشنة يترك الاسم الاول اذا وضع امامة ارقام فى المواد الدراسية 

حمد 1.rar

[الحديثة]

ما هى المشكلة فى هذا الكود

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

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

استبدل الكود السابق بما يلى

Sub كتشنة()
    Range("A5:m300").Sort Key1:=Range("d5"), Order1:=xlAscending
End Sub

 

 

[الحديثة]

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