ارجو المساعده فى ترتيب البيانات

[إبراهيم ابوليله]

الاخوه الافاضل

اريد ترتيب البيانات اتوماتيكيا بدون زر

فى هذا الشيتترتيب البيانات اتوماتيكيا.rar

[إبراهيم ابوليله]

الاخوه الافاضل.

ملحوظه

اريد الترتيب من التاريخ الاصغر الى التاريخ الاكبر

[أبو حنــــين]

السلام عليكم

جرب المرفق

ترتيب.rar

[إبراهيم ابوليله]

الاخ ابو حنين

مشكورا على مساعداتك

وثق تماما ان لسانى يعجز عند ايجاد كلمات شكر لك

ولك يكفينى الدعاء لك

[بن علية حاجي]

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

أخي الكريم أبو حنين أشكرك كثيرا على الكود الجميل لحل المطلوب غير أن السطرين :

If Target.Column = 11 Then

و

End If

غير ضروريان في الكود، والكود يكون مختصرا كما يلي:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 11 Then Exit Sub

Range("A7:L1000").Sort Key1:=Range("K7"), Order1:=xlAscending

End Sub

هذه مجرد ملاحظة والكود جميل جدا...

أخوك بن علية

[أبو حنــــين]

جراك الله خيرا اخي بن علية على هذه الملاحظة