ارجو المساعدة في كود فرز حسب التاريخ

[مهند محسن]

السلام عليكم اخوتي

ارجو المساعدة في هذا العمل

المطلوب  كود فرز حسب التاريخ والشرح موجود في الملف المرفق

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

فرز حسب التاريخ.rar

[ابراهيم الحداد]

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

اكتب الكود التالى واربطه بالزر الموجود بالملف

Sub Sorting()
Range("A2:S" & Range("D" & Rows.Count).End(xlUp).Row).Sort key1:=Range("K2"), order1:=xlAscending
End Sub

 

[مهند محسن]

اخى العزيز زيزو

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

شاكر لكم اخى اهتمامكم بالموضوع فجزاكم الله تعالى خير الجزاء