رندة ابراهيم

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

السلام عليكم ورحمة الله وبركاته اريد تجميع جميع الشيتات في شيت تجميع علما بأن الأوراق قد تتشابه في اسماء الطلبة ،وهناك طلاب يلتحقو فيما بعد 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