كود لفرز الاسماء تصاعديا لعدة اعمدة في زر واحد ولعمود الاسماء فقط

[أبو محمد عباس]

السلام عليكم

الاساتذة الافاضل والاخوة الاعضاء سلام الله عليكم ورحمة منه وبركات اسال الله سبحانه وتعالى ان يتقبل الصيام والقيام في الشهر الفضيل

ارفق لحضراتكم ملف فيه 12 عمود ( 12 فصل) المطلوب اخوتي الاعزاء كود لفرز عمود الاسماء فقط لكل الفصول في زر واحد

تقبل الله سبحانه وتعالى الطاعات وغفر لكم

ودمتم برعاية الله وحفظه

فرز لعدة اعمدة.rar

[أبو محمد عباس]

السلام عليكم

الاخوة الاعزاء رمضان كريم وتقبل الله سبحانه وتعالى الطاعات الحقيقة انا عندي فرز لكل فصل لكن اردت ان يكون الفرز بزر واحد اختصارا للوقت , لاحظوا المرفق

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

فرز الاسماء بكود وزر واحد.zip

[أبو حنــــين]

رمضان مبارك

اعتقد ان هذا هو المطلوب

الفرز.rar

[جمال عبد السميع]

ماشاء الله أستاذي أبو حنين كود ولاأروع بارك الله فيك

[أبو حنــــين]

العفو أخي الكريم محمود ، و رمضان مبارك ان شاء الله

[أبو محمد عباس]

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

الاستاذ الغالي أبو حنين رمضان مبارك وتقبل الله سبحانه وتعالى الطاعات وغفر لكم ذنوبكم وجعل عملك هذا وجميع اعمالكم في ميزان حسناتك

كود اكثر من رائع والفرز تلقائي وهذا اختصار اخر للوقت جزاك الله خيرا لكنني اردت فقط ان يكون الفرز للاسماء لان التسلسل تلقائي بالمعادلات وكذلك رقم القيد اينما يكون الاسم يذهب معه تلقائي دون الحاجة للفرز وعدلت على الكود حسب حاجتي ويعمل بشكل ممتاز وارتايت ان ارفق لك الملف بعد التعديل لان هناك اهتزاز عند الفرز هل يوجد خطا عندما عدلت على الكود ام هناك شيء اخر يمكن التخلص من الاهتزاز وعلى كل حال الكود فوق الرائع على صورته الحالية وهذا الخلل بسيط لانه يستخدم في بداية السنة الدراسية او عند التعديل احيانا لسبب النقل من والى المدرسة

ودمتم برعاية الله وحفظه

الفرزاستاذ ابو حنين.zip

[أبو حنــــين]

غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D9:D108").Sort Key1:=Range("D9"), Order1:=xlAscending

Range("I9:I108").Sort Key1:=Range("I9"), Order1:=xlAscending

Range("O9:O108").Sort Key1:=Range("O9"), Order1:=xlAscending

Range("U9:U108").Sort Key1:=Range("U9"), Order1:=xlAscending

Range("AA9:AA108").Sort Key1:=Range("AA9"), Order1:=xlAscending

Range("AG9:AG108").Sort Key1:=Range("AG9"), Order1:=xlAscending

Range("AM9:AM108").Sort Key1:=Range("AM9"), Order1:=xlAscending

Range("AS9:AS108").Sort Key1:=Range("AS9"), Order1:=xlAscending

Range("AY9:AY108").Sort Key1:=Range("AY9"), Order1:=xlAscending

Range("BE9:BE108").Sort Key1:=Range("BE9"), Order1:=xlAscending

Range("BK9:BK108").Sort Key1:=Range("BK9"), Order1:=xlAscending

Range("BQ9:BQ108").Sort Key1:=Range("BQ9"), Order1:=xlAscending


Application.ScreenUpdating = True

End Sub

[أبو محمد عباس]

السلام عليكم

الاستاذ الفاضل ابو حنين جزاك الله خيرا كود اكثر من رائع يعمل بشكل ممتاز ولايوجد به اهتزاز أدعو الله سبحانه وتعالى ان يثبت قدميك على الصراط يوم تزل الاقدام ويغفر لك

وتقبل دعواتي لك بالموفقية والنجاح وزادك الله من فضله علما ومعرفة

ودمتم برعاية الله وحفظه

تم تعديل يوليو 26, 2012 بواسطه عباس السماوي

[يوسف عطا]

غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D9:D108").Sort Key1:=Range("D9"), Order1:=xlAscending

Range("I9:I108").Sort Key1:=Range("I9"), Order1:=xlAscending

Range("O9:O108").Sort Key1:=Range("O9"), Order1:=xlAscending

Range("U9:U108").Sort Key1:=Range("U9"), Order1:=xlAscending

Range("AA9:AA108").Sort Key1:=Range("AA9"), Order1:=xlAscending

Range("AG9:AG108").Sort Key1:=Range("AG9"), Order1:=xlAscending

Range("AM9:AM108").Sort Key1:=Range("AM9"), Order1:=xlAscending

Range("AS9:AS108").Sort Key1:=Range("AS9"), Order1:=xlAscending

Range("AY9:AY108").Sort Key1:=Range("AY9"), Order1:=xlAscending

Range("BE9:BE108").Sort Key1:=Range("BE9"), Order1:=xlAscending

Range("BK9:BK108").Sort Key1:=Range("BK9"), Order1:=xlAscending

Range("BQ9:BQ108").Sort Key1:=Range("BQ9"), Order1:=xlAscending


Application.ScreenUpdating = True

End Sub

الله ينور كود جميل قوى

بس عايز اقول حاجة صغيرة بخصوص فرز الاسماء بالايكسيل

الايكسيل بيخرف شوية عند التعامل مع فرز النصوص

ولو بتفرز نفس الاسماء فى ملفين احدهما وورد والاخر ايكسيل ستجد فروق كثيرة خاصة عند التعامل مع اسماء تبدأ بحروف أ و إ و ا

والورد يفرزها بصورة اكثر دقة