في حاجة الى مساعدتكم

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

السلام عليكم

انا انشاءة قائمة عمودية بها اسماء اشخاص وبجانبها قائمة باسم ارقام انا اريد ربط الارقام باسم الشخص المراد 

مثال 

خالدي =20

مصطفى =18

ابراهيم = 17

محمد = 23

احمد 19

وبحيث ان الارقام مرتبة الى القيمة الكبرى يعني اريد عندما يزيد الرقم يرتقي صاحبه الى المركز متقدم

واتمنى ان فكرتي واضحة

 

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

الا توجد ردود

[الـعيدروس]

اخي الكريم 

الرجاء ارفاق مثال وبه النتيجه 

المطلوبه 

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

انا اريد ترتيبها من الاكبر الى الاصغر بحيث ان الاسماء تتحرك مع الارقام

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

و هذا هو الملف

22222.zip

[عبدالله باقشير]

السلام عليكم

 

ضع هذا الكود في حدث ورقة1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
    With Range("A1:B5")
        .Sort .Columns(2), xlDescending
    End With
End If
End Sub

المرفق 2010

222222.rar

 

تحياتي

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

ممكن شرح بالصور اين اضع هذا الكود

[أم عبد الله]

الأستاذ / خالدي إبراهيم

 

الملف جاهز وبه الكود للعلامة الكبير أستاذنا / عبد الله باقشير فقط وسعت المدى لكي يعطي مساحة اكبر لك حاول أن تجرب وتكتب أي اسم وأي رقم سوف يتم الترتيب مباشرة.

A22.rar

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

شكرا يا عباقرة الاكسل

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

مشكلة و لو اتعبتكم معي 

ادخلت ه>ا الكود الى صفحة اخرى ونجح لكن بعد فترة توقف

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

السلام عليكم

ربما بهذه الصورة يكون المجال اوسع

Private Sub Worksheet_Change(ByVal Target As Range)
LR = Cells(Rows.Count, 2).End(xlUp).Row
If Not Intersect(Target, Range("A1:B" & LR)) Is Nothing Then
    With Range("A1:B" & LR)
        .Sort .Columns(2), xlDescending
    End With
End If
End Sub

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

شكرا جزيل نجح الامر 

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

ارجو المعذرة من أخي عبد الله و اختي ام عبد الله