ترتيب تاريخ

[Akram Galal]

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

اريد كود لترتيب البيانات طبقا لعمود التاريخ

وشكراً .

[ياسر خليل أبو البراء]

ارفق مثال أخي الفاضل كي يسهل على الأعضاء مساعدتك

[ابو تراب]

بعد اذن اخي ياسر خليل هذا كود مع مثال:

 

Sub btnSort_Click()


Dim rngSort As Range
Dim ws As Worksheet


  Set ws = Sheets("Data")
  Set rngSort = ws.Range("B2", "D7")
  
  'Key1 = التاريخ, Key2=الاسم, Key3=العمر
  rngSort.Sort _
        Key1:=ws.Range("B2"), Order1:=xlAscending, _
        Key2:=Range("B3"), Order2:=xlAscending, _
        Key3:=Range("B4"), Order3:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub

 

Sort by Date.zip

[ياسر خليل أبو البراء]

أخي الفاضل راجع هذا الجزء

Key1:=ws.Range("B2"), Order1:=xlAscending, _
        Key2:=Range("B3"), Order2:=xlAscending, _
        Key3:=Range("B4"), Order3:=xlAscending, _

[Akram Galal]

أخي ابو تراب

جزاك الله خيرا

[ابو تراب]

هلا بيك اخي اكرم

 

اخي ياسر شكرا على الملاحظة:

 

تصحيح بالنسبة لحقل الاسم من المفترض ان يكن C2 و حقل العمر D2 

Key1:=ws.Range("B2"), Order1:=xlAscending, _
Key2:=Range("C2"), Order2:=xlAscending, _
Key3:=Range("D2"), Order3:=xlAscending, _

تم تعديل نوفمبر 17, 2014 بواسطه ابو تراب

[ياسر خليل أبو البراء]

جزاكم الله خيرا أخي أبو تراث .. وبارك الله فيك .. التصحيح ليس غرضه النقد الهدام إنما البناء وكلنا هنا نتعلم من بعضنا البعض ونتبادل الخبرات

[ابو تراب]

بارك الله فيك اخي ياسر و سعدت بمرورك و تصحيح الخطأ...ولي الشرف ان اتعلم منكم و من جميع الاعضاء الكرام

 

تحياتي