sort ( الفرز ) بالكود لمن يرغب

[mselmy]

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

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

والله من وراء القصد , والسلام عليكم ورحمة الله

sort.rar

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي:

Sub kh_Sort()
Dim Message, Title, Default, MyCOM
Dim R As Long, C As Integer
Message = "ادخل رقم العمود" & Chr(10) & "من الرقم 1 الى الرقم 3"
Title = "رقم العمود"
Default = 1
1 MyCOM = InputBox(Message, Title, Default)
If MyCOM = CANCEL Then GoTo 2
If Not IsNumeric(MyCOM) Or IsEmpty(MyCOM) Then GoTo 1
C = MyCOM
If C < 0 Or C > 3 Then GoTo 1
With Sheets("1")
    R = Range("a" & .Rows.Count).End(xlUp).Row
    .Range("a3:C" & R).Sort Key1:=.Cells(3, C), Order1:=xlAscending
End With
2 End Sub

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

بارك الله لكم

[Ezzat2008]

السلام عليكم

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

أرجوتوضيح اين الخطأ وتصحيحه ان أمكن

لم استطيع تحمبل الملف رجاء وضع الكود بملف من عندكم

أخوكم ezzat 2008

مبتدىء

كيف مكن اظهار الكود المحفى ؟

ولكم الشكر

[mselmy]

يا استاذ / عزت السلام عليكم

انا اضفت كود الاستاذ خبور للملف الاول وهو شغال زى الفل , شكرا يا ستاذ خبور

sort.rar