اختيار اسم يأتي بكل قيمه مرتبة تنازليا

[إيهاب عبد الحميد]

السلام عليكم ورحمة الله وبركاته
أرجو من السادة الأفاضل المساعدة

حفظكم رب العالمين

اختيار اسم يأتي بكل نتائجة مرتبة تنازليا.xlsx

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

هذا الماكرو البسيط

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
 Application.EnableEvents = False
 Range("g:g").SortSpecial
 End If
 Application.EnableEvents = True
End Sub

 

[إيهاب عبد الحميد]

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

ما شاء الله على حضرتك أ/ سليم

دائما مبدع .. ولكن لو تفضلتم وأصبح الحل من خلال معادلة سيكون افضل .. حيث ان هذه الفكرة ستطبق على أكثر من أعمدة متجاورة وسيكون الحل اسهل لي بالمعادلة 

وأشكركم على مجهودكم وأعلم انني سأجد الحل لديكم

[إيهاب عبد الحميد]

انتظر من سيادتكم الرد 

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

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

استبدل المعادلة المرفقة مع الملف بهذه المعادلة

لا تنسى الضغط على  Ctrl + Shift + Enter

=IFERROR(LARGE(IF($D$4:$D$64=$F$4;$E$4:$E$64;"");ROW()-3);"")

 

[إيهاب عبد الحميد]

بارك الله فيكم أ/ زيزو 
ويارب دائما يجعل لكم من كل هما فرجا ومن كل ضيقا مخرجا

[علة لخضر]

تفضل هذه المحاولة بالمعادلات

 

اختيار اسم يأتي بكل نتائجة مرتبة تنازليا.xlsx