ارجو المساعدة فى تعديل كود الفرز

[محمد نوح]

الاساتذة الافاضل والاخوه الاعزاء

 

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

 

هذا الكود إعداد الاخت الفاضلة / أم عبد الله

 

هل من الممكن تعديل الكود ليشمل باقى الاوراق بحيث عند الضغط على زر الفرز يتم الترتيب فى جميع الاوراق حسب بيانات كل ورقة  من الورقة 1 حتى الورقة 5

 

وشكرا .

ترتيب.rar

[الخالدي]

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

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

Sub Farz2()
For Each S In Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5"))
With Range(S.Cells(2, 1), S.Cells(S.Rows.Count, 1).End(xlUp)(1, 18))
    .Sort .Cells(3), 1, .Cells(4), , 1
    .Sort .Cells(1), 1, .Cells(2), , 1
End With
Next
End Sub

في امان الله

ترتيب2.rar

تم تعديل يناير 27, 2014 بواسطه الخالدي

[محمد نوح]

اخى الفاضل الخالدي

 

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

 

جزاك الله خيرا وجعله الله فى ميزان حسناتك