abuhanen10 قام بنشر ديسمبر 11, 2017 مشاركة قام بنشر ديسمبر 11, 2017 الملف المرفق اكواد ترتيب تعمل جيداا الا كود ترتيب الاصغر الترتيب اسفل الجدول والملف يوضح ذلك ترتيب.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 12, 2017 مشاركة قام بنشر ديسمبر 12, 2017 السلام عليكم ورحمة الله اجعل الكود هكذا Sub الاصغر() Range("B2:J1000").Sort Key1:=Range("B2:B1000"), Order1:=xlAscending, Key2:=Range("H2:H1000"), Order2:=xlDescending, Header:=xlNo End Sub 1 رابط هذا التعليق شارك More sharing options...
abuhanen10 قام بنشر ديسمبر 12, 2017 الكاتب مشاركة قام بنشر ديسمبر 12, 2017 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 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 13, 2017 مشاركة قام بنشر ديسمبر 13, 2017 السلام عليكم ورحمة الله اليك الكود بعد التعديل 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.