تعديل فى كود

[أبو زهرة]

السلام عليكم مرفق لكم ملف به صفحة كشوف يتم استدعاء بياناتها من صفحة بيانات

ولكن اريد ان يتم الاستدعاء بنفس ترتيب الاسماء فى صفحة البيانات

ولكن هنا يتم استدعاء البيانات فى كشف بنفس الترتيب وفى كشف اخر لايتم

قمت بتظليلهم بالاصفر

ولكم جزيل الشكر

Book155معندل_2.rar

[أبو زهرة]

السلام عليكم مرفق لكم ملف به صفحة كشوف يتم استدعاء بياناتها من صفحة بيانات

ولكن اريد ان يتم الاستدعاء بنفس ترتيب الاسماء فى صفحة البيانات

ولكن هنا يتم استدعاء البيانات فى كشف بنفس الترتيب وفى كشف اخر لايتم

قمت بتظليلهم بالاصفر

ولكم جزيل الشكر

ملحوظة يوجد معادلات مساعدة فى الصف السادس( مخفى)

[أبوعيد]

السلام عليكم

اخي العزيز القائمة التي ظللتها بالاصفر هي مفروزة بشكل جيد ولكن على أساس (الأساسي القديم )

وذلك حسب الشرط المحدد في كود الفرز

لاحظ النطاق Range("J7:J1000

Range("H7:K1000").Select
     ActiveWorkbook.Worksheets("ßÔæÝ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ßÔæÝ").Sort.SortFields.Add Key:=Range("J7:J1000"), _