رندة ابراهيم

اريد توزيع الطلاب علي 26 قاعة بالتساوي حسب معيار اما كل 5 طلاب ذكور و 5 طلاب انات في قاعة ..علما بان بعض الطلاب تم توزيعهم بشكل يدوي قد ينقص او يزيد عن المعيار المصنف2.xlsx

لكن هل يوجد حل للتعبئة من خلال المشاركة لمناطق مختلقة

كلّ الشكر والعرفان للأستاذ عبدالله بشير عبدالله، على جهوده المتميزة وعطائه الثري، فجزاه الله خير الجزاء كلّ الشكر والعرفان للأستاذ hegazee، على جهوده المتميزة وعطائه الثري، فجزاه الله خير الجزاء، هل الملف الاخير بينفع علي جوجل شيت

عند ادخال اليوز والباسبورد الخاصة بالمدرسة الاولي ينقل الي شيت المدرسة ليتم تعبته وهكذا .....، بدون مشاهدة المدارس الاخري42 مدرسة،العمل اولاين من خلال جوجل شيت DATA.xlsx

أشكرك استاذ عبدالله ،ولكن ،هناك اسماء طلاب موجودين في جميع الشيتات،اريد جلب اسمه مرة واحدة ويجلب علاماته من جميع الشيتات

السلام عليكم ورحمة الله وبركاته اريد تجميع جميع الشيتات في شيت تجميع علما بأن الأوراق قد تتشابه في اسماء الطلبة ،وهناك طلاب يلتحقو فيما بعد ASD.xlsx

ارجو توضيح الكود بالتفاصيل Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:=1234 Sheets("sts").Range("c9:c58").Value = "" For l = 9 To 58 t = 8 If Sheets("anyls").Range("b" & l).Value <> "" Then For i = 67 To 90 If Sheets("anyls").Range(Chr(i) & l).Value <> "" Then If Sheets("anyls").Range(Chr(i) & l).Value = 0 Then Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value End If End If t = t + 1 Next For k = 65 To 89 If Sheets("anyls").Range("a" & Chr(k) & l).Value <> "" Then If Sheets("anyls").Range("a" & Chr(k) & l).Value = 0 Then Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value End If End If t = t + 1 Next End If Next ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

ارجو مساعدتي اين الخلل في المعادلة رندة.rar