السلام عليكم
جرب
=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,"ممتاز","ممتاز مرتفع"))))))))
ربما عليك تبديل , ووضع ;
السلام عليكم
brother egydream2002
select the cell you need to make the day in
then go to tools -- format cell Ctrl+1
go to custom and put dddd like the pic
السلام عليكم جميعاً
اخي سيف الدين
اسمي هو محي الدين
وأنا لم أكن أعرفها ولكن عند سؤال الأخ ab12sa جربتها
مع تحياتي الى الجميع وعزراً على قللت مشاركاتي لقصر وقتي