ترتيب على شرطين التقدير والنوع

[فوزى فوزى]

نشكر المنتدى الرائع والأستاذ سليم الرجل المحترم الذى ساعدنى في هذا الشيت لجلب البيانات على حسب الاختيار من القائمة المنسدلة في نقطة إضافة نريد عمل كود ترتيب بشرطين عند اختيار الصف نريد ترتيب البيانات على حسب البيانات الموضوعه من الخلية F4:F1 وترتيب على حسب النوع المكتوب فى H2:H1                                                     هذا هو الشكل لترتيب البيانات

ترتيب البيانات بشرطين.xlsm

[سليم حاصبيا]

شاهد هذا الفيديو الدقيقة 10 : 2

https://edu.gcfglobal.org/en/excel2013/sorting-data/1/

[فوزى فوزى]

استاذ سليم ان شاكر على ردك على سؤالى شاهدت الفيديو المطلوب عمل كود لترتيب البيانات حسب الاختيارات التى ساضعها وزادكم الله من فضله

[سليم حاصبيا]

الكود

Sub CustomSort() 'Excel VBA to Sort data in a custom list
Dim r As Range
Dim rng As Range

Set r = Sheets("Target").Range("A6", Range("L" & Rows.Count).End(xlUp))
Set rng = Sheets("Target").Range("F1:F4")
On Error Resume Next
Application.AddCustomList rng
r.Sort key1:=[L6], order1:=1, ordercustom:=Application.CustomListCount + 1, _
key2:=[J6], order2:=2, Header:=1
Application.DeleteCustomList Application.CustomListCount
End Sub

 

[فوزى فوزى]

الله يرضى عنك وعن والديك دائما تبدع وتفاجئنا باعمال رائعة مثلك استاذ سليم يوجد لى طلب اخر شيت توزيع المتوسط ممكن المساعدة فيه