سليم حاصبيا

جرب هذا الملف تم التعديل غلى بنية الملف للحصول غلى النتائج كاملة اوفيسنا SALIM.rar

ارفع جزءاً من الملف لمعالجة الامر

المعادلات تقوم فقط بالنسح ولا نتقل البيانات اذا كنت تربد ذلك يمكن العمل على هذا الشيء

جرب هذا الملف (ديناميكي يتجاوب مع كل زيادة او نقصان في عدد الصقحات - والتعديل غلى اسمائها) max of sheets.rar

جرب هذا لملف nageh raseb.rar

ربما كان المطلوب المصنف222 salim.rar

جرب هذا الملف العمل في الصفحة My_shet Trans_To One_col macro.rar

نفضل بالمعادلات 11salim.rar

جرب هذا الملف دالة تجميع advanced.rar

محاولة للحل

حازل ان تستبدل الفاصلة الغادية بفاصلة منقوطة بالمعادلة لتصبح هكذا =TEXT(DATE($A$2;1;1)+ROWS($A$1:A1)-1;"dddd yyyy/mm/dd")

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

جرب هذا الملف تم تغيير اسماء الصفحات لحسن عمل الكود مع اللغة الاجنبية العمل يتم مع الصفحة Sheet1 نتيجة الدور الأول salim.rar

اكتب هذه المعادلة في الخلية A4 واسحب نزولاً =TEXT(DATE($A$2,1,1)+ROWS($A$1:A1)-1,"dddd yyyy/mm/dd")

تم التعديل غلى النلف حسب الحاجة ( انظر الى الصفحة SALIM) تم حماية المعادلات لعدم العبث بها عن طريق الخطأ North_West 1.rar

ربما كان مثالاً للمطلوب find_max.rar

ربما المطلوب اخفاء الكلمات 1.rar

جرب هذا الملف first_of matiere.rar

هذا الملف لا يرتب شيئاً جرب اكتب اول اسم بحرف الياء و لاحظ النتيجة

جرب هذا الملف North_West.rar

غير المعادلةفي الخلية E7 الى التالية و اسحب نزولاُ =DATEDIF(D7,$E$2,"y")

بواسطة المعادلات لا يمكن ادراج صفوف او اعمدة يمكن ذلك فقط بواسطة الكود او يدوياً انظر لى الملف المرفق و اضغط غلى الزر الصف الفارغ salim.rar

تم معالجة الامر اكبر الطلاب1.rar

اختر اي رقم تربد اكبر الطلاب.rar

جرب هذا الماكرو Sub My_Filter() Range("g8").Resize(50, 3).ClearContents Set myrg = Range("a2", Cells(Cells(Rows.Count, 1).End(3).Row, Cells(2, Columns.Count).End(1).Column)) For i = 1 To Cells(Rows.Count, 1).End(3).Row If Month(myrg(i, 1).Offset(0, 2)) = Month(Range("i5")) And _ myrg(i, 1).Offset(0, 1) = myrg(i, 1).Offset(0, 1) Then _ myrg(i, 1).Resize(1, 3).Copy Cells(p + 8, "g"): p = p + 1 Application.CutCopyMode = False Next End Sub