مطلوب عمل كود لترتيب الاسماء هجائياَ البنات ثم الأولاد فى نفس الكشف

[عادل جلال]

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

حياكم الله

أود عمل كود ترتيب الاسماء هجائياَ ( البنات أولاَ ثم بعدهم الأولاد ) فى نفس الكشف وليس فى كشف أخر

وتفعيل الزر الموجود

بارك الله فيكم

انظر النموذج المطلوب

تحياتى

Book1.rar

[عادل جلال]

للرفع

[omar elhosseini]

الاخ عادل جلال

شاهد المرفق

Book2.rar

[عادل جلال]

بارك الله فيك أخى / تامر

[ناصر سعيد]

ربنا يبارك لك .. الاستاذ المحترم ابو تامر

Sub SortMe()
Application.Goto Reference:="MyData"
Selection.Sort Key1:=Range("R5"), Order1:=xlAscending, Key2:=Range("E5") _
    , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
    , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
    xlSortNormal
Range("A1").Select
End Sub

 

[ناصر سعيد]

Sub Sort_Male()
    Dim lr As Long
    lr = Range("E" & Rows.Count).End(xlUp).Row
    Range("E7:Q" & lr).Sort Key1:=Range("F7:F" & lr), _
    Order1:=2, Header:=xlNo
End Sub

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

[ياسر خليل أبو البراء]

هذه الحلقة فيها شرح كافي ووافي إن شاء الله لموضوع الفرز

 

[ناصر سعيد]

Sub SortData()
    Dim LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B9:C" & LR).Sort Key1:=Range("E9:E" & LR), Order1:=2, Key2:=Range("B9:B" & LR), Order2:=1, Header:=xlYes
End Sub

جزاك الله خيرا استاذ ياسر

[ياسر خليل أبو البراء]

وجزيت خيراً أخي العزيز ناصر والحمد لله أن استطعت تنفيذ الشرح

[ناصر سعيد]

اهم سؤال بالنسبه لي

بعد محرر الاكواد ماعمل الكود اللي احنا عايزينه ولكن بطريقه طويله شويه

كيف ام الاختزال ؟

[ياسر خليل أبو البراء]

الاختزال يكون بالبحث عن طريقة أيسر .. وعن طريق التعلم كما وضحت في الحلقة وشرحت باستفاضة .. ووضحت الفرق بين استخدام مسجل الماكرو والطريقة الأفضل 

وهذا لا يعني أننا يمكننا الاستغناء تماماً عن مسجل الماكرو حيث يساعدني مسجل الماكرو على معرفة الصيغة الرئيسية للكود ..أي يعطيني المفردات الرئيسية التي تمكنني من كتابة الكود ...