أبجدة بمجرد الكتابه

[قصي]

معذره للتداخل ولكن عذري ان الاستاذ رجب قدها ان شاء الله

اريد اضافه بسيطه لهذا الملف

ليعمل تقائيا فور كتابه الاسماء كما هو ولكن

بزياده التصنيف ولد  .. ويتم فرزهم ....وبنت ويتم فرزهم

ابجده فور الكتابه.rar

[رجب جاويش]

أخى الفاضل / قصي

جرب المرفق حسب ما فهمت

 

ابجده فور الكتابه.rar

[رجب جاويش]

أخى الفاضل / قصي

تم تنفيذ طلبك فى المرفق السابق

وتم فصل طلبك فى موضوع منفصل لزيادة الإستفادة

[قنديل الصياد]

أخى الفاضل / قصي

جرب المرفق حسب ما فهمت

اخى الحبيب الاستاذ رجب نرجو التعديل ليبدأ بالبنات اولا ثم البنين

شكرا لك

[رجب جاويش]

أخى الحبيب قنديل

بعد التحية

تفضل ما تريد

 

ابجده فور الكتابه.rar

[أبو أريج]

بارك الله في الجميع

[قصي]

جزاك الله الف الف خير وبارك لك

اخي الكريم الاستاذ رجب  ليكتمل العمل

 

اذا اراد احدنا تغيير العمود اي جزئيه في الكود يجب تغيرها

وكذلك جزئية التغيير من الاولاد اولا او البنات اولا

[ياسر خليل أبو البراء]

الأخ الحبيب رجب جاويش بارك الله فيك على إبداعاتك

الأخ السائل قصي

Private Sub Worksheet_Change(ByVal Target As Range)
LR = Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
    Range("a2:b" & LR).Select
    Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Key2:=Range("a2"), Order2:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("a" & LR).Select
   
End Sub

بالنسبة للتغيير من الأولاد للبنات يتم تغيير هذه الجزئية

Key1:=Range("b2"), Order1:=xlAscending

في حالة التغيير من الأولاد للبنات تكون القيمة xlDescending أما لتغيير النبات للأولاد تكون القيمة كما في السطر السابق xlAscending

 

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

[قصي]

الاستاذ ياسر خليل

جزاك الله كل خير وبارك لك

[عبدالعزيز محمد]

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

جزاكم الله خيرا

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

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم عبد العزيز

بالنسبة لسؤالك

Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Key2:=Range("a2"), Order2:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

تلاحظ هنا أنه يتم الترتيب على عمودين ولدا تجد Key1 وKey2 وكذلك Order1 و Order2

إذا أردت الترتيب على عمود واحد فيكتفى بـ Key1 وOrder1 فقط ، وتحذف الأجزاء الخاصة بالعمود الثاني

ليصبح السطر بهذا الشكل

Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

مع مراعاة أن يتم تغيير الخلية B2 والتي تعبر عن العمود المطلوب الترتيب على أساسه

تقبل تحياتي

[جلال محمد]

اخي ياسر 

جزاك الله خيرا علي هذا الشرح الجميل

لي سؤال بعد اذنك 

لوكان بالملف بيانات بجوار العمود ( a , b ) واردنا تحريك كل البيانات عند الترتيب ... فكيف نقوم بتوسيع مجال ترتيب البيانات ؟

 

[ابو عبدالبارى]

اخى الكريم جلال محمد

السلام عليكم

قم بتغيير اسم العمود الى اخر عمود تريد توزيع الفرز عليه

Range("a2:b" & LR).Select

[عبدالعزيز محمد]

جزاكم الله خيراً