كود لعمل SORT

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

الاخوه الافاضل

ارجو المساعدهSORT.rar

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

ارجو المساعده

[طارق محمود]

السلام عليكم

لاداعي لكود

الترتيب من قوائم الإكسل

أنظر الفيديو

Sort.rar

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

الاخ الفاضل طارق

مشكور على اهتمامك

ولننى اعرف هذه الطريقه

وابحث عن كود

[طارق محمود]

السلام عليكم

أخي العزيز

إنسخ هذا الكود

Sub Sort_New()

    Range([A3], [A3].End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    c = Selection.Columns.Count

    r = Selection.Rows.Count


    ActiveCell.Offset(0, c - 1).Range("A1").Activate

    With ActiveSheet.Sort

        .SortFields.Clear

        .SortFields.Add Key:=ActiveCell

        .SetRange Selection

        .Header = xlNo

        .Apply

    End With

    [A1].Select

End Sub

وسيتم الترتيب بناءا علي آخر عمود حتي لو لم يكن D

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

الاخ طارق

مشكور على مجهودك

ولكن ماذا لو حبيت تغير العمود

مثلا ليصبح A اوB

[طارق محمود]

السلام عليكم

أخي الكريم بدل الكود بالتالي

وأضف زر لتنفيذ الكود

وسيتم التنفيذ بناءا علي الخلية التي تقف عليها قبل تنفيذ الكود

Sub Sort_New()

aa = ActiveCell.Address


	Range([A3], [A3].End(xlToRight)).Select

	Range(Selection, Selection.End(xlDown)).Select

	c = Selection.Columns.Count

	r = Selection.Rows.Count


   With ActiveSheet.Sort

		.SortFields.Clear

		.SortFields.Add Key:=Range(aa)

		.SetRange Selection

		.Header = xlNo

		.Apply

	End With


	[A1].Select


End Sub

أو تفضل المرفق بتنسيق 2003 أو 2007/2010

SORT_2003.rar

SORT_2007_2010.rar

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

الاخ الفاضل طارق

لماذا يظهر رساله

run-time error'1004'

ثم اذهب الى محرر الاكواد للتعرف على الخطأ فاجد اللون الاصفر على كلمة

.Apply

[طارق محمود]

السلام عليكم

أخي العزيز

غالبا يظهر هذا الخطأ

إن كنت تقف بالماوس في مكان ليس داخل الجدول

فالكود يفترض أنك لن تطلب تشغيله إلا لو أشرت إلي العمود الذي تريد الترتيب عليه (وذلك كما أوضحت ، عن طريق أن تقف بالماوس علي أي خلية في الجدول ، ويتم الترتيب بناءا علي عمود تلك الخلية)

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

الاخ طارق مشكورا

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