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

[مهند الزيدي]

السلام عليكم ...

ممكن عمل المطلوب داخل المرفق... وفقكم الله لكل خير

sorting.rar

[ibn_egypt]

أخى الفاضل

 

ضع هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:B" & lr).Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub

تحياتي  

ترتيب ابجدي.rar

[مهند الزيدي]

اخي العزيز ... أبن مصر أشكرك على حلولك الرائعة...

لكن أريد عدم تأثر حقل المجموع بالكود ..كما مبين بالملف المرفق

ترتيب ابجدي.rar

[ibn_egypt]

اخي العزيز ... أبن مصر أشكرك على حلولك الرائعة...

لكن أريد عدم تأثر حقل المجموع بالكود ..كما مبين بالملف المرفق

 

اخى الفاضل أ.مهند

 

هو نفس الكود بالضبط بس خليها -1، علشان صف المجموع لا يدخل في نطاق الترتيب .. كما انك اضفت عمود ثالث وهو C يبقي غير ال B في الكود لتصبح C

Private Sub Worksheet_Change(ByVal Target As Range)
lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row-1
Range("A2:C" & lr).Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub

تحياتي  

ترتيب ابجدي.rar

[مهند الزيدي]

شكرا أخي الفاضل (( إبن مصر )) ... وفقكم الله لكل خير ... كيف لنا أن نصل الى ماوصلتم اليه في الأكسل ؟

[ibn_egypt]

شكرا أخي الفاضل (( إبن مصر )) ... وفقكم الله لكل خير ... كيف لنا أن نصل الى ماوصلتم اليه في الأكسل ؟

 

أخى الفاضل

 

لاشكر على واجب أخى مهند وشاكر لدعواتك ونحن مازلنا نتعلم من الأساتذة الافاضل هنا ... اخى الكريم تابع حلقات هذا الموضوع للاستاذ القدير ياسر خليل

 

افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب)

 

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

 

الردود على موضوع (افتح الباب وادخل لعالم البرمجة)

 

تحياتي  

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

تسلم يا أخي الحبيب يا ابن مصر يا غالي على هذه الدعاية المجانية ..

بس أنا مش هخليها مجانية .. هخليها بدعوة بظهر الغيب

جزيت خيرا وأكلت لحم طيرٍ ..