ترتيب الأرقام في العمود الأول وجلب الأرقام المقابلة لها في العمود الثاني

[عمرو عبد الحليم]

السلام عليكم كما بالملف عاوز ارتب ارقام العمود a واعرف الرقم المجاور له في العمود b انا عملتها في صفحه تانيه لكن يدوي فهل هذا ممكن بمعادله وشكرا

المصنف11.rar

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

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

اليك الحل

المصنف11.rar

[عمرو عبد الحليم]

شكرا يا استاذ زيزو بس حولت اجرب الحل هنا معرفتش

المصنف22.rar

[ياسر خليل أبو البراء]

أخي الكريم عمرو عبد الحليم

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

كما أنه يرجى دائماً إرفاق الملف المعبر عن الملف الأصلي من بداية الموضوع

جرب الكود التالي ..يقوم الكود بنسخ النطاق في العمودين الأول والثاني ويضع القيم في العمود G و H ثم يقوم بفرز أو ترتيب حسب العمود G من الأكبر إلى الأصغر

يمكنك التعديل على الكود ليلائم طلبك

Sub SortData()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
        Range("A1:B" & LR).Copy Range("G1")
        Range("G1:H" & LR).Sort Key1:=Range("G1:G" & LR), Order1:=xlDescending, Header:=xlNo
        Application.CutCopyMode = False
    Application.ScreenUpdating = False
End Sub

تقبل تحياتي

 

Sort Data YasserKhalil.rar

[عمرو عبد الحليم]

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

اولا شكرا لك علي الملف المرفق لقد افادني كثيرا في عملي

ثانيا اسف علي عدم رفع الملف من الاول لان الملف كان به بيانات هامه جدا تخص العمل

ثالثا اعتذر علي وضع السلام عليكم في الاول

في كتابة الموضوع يوجد هناك خليتان اعتقد ان الاول منها تحيه للمنتدي

 

شكرا لكم جميعا

[ياسر خليل أبو البراء]

أخي الكريم عمرو

هل تم الأمر على خير ..أم أنك تريد الحل بالمعادلات لأنك لم تحدد في طلبك ..؟

[عمرو عبد الحليم]

أخي الكريم ياسر لقد تم الامر علي خير

لقد افادني كثيرا في عملي

شكرا جزيلا لك