السلام عليكم
جرب
=INDEX(Record!$C$5:$C$96,100000-SUMPRODUCT(LARGE((Record!$X$5:$X$96="ناجح")*(100000-ROW(Record!$X$5:$X$96)),ROWS(A$29:A29)))-4)
وقد تم تعديل المرفق
1.zip
السلام عليكم
حاولت ولم استطيع الا ان اغير بالكود
ولكن حسب علمي انه اسرع من السابق
Sub tarheel()
Application.ScreenUpdating = False
On Error Resume Next
If stopit = True Then Exit Sub
Application.OnTime (Now + TimeSerial(0, 0, 3)), "tarheel"
Sheets("abc").Cells(5, 2).Value = Format(Now, "hh:mm:ss")
x = Sheets("abc").[b4]
Sheets("abc").Range("b5:b18").Copy
Sheets("abc").Cells(5, x).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Sheets("abc").Range("a2").Select
Application.CutCopyMode = False
On Error GoTo MyErr
MyErr:
If Err = 1004 Then
Application.ScreenUpdating = True
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
ارجو ان يكون هذا ما تريد
السلام عليكم
جرب هذا
=IF(G5<60,"راسب",IF(G5<65,"مقبول",IF(G5<70,"مقبول مرتفع",IF(G5<75,"جيد",IF(G5<80,"جيد مرتفع",IF(G5<85,"جيد جداً",IF(G5<90,"جيد جداً مرتفع",IF(G5<95,"ممتاز","ممتاز مرتفع"))))))))
ربما عليك تبديل , ووضع ;