كود ترتيب

[رجب جاويش]

تم تعديل الكود

ليكون الترتيب اختيارى للمستخدم

حيث تظهر رسالة تخيرك بين الترتيب حسب البنين أولا أو البنات أولا

Sub Ragab()

Dim LR As Integer

Dim KH As Range

LR = Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False

With ActiveSheet

Set KH = .Range("B11:Z" & LR)

result = MsgBox("للترتيب حسب البنين أولا اضغط نعم" & Chr(10) & "وللترتيب حسب البنات أولا اضغط لا", vbYesNo)

	  If result = vbYes Then


				 KH.Sort Key1:=Cells(11, 2), Order1:=xlAscending

				 KH.Sort Key1:=Cells(11, 5), Order1:=xlDescending

	  Else

				 KH.Sort Key1:=Cells(11, 2), Order1:=xlAscending

				 KH.Sort Key1:=Cells(11, 5), Order1:=xlAscending

	  End If

End With

Application.ScreenUpdating = True

End Sub

ترتيب الأسماء ابجديا.rar

[حيدر عبده]

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

[mariammohamed]

اشكرك اخي الكريم شكرا جزيلا وسدد الله خطاك

[إبراهيم ابوليله]

الاخوه الكرام

عمل اكثر من رائع

يعجز اللسان عن الشكر والله

والاخ رجب والاخ عبد الله دائما ننتظر من ماهو اكثر

وبارك الله فيكم

[ابوصلاح]

بعد أذن أستاذي ومعلمي الذي أستفدت منة ولازلت الكثير والكثير أليك هذا الحل وأرجو مراجعتة من قبلك أستاذي الرائع عبد الله

استاذا جمال عبد السميع رائع تسلم والله

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

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

تفضل أخى هذا الكود وأعتقد ، أنه سيحقق لك ماتريد

تقبل تحياتى

ترتيب أبجدى وحسب الجنس.rar

[ابوصلاح]

تفضل أخى هذا الكود وأعتقد ، أنه سيحقق لك ماتريد

تقبل تحياتى

كود سهل ورائع  وهو مالريد فعلا  لكن هل يكون الترتيب تلقائي الذكور اولا دون عمل زر ماكرو طبعا مرتب ابجديا

وشكرا

تم تعديل أغسطس 31, 2014 بواسطه ابوصلاح

[ابوصلاح]

هذا هو التعديل المطلوب

استاذ رجب  لو سمح وقتك شرح الكود نكن شاكرين

[المحب لمصر]

رائع جدا ........ والاروع المتابعة من الاساتذة الافاضل
شكرا للجميع
 

تم تعديل يناير 14, 2015 بواسطه المحب لمصر

[محمد لطفى]

ترتيب الاسماء اتوماتيك

ترتيب الأسماء اتوماتيك.rar

[رشراش علي]

شكـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

[mohamed aly ahmed]

On 5/31/2012 at 11:21 AM, رجب جاويش said:

ترتيب البنات اولاً