كود ترتيب

[mariammohamed]

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

Book1.zip

[عبدالله المجرب]

هل ستحدد نوع الجنس ام ماذا

[mariammohamed]

نعم يا سيدي الفاضل سيتم التحديد

[mariammohamed]

للرفع

[رجب جاويش]

أخى

هذه فكرة عن طريق كود للأستاذ الكبير خبور خير

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

وهذه الفكرة قابلة للتطوير

ترتيب تنازلى وتصاعدى.rar

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

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

كود ترتيب.rar

تم تعديل مايو 31, 2012 بواسطه mahmoud-lee

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

أرجو أن يفي المرفق السابق بالمطلوب وهذا حسب الجنس

ترتيب حسب الجنس.rar

تم تعديل مايو 31, 2012 بواسطه mahmoud-lee

[mariammohamed]

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

[رجب جاويش]

تفضل أخى ما تريد

[mariammohamed]

اشكرك اخي العزيز رجب جاويش علي مشاركتك وارجو من الله ان يجازيك خير الجزاء

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

السلام عليكم

الاستاذ الفاضل رجب دائما مبدع جزاك الله خيرا

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

[ابو غريب]

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

[رجب جاويش]

تفضل أخى

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

[عبدالله المجرب]

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

السلام عليكم

هذا التعديل على كود الاخ رجب ان شاء الله يفي بالغرض

Sub Ragab()

Dim R As Integer

Dim LR As Integer

Dim KH As Range

Dim KH_1 As Range

Dim KH_2 As Range

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

R = Application.CountIf(Range("b6:b" & LR), "ذكر") + 5

RR = R + 1

Application.ScreenUpdating = False

With ActiveSheet

   Set KH = .Range("a6:b" & LR)

   Set KH_1 = .Range("a6:b" & R)

   Set KH_2 = .Range(Cells(RR, 1), Cells(LR, 2))



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

		 KH_1.Sort Key1:=Cells(6, 1), Order1:=xlAscending

		 KH_2.Sort Key1:=Cells(RR, 1), Order1:=xlAscending

End With

Application.ScreenUpdating = True

End Sub

[mariammohamed]

كيف يمكنني تعديل الكود في هذا الشيت بحيث انع عند الترتيب يتم الترتيبا مع نقل كل البيانات وحتي العمود y

222.zip

تم تعديل يونيو 1, 2012 بواسطه mariammohamed

[رجب جاويش]

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

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

[mariammohamed]

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

[رجب جاويش]

أرجو توضيح المقصود بنقل بيانات الصف بالكامل

[mariammohamed]

ما اقصده يا اخي العزيز انه اذا كان كل اسم من الاسماء التي سوف يتم ترتيبها امامه مجموعه من البيانت ولنفترض ان اول اسم B11 امامه بيانات كالسن والعنوان وتاريخ الميلاد والؤهل وهكذ . فكل خلية امام الاسم بها بيانات وهذه البيانات تمتد من C11 وحتي Z11 والمطلوب ان يكون الترتيب وفقا للاسم ويتم وضع البيانات الخاصة بالاسم امامه

[رجب جاويش]

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

وللتنفيذ الدقيق يرجى ارفاق ملف فيه البيانات المطلوبة ليتم العمل عليه

[mariammohamed]

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

222 (2).zip

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل على كود الاخ رجب

Sub Ragab()

Dim LR As Integer

Dim KH As Range

Dim KH_1 As Range

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

Application.ScreenUpdating = False

With ActiveSheet

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

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


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

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

End With

Application.ScreenUpdating = True

End Sub

[mariammohamed]

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

[رجب جاويش]

تفضل

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

[mariammohamed]

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