تصفية بشرط

[2saad]

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

محتاج اعدل في هذا الكود

بحيث يتم الترتيب رقم 1 أولا ثم رقم 2

بدلا من الذكور  أولا ثم الإناث

lr = Cells(Rows.Count, 2).End(xlUp).Row
  ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("H3:H" & lr) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("C3:C" & lr) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("الصف الثالث").Sort
           .SetRange Range("B3:Q" & lr)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[حسونة حسين]

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

ارفق ملف اخي

[2saad]

شكرا جزيلا أخي الفاضل

الملف المرفق

saad.xlsx

الترتيب بناء علي العمود الملون باللون الأصفر بالملف المرفق

[hegazee]

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

الملف المرفق لا توجد به اي أكواد لتعديلها فما المطلوب ؟ هل إنشاء كود  لأن الكود الذي كتبته  غير مكتمل فهو جزء من كود

[2saad]

شكرا جزيلا أخي الفاضل 

لو تكرمت ممكن أي  كود يفي بالغرض

[عبدالله بشير عبدالله]

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

 

 الكود يرتب حسب العمود H  اولا ث ثم يرتب حسب العمود C

Sub SortByColumn()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A3:S" & lastRow)
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng.Columns(8), Order:=xlAscending
        .SortFields.Add Key:=rng.Columns(3), Order:=xlAscending
        .SetRange rng
        .Header = xlNo
        .Apply
    End With
End Sub

اتمنى ان تجد فيه طلبك

 

تم تعديل أغسطس 13 بواسطه عبدالله بشير عبدالله

[2saad]

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك وزادك الله من علمه