ترتيب الاسماء حسب المجموع

[Abou Yazeed]

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

فضلا مرفق لكم ملف بسيط من عمودين فقط 

أريد تكرما : 

ترتيب الاسماء في جدول جديد حسب المجموع تنازليا 

بشرط تكون أكبر من صفر 

يعني الاسم والمجموع إذا كان أعلى من صفر يظهر في جدول الترتيب

وسلامتكم وجزاكم الله خير 

عرض الاسم والمجموع مرتبة تنازليا.xlsm

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub Ranking()
p = 3
For i = 4 To Range("C" & Rows.Count).End(3).Row
On Error Resume Next
If Cells(i, "H") > 0 Then
p = p + 1
For j = 1 To 2
Cells(p, Choose(j, 14, 15)) = Cells(i, Choose(j, 3, 8))
Next
End If
Next
Range("N4:O" & Range("N" & Rows.Count).End(3).Row).Sort key1:=Range("O4"), _
order1:=xlDescending, key2:=Range("N4"), order2:=xlAscending
End Sub

 

[Abou Yazeed]

تسلم أخي العزيز 

جزاك الله خير الجزاء