لماذا لا يعمل هذا الكود للفرز

[mhrrd]

إخواني الكرام

لدي ملف بسيط لكود للفرز نقلته من أحد الملفات الأخرى

لكن دون جدوى الكود لا يعمل أين الخطأ ؟

الكود في المرفقات وشكرا لكم

فرز.rar

[طارق محمود]

السلام عليكم

أخي الكريم الكود يعمل بلا مشاكل

قف بالماوس علي أي خلية بالعمود C مثلا والذي به نوع الطالب (ولد / بنت)

ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي النوع (ولد / بنت)

وإذا وقفت بالماوس علي أي خلية بالعمود E مثلا والذي به اليوم

ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي اليوم وهكذا لجميع الأعمدة

جرب وأخبرني

[mhrrd]

اخي القاضل استاذ طارق

المفروض ان الملف بعمل فرزتصاعدي بالضغطة الاولى

وفرزتنازلي بالضغطة التانية

لك شكري

[طارق محمود]

السلام عليكم

أخي العزيز

هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله

لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود

وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1)

المهم

إستبدل الكود بالتالي

'Dim Mytest As Boolean

M = ActiveCell.Column

N = 2                  'اول عمود للفرز

NN = 26            'آخر عمود للفرز

If M < N Or M > NN Then GoTo 1

With ActiveSheet

   Set KH_1 = .Range("B6:Z1000")

      If [AL1] = 0 Then

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

         [AL1] = 1

         GoTo 1

     Else

         KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending

         [AL1] = 0

         GoTo 1

     End If

End With

On Error GoTo 0

1 End Sub

[MAHMOUD ALI YOUSSEF]

السلام عليكم

انت عايز الفرز تصاعدي وتنازلي لاي عمود ممن تحدده

[mhrrd]

السلام عليكم

انت عايز الفرز تصاعدي وتنازلي لاي عمود ممن تحدده

نعم اخي القاضل عايز الفرز تصاعدي وتنازلي لاي عمود ممن احدده

[طارق محمود]

السلام عليكم

أخي الكريم

إرجع للمشاركة رقم 4

[mhrrd]

السلام عليكم

أخي العزيز

هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله

لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود

وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1)

المهم

إستبدل الكود بالتالي

'Dim Mytest As Boolean

M = ActiveCell.Column

N = 2				  'اول عمود للفرز

NN = 26			'آخر عمود للفرز

If M < N Or M > NN Then GoTo 1

With ActiveSheet

   Set KH_1 = .Range("B6:Z1000")

	  If [AL1] = 0 Then

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

		 [AL1] = 1

		 GoTo 1

	 Else

		 KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending

		 [AL1] = 0

		 GoTo 1

	 End If

End With

On Error GoTo 0

1 End Sub

جزاك الله ألف ألف خبر