رندة ابراهيم

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

كلّ الشكر والعرفان للأستاذ عبدالله بشير عبدالله، على جهوده المتميزة وعطائه الثري، فجزاه الله خير الجزاء كلّ الشكر والعرفان للأستاذ 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