ممكن معرفه اين الخظأ فى الكود

[abuhanen10]

الملف المرفق 

اكواد ترتيب تعمل جيداا

الا كود ترتيب الاصغر الترتيب اسفل الجدول 

والملف يوضح ذلك

ترتيب.rar

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

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

اجعل الكود هكذا

Sub الاصغر()
Range("B2:J1000").Sort Key1:=Range("B2:B1000"), Order1:=xlAscending, Key2:=Range("H2:H1000"), Order2:=xlDescending, Header:=xlNo
End Sub

 

[abuhanen10]

13 ساعات مضت, زيزو العجوز said:

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

اجعل الكود هكذا

Sub الاصغر()
Range("B2:J1000").Sort Key1:=Range("B2:B1000"), Order1:=xlAscending, Key2:=Range("H2:H1000"), Order2:=xlDescending, Header:=xlNo
End Sub

الف شكر لحضرتك

لكن للاسف الترتيب اصبح ابجدى كما هوموضح 

فى نفس الملف بعد التعديل

 

2ترتيب.rar

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

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

اليك الكود بعد التعديل

Sub الاصغر()
Dim ws As Worksheet
Dim LR As Long
Set ws = Sheets("ورقة1")
LR = ws.Range("B" & Rows.Count).End(xlUp).Row
ws.Range("B2:J" & LR).Sort Key1:=ws.Range("H2"), Order1:=xlDescending, Key2:=ws.Range("B2"), Order2:=xlAscending, Header:=xlNo
MsgBox LR
End Sub