ارجو المساعدة في ايجاد دالة ترتيب حسب الوقت

[mohamed abd ellatef]

السلام عليكم ورحمة الله وبركاتة 
لو تكرمت يا اخوان بس عايز دالة ترتب العامود علي حسب الوقت المرفق فيه كمثال
عمود A يحتوي علي
AX;10:00;sf

cd;10:04;wf

ds;10:02;re

wr;10:05;tf

cx;10:03;sf

اريد دالة لترتيب تلك البيانات ولاكن علي حسب الوقت كمثال ستكون بهذا الشكل بعد الترتيب

AX;10:00;sf

ds;10:02;re

cx;10:03;sf

cd;10:04;wf

wr;10:05;tf

وشكراً جزيلاً لكم مقدماً 

[نزار سليمان عيد]

السلام عليكم

فضلا انظر للمرفق

مع الشكر

ترتيب الوقت.xls

[سليم حاصبيا]

جرب هذا النموذج (فقط اضغط على الزر Sort Please)

Option Explicit

Sub Creezy_Sort()
Dim arr, itm, k%
Dim txt
Dim Col As Object
 Set Col = CreateObject("System.Collections.Sortedlist")
 With Sheets("Salim")
        arr = .Range("A1").CurrentRegion
        arr = Application.Transpose(arr)
        .Range("C1").CurrentRegion.ClearContents
     For Each itm In arr
        If InStr(itm, ":") Then
         txt = Split(itm, ":")
           If UBound(txt) = 1 Then
            Col.Add CStr(txt(1)), CStr(txt(0))
           End If
        End If
     Next itm
    
      If Col.Count Then
        For k = 0 To Col.Count - 1
           .Cells(1, 3).Offset(k) = _
            Col.GetByIndex(k) & ":" & Col.GetKey(k)
        Next
      End If
End With

End Sub

الملف مرفق

ellatef.xlsm

[mohamed abd ellatef]

لم يقم بالغرض كاملاً اخي شكر لجهودك 
ولكن الفكرة انني أردت دالة ترتيب كالتي تكون تلقائية من أ الي ي 

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

للعلم اخي الكريم كما ذكرت سابقاً انه الخلية يوجد بها حروف وكلمات وبينهم التاريخ

اردت ترتيب القيم استنادا الي التاريخ تنازلياً او تصاعدياً 

شكرا جزيلاً اخي نزار

أعتذر منك اخي سليم ولكن لم يفتح معي الملف
لا أعلم لماذا كلما حملت ملف ينتهي بإمتداد xlsm
يفتح فارغ وتاتي عليه علامة تعجب صفراء 

لا اعلم سبب ذلك الحقيقة 

مشكور جدا لك اخي 

[سليم حاصبيا]

لا اعلم ما المشكلة عندك ( ظهور علامة التعجب يشير ان الملف يحتوي على ماكرو)

لكن عندي يعمل يكل كفاءة ( اضغط على الزر Sort Please)  الصورة1 

بعد فتج الملف اضغط على الزر (Enable Editing) كما في الصورة 2