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

[وردة النرجس]

السلام عليكم

الكود المرفق خاص بالترتيب او الفرز الابجدي

وعند الضغط على زر الامر الخاص به

يفرز او يفلتر عمود واحد من ليست بوكس الفورم ويترك بقية الاعمدة دون فلتره

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

بحيث عند الضغط عليه 

يرتب جميع الصفوف المرتبطه بعمود المخصص للفرز منه بترتيب ابجدي

للتوضيح اي عند فىز وتصفيه عمود الاسم 

يأخذ بقية كامل الصف الخاص بالأسم اي ترتيب صفي كل اسم مفلتر او مفرز يأخذ صفه وبيانته

الكود

Private Sub CmdAlph_Click()
Dim i, x As Integer
Dim MyList As Variant
With Me.ListBox1

For i = 0 To .ListCount - 1
For x = i To .ListCount - 1

If .List(x, 1) < .List(i, 1) Then
For c = 0 To 2
MyList = .List(x, c)
.List(x, c) = .List(i, c)
.List(i, c) = MyList
Next c
End If
Next x

.List(i, 2) = Format(.List(i, 2), "####.00")
Next i
End With

End Sub

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

للفرز على عمودين مختلفين

مع الاعتبار بأخذ كل عمود لبيانات الصف

اي الصف رقم ١ يأخذ بيانته كامله من اول عمود الى اخر عمود 

وهكذا على بقيه الصفوف 

والشكر موصول للجميع

[محمد يوسف ابو يوسف]

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

 

لاتنتظر مساعده دون

 ارسال ملف مدعوم بشرح  

[وردة النرجس]

 

الاساتذه درجات على المنتدى

فما صعب على استاذ 

لا يصعب على ستاذ اخر

[محمد يوسف ابو يوسف]

وردة النرجس

 

وكيف لا يصعب علي استاذ  وانت غير ملتزم بقواعد المنتدي

لا يمكن العمل علي التخمين... يجب ارسال ملف

حضرتك مستخسر  شوية توضيح وارسال ملف مدعوم بشرح لمساعدتك !!!!

يرجي قرأة قواعد المنتدي اولاً