علي بن علي قام بنشر مايو 31, 2023 مشاركة قام بنشر مايو 31, 2023 اساتذتي الكرام السلام عليكم ورحمة الله وبركة هل بالإمكان اصلاح الكود المرفق المتمثل عمله بالفرز الأبجدي من أ الى ي لأعمده المندوب والدوله والمنطقة الشرح والتوضيح مرفق مع الملف . مع خالص الشكر والتقدير لإساتذتنا الكرام فرز وتصفية.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 31, 2023 أفضل إجابة مشاركة قام بنشر مايو 31, 2023 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 2 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مايو 31, 2023 مشاركة قام بنشر مايو 31, 2023 وعليكم السلام ورحمة الله تعالى وبركاته 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 1 رابط هذا التعليق شارك More sharing options...
علي بن علي قام بنشر يونيو 1, 2023 الكاتب مشاركة قام بنشر يونيو 1, 2023 Mohamed Hicham استاذي العزيز لدي اوفس ٢٠١٦ فتحت الملف عليه وعند ضغط زر الفرز والتصفية يعطيني خطاء بكود ران تايم ارور ٤٣٨ رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 1, 2023 مشاركة قام بنشر يونيو 1, 2023 جرب اخي استخدام كود الاستاد lionheart فهو يؤدي المطلوب انا وضعت الكود فقط للتنوع واثراء الموضوع لا غير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان