اشرف النعاس

هل من حل لظهور هذا المسج Compile error in hidden module

مشكور اخي ياسر على سرعة الرد ... اريد اضافة صورة ثابته

اريد الاستفسار عن كيفية اضافة صورة الى اليوزر فورم ؟

بارك الله فيك اخي ياسر ... سوف اقوم بذلك بأذن الله

لا أعرف لماذا لم يتم الإجابة على الموضوع؟ هل بسبب صعوبة الحل

لا أعرف لماذا لم يتم الإجابة على الموضوع؟ هل بسبب صعوبة الحل ؟

هل من رد

هل من رد

هل من رد

هل من رد

اخي ابو محمد ارجو التمعن في الموضوع لانه يختلف عن الموضوع السابق

اخي ابو الامين مشكور جدا و لكن المطوب هو combobox واحد فقط يتم اختيار منه المقرر المطلوب اذا هذا المقرر هو احدى المقررات التي يدرسها الطالب في المفصل المحدد في كمبوبوكس 2 فانه يجلب اسمه و رقم قيده الى ليست بوكس

هل من رد

هل من رد

الموضوع ليس مكرر يختلف تماما عن الموضوع السابق المعيار الاول و هو رقم الطالب في العمود التاني اما المعيار التاني الفصل الدراسي و هو العمود الاول و بعد الاختيار يتم استدعاء اسم الطالب و المقررات 3 في ليست بوكس

اخي ابو محمد المعيار الاول في العمود الاول اما المعيار التاني من العمود D الى العمود F حيث يتم تحديد اسم المقرر اذا كان احدى المقررات الثلاته التي يدرسها الطالب يتم جلب اسمه و رقم قيده في ليست بوكس و كذلك نقل اسمه الى Sheet 2 اخي سليم للاسف ليس هذا المطلوب

ارفق اليكم الملف يحتوي على شرح للمطلوب و هو جلب بيانات في ليست بوكس و اضافة و حدفها New Microsoft Excel Worksheet2.rar

ا اريد استدعاء بيانات وفقا لشروط محدده كل شرح موجود في الملف المرفق مع العلم بأن الحد الاقصى للمقررات الدراسية التي يستطيع الطالب دراستها 3 و الحد الادنى للمقررات الدراسية التي يستطيع الطالب دراستها 1 New Microsoft Excel Worksheet.rar

مشكوووووووور

مشكووووووووووووووووووووور

اريد اختصار هذا الكود للابتعاد عن مشكلة procedure too large Sub g1() lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 21).Value = "" Then t = 0 If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 1 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next NextlastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 21).Value = "" Then t = 0 If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 21).Value = "" Then t = 0 If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 35).Value = "" Then t = 14 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 35).Value = "" Then t = 14 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 35).Value = "" Then t = 14 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 49).Value = "" Then t = 28 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 49).Value = "" Then t = 28 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 49).Value = "" Then t = 28 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 63).Value = "" Then t = 42 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 63).Value = "" Then t = 42 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 63).Value = "" Then t = 42 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 77).Value = "" Then t = 56 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 77).Value = "" Then t = 56 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 77).Value = "" Then t = 56 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 91).Value = "" Then t = 70 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 91).Value = "" Then t = 70 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 91).Value = "" Then t = 70 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 105).Value = "" Then t = 84 If Sheet2.Cells(s, 10 + t).Value = "" Then Sheet2.Cells(s, 10 + t).Value = "" Else If Sheet2.Cells(s, 10 + t).Value = "A" Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value = "A-" Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value = "B+" Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value = "B" Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value = "B-" Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value = "C+" Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value = "C" Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value = "C-" Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value = "D" Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value = "F" Then Sheet2.Cells(s, 10 + t).Value = 0 Else If Sheet2.Cells(s, 10 + t).Value > 92.5 Then Sheet2.Cells(s, 10 + t).Value = 4 Else If Sheet2.Cells(s, 10 + t).Value > 82.5 Then Sheet2.Cells(s, 10 + t).Value = 3.7 Else If Sheet2.Cells(s, 10 + t).Value > 75 Then Sheet2.Cells(s, 10 + t).Value = 3.3 Else If Sheet2.Cells(s, 10 + t).Value > 67.5 Then Sheet2.Cells(s, 10 + t).Value = 3 Else If Sheet2.Cells(s, 10 + t).Value > 57.5 Then Sheet2.Cells(s, 10 + t).Value = 2.7 Else If Sheet2.Cells(s, 10 + t).Value > 50 Then Sheet2.Cells(s, 10 + t).Value = 2.3 Else If Sheet2.Cells(s, 10 + t).Value > 42.5 Then Sheet2.Cells(s, 10 + t).Value = 2 Else If Sheet2.Cells(s, 10 + t).Value > 32.5 Then Sheet2.Cells(s, 10 + t).Value = 1.7 Else If Sheet2.Cells(s, 10 + t).Value > 25 Then Sheet2.Cells(s, 10 + t).Value = 1.3 Else If Sheet2.Cells(s, 10 + t).Value >= 0 Then Sheet2.Cells(s, 10 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 105).Value = "" Then t = 84 If Sheet2.Cells(s, 13 + t).Value = "" Then Sheet2.Cells(s, 13 + t).Value = "" Else If Sheet2.Cells(s, 13 + t).Value = "A" Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value = "A-" Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value = "B+" Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value = "B" Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value = "B-" Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value = "C+" Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value = "C" Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value = "C-" Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value = "D" Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value = "F" Then Sheet2.Cells(s, 13 + t).Value = 0 Else If Sheet2.Cells(s, 13 + t).Value > 92.5 Then Sheet2.Cells(s, 13 + t).Value = 4 Else If Sheet2.Cells(s, 13 + t).Value > 82.5 Then Sheet2.Cells(s, 13 + t).Value = 3.7 Else If Sheet2.Cells(s, 13 + t).Value > 75 Then Sheet2.Cells(s, 13 + t).Value = 3.3 Else If Sheet2.Cells(s, 13 + t).Value > 67.5 Then Sheet2.Cells(s, 13 + t).Value = 3 Else If Sheet2.Cells(s, 13 + t).Value > 57.5 Then Sheet2.Cells(s, 13 + t).Value = 2.7 Else If Sheet2.Cells(s, 13 + t).Value > 50 Then Sheet2.Cells(s, 13 + t).Value = 2.3 Else If Sheet2.Cells(s, 13 + t).Value > 42.5 Then Sheet2.Cells(s, 13 + t).Value = 2 Else If Sheet2.Cells(s, 13 + t).Value > 32.5 Then Sheet2.Cells(s, 13 + t).Value = 1.7 Else If Sheet2.Cells(s, 13 + t).Value > 25 Then Sheet2.Cells(s, 13 + t).Value = 1.3 Else If Sheet2.Cells(s, 13 + t).Value >= 0 Then Sheet2.Cells(s, 13 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next lastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 'For i = 1 To 10 For s = 1 To lastRow If UserForm1.TextBox1.Text = Sheet2.Cells(s, 1).Text Then If Sheet2.Cells(s, 105).Value = "" Then t = 84 If Sheet2.Cells(s, 16 + t).Value = "" Then Sheet2.Cells(s, 16 + t).Value = "" Else If Sheet2.Cells(s, 16 + t).Value = "A" Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value = "A-" Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value = "B+" Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value = "B" Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value = "B-" Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value = "C+" Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value = "C" Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value = "C-" Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value = "D" Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value = "F" Then Sheet2.Cells(s, 16 + t).Value = 0 Else If Sheet2.Cells(s, 16 + t).Value > 92.5 Then Sheet2.Cells(s, 16 + t).Value = 4 Else If Sheet2.Cells(s, 16 + t).Value > 82.5 Then Sheet2.Cells(s, 16 + t).Value = 3.7 Else If Sheet2.Cells(s, 16 + t).Value > 75 Then Sheet2.Cells(s, 16 + t).Value = 3.3 Else If Sheet2.Cells(s, 16 + t).Value > 67.5 Then Sheet2.Cells(s, 16 + t).Value = 3 Else If Sheet2.Cells(s, 16 + t).Value > 57.5 Then Sheet2.Cells(s, 16 + t).Value = 2.7 Else If Sheet2.Cells(s, 16 + t).Value > 50 Then Sheet2.Cells(s, 16 + t).Value = 2.3 Else If Sheet2.Cells(s, 16 + t).Value > 42.5 Then Sheet2.Cells(s, 16 + t).Value = 2 Else If Sheet2.Cells(s, 16 + t).Value > 32.5 Then Sheet2.Cells(s, 16 + t).Value = 1.7 Else If Sheet2.Cells(s, 16 + t).Value > 25 Then Sheet2.Cells(s, 16 + t).Value = 1.3 Else If Sheet2.Cells(s, 16 + t).Value >= 0 Then Sheet2.Cells(s, 16 + t).Value = 0 End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If Next End Sub

السلام عليكم انا اسف على طرح اكتر من طلب في نفس الموضوع ..... بارك الله فيك اخي ياسر

اريد قائمة اخري "تعديل في كود الاخ ياسر فقط "عند ضغط زر الترحيل 2 يقوم بترحل البيانات المسجلة الى البيانات النهائية في sheet 3 وفقا للشروط التالية في البيانات الحقيقية : 1- الطالب موجود ضمن البيانات الحقيقية 2- ان يكون للطالب رغبة اخرى "نعم" بنسبة للقائمة النهائية تحتوي على رقم الطالب و اسمه Transfer Based On Specific Criteria YasserKhalil.rar

بارك الله فيك اخي ياسر .... اتمنى لك كل التوفيق

هذا progress يشتغل على ويندز 32بت و الويندز لدي 64 بت .... هل من طريقة لتشغيله على 64 بت