الفرز التصاعدي بمعادلة بالأكسل

[abumalak]

إخواني إستفساري هو أن لديه قائمة أسماء وأيضا قائمة نتائج لديهم

أريد أن يتم عملية فرز تصاعدي لها بمعادلة تقرأ تلقائيا بدون أن أضغط زر الفرز الموجود في الإكسل

ولقد وضعت لكم مثال على ذلك في المرفقات

وشكرا

Exampel.zip

[عبد الفتاح كيرة]

تفضل

لا حاجة لجدولين

فقط غير فى قيمة العمود b

If Target.Column = 2 Or Target.Column = 3 And Target.Row > 2 Then

Call Macro1

End If

' Macro1 Macro

'


'

    Range("A2:B7").Select

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B7"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Sheet1").Sort

        .SetRange Range("A2:B7")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("B3").Select

Exampel-kemas.rar

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

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

أخي الكريم، ألق نظرة على الملف المرفق عله يكون المطلوب...

أخوك بن علية

Example.rar

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

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

أخي الكريم وهذا حل آخر باستعمال VBA كما فعل أخي الحبيب Kemas جزاه الله عنا ألف خير وخير...

أخوك بن علية

Example_3.rar

[عبد الفتاح كيرة]

أشكرك أخى الحبيب بن علية

جهودك رائعة فى مساعدة الإخوة

بارك الله لنا فى علمك

وزادك منه

[A_ALOMANI]

يعطيكم العافية جميعاً ...

خطوات متنوعة لهدف واحد ... وبمجهود جميل

[abumalak]

بارك الله فيكم وكتب لكم الأجر

وعمل معي بكل نجاح

ابو ملاك

[ريان أحمد]

بارك الله فيكم هذا ما كنت أبحث عنه وجزاكم الله كل خير

أستاذي كيماس أستاذي hben شكرا لكم وإلى الأمام بدون رجوع معا يدا بيد نحو القمة قمة العطاء بدون حدود ...........