المساعده بإصلاح الكود المتمثل عمله بالفرز والتصفية

[علي بن علي]

اساتذتي الكرام

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

هل بالإمكان اصلاح الكود المرفق المتمثل عمله

بالفرز الأبجدي من أ الى ي

لأعمده المندوب والدوله والمنطقة

الشرح والتوضيح مرفق مع الملف .

مع خالص الشكر والتقدير لإساتذتنا الكرام

فرز وتصفية.xlsb

[lionheart]

Try

Sub Test()
    Dim lr As Long
    With ActiveSheet
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("F3"), Order:=xlAscending
            .SortFields.Add Key:=Range("G3"), Order:=xlDescending
            .SortFields.Add Key:=Range("H3"), Order:=xlAscending
            .SetRange ActiveSheet.Range("A3:H" & lr)
            .Header = xlYes
            .Apply
        End With
    End With
End Sub

 

[محمد هشام.]

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

Sub Sort_Tbl()
Dim sh As Worksheet
Dim WStable  As ListObject
Set sh = ThisWorkbook.Sheets("Data")
Set WStable = sh.ListObjects("الجدول1")
 
 Application.ScreenUpdating = False
    
    With WStable.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("الجدول1[[#All],[المندوب]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlAscending
        .SortFields.Add2 Key:=Range("الجدول1[[#All],[الدولة]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=Range("الجدول1[[#All],[المنطقة]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlAscending

        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

فرز وتصفية.xlsb

[علي بن علي]

Mohamed Hicham

استاذي العزيز لدي اوفس ٢٠١٦

فتحت الملف عليه وعند ضغط زر الفرز والتصفية يعطيني خطاء بكود ران تايم ارور ٤٣٨

[محمد هشام.]

جرب اخي استخدام كود الاستاد  lionheart  فهو  يؤدي المطلوب انا وضعت الكود فقط للتنوع واثراء الموضوع لا غير