كيف أستطيع ترتيب عمودين بمجرد فتح ورقة في ملف اكسل

[abousama27]

كيف أستطيع ترتيب عمودين بمجرد فتح ورقة في ملف اكسل

أنتظر المساعدة رجاءً.........

[عادل حنفي]

السلام عليكم

اخي الفاضل

اذاكان المنفذ بالملف المرفق عند ضغطك علي الزر هو المطلوب

نفذ المشروح بملف الفيديو علي الملف و احفظه و اعد فتحه

سيتم المطلوب و ان كان قصدك غير ذلك ارجو اعلامي

تحياتي

_____.rar

تم تعديل أكتوبر 22, 2008 بواسطه aah_aah2008

[abousama27]

شكراً على المساعدة ....

المطلوب هو أن يتم الترتيب ليس من خلالالضغط على زر بل عند فتحالورقة و ليس المصنف أي بمجرد فتح الورقة يتم ترتيب العمودين تصاعدياً

[احمدزمان]

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

‏‏‏‏‏‏‏‏الاحد‏، 23‏/12‏/1429هـ. الموافق ‏21‏/12‏/08م

اخي الفاضل

اضغط Alt+F11

تظهر صفحة الفيجوال بيزك

دبل كليك على الصفحة التي تريدها ان يعمل بها الماكرو بمجرد الدخول اليها

اكتب في السطر الأول

Private Sub Worksheet_Activate()

ضع الكود الذي تريدة ثم

End Sub

وباضافة كود الأستاذ القدير عادل يصبح الكود كاملا كالتالي

Private Sub Worksheet_Activate()
    Range("K4:K111").Sort Key1:=Range("K4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("L4:L111").Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

مع التحية و التقدير

تم تعديل ديسمبر 21, 2008 بواسطه احمد يعقوب