خالد المصـــــــــــرى

فيه خلايا المفروض متتمسحش

مشكلة في زيادة نطاق مسح محتويات الخلايا تصفير.xlsb

ممكن استخدامه في المدارس المصرية

بالمعادلات كل عام وانت بخير(1).xlsm بالمعادلات

عملت تعديل الاسماء تبدأ من الصف السابع المعادلة عايزه تتعدل 454545(2).xlsx

المشكلة مازالت قائمة

تفضل اخي قمت بتعديل بسيط بنقل البيانات من عمود b الى عمود a xl.xlsb

AGGREGATE(15;6;( رقم 16 خاص بايه ورقم 5 خاص بايه

كود راسبون لايعمل sheet-5.xlsb

انا علمت تغيير في الورقة والكود مش شغال Mohamed Hicham V1 خالد.xlsb

=IFERROR(INDEX(شيت!$A$7:$A$48;AGGREGATE(15;6;(ROW($A$1:$A$100)/(شيت!$AN$7:$AN$48="دور ثاني"));ROW(A1));1);"") ممكن شرحها في الملف

Chr(207), Chr(230), Chr(209), Chr(32), Chr(203), Chr(199), Chr(228), Chr(237) وده معناه ايه

فين شرط دور ثاني في الكود

Sub Test() Const SROW As Long = 7 Dim ws As Worksheet, sh As Worksheet, rng As Range, lr As Long, r As Long Application.ScreenUpdating = False With ThisWorkbook Set ws = .Worksheets(1): Set sh = .Worksheets(2) End With sh.Rows(SROW & ":" & Rows.Count).Cells.Clear lr = ws.Cells(Rows.Count, "C").End(xlUp).Row If lr < SROW Then Exit Sub ws.Range("A" & SROW & ":G" & lr).Copy sh.Range("A" & SROW) ws.Range("AN" & SROW & ":AN" & lr).Copy sh.Range("AN" & SROW) For r = SROW To lr If sh.Cells(r, "AN").Value <> Join(Array(Chr(207), Chr(230), Chr(209), Chr(32), Chr(203), Chr(199), Chr(228), Chr(237)), Empty) Then If rng Is Nothing Then Set rng = sh.Rows(r) Else Set rng = Union(rng, sh.Rows(r)) End If Next r If Not rng Is Nothing Then rng.EntireRow.Delete lr = sh.Cells(Rows.Count, "C").End(xlUp).Row If lr < SROW Then Exit Sub sh.Range("A" & SROW).Resize(lr - SROW + 1).Value = Evaluate("ROW(1:" & lr - SROW + 1 & ")") Application.ScreenUpdating = True End Sub

عمل كود تلقائي او معادلة لنقل الراسبين لورقة خاصة بيهم خالد.xlsb

بارك الله فيك استاذنا العزيز

المفروض العدد 91 بس ظاهر 230 لانه عد الصفر لان الاسماء دي نسخ من ورقة 1 والدالة المدى بتاعها من A1 الى A230 New ورقة عمل Microsoft Excel.xlsx

Sub SEPARATION() Application.ScreenUpdating = False Dim ResSh As String Sheets("ناجح").Range("A6:DN1000").ClearContents Sheets("راسب").Range("A6:DN1000").ClearContents ee = [DN1007].End(xlUp).Row For i = 10 To Cells(1007, 118).End(xlUp).Row ResSh = Trim(Cells(i, 118).Value) AA = Sheets(ResSh).Cells(1000, 118).End(xlUp).Row + 1 On Error Resume Next For ii = 1 To 118 Sheets(ResSh).Cells(AA, ii).Value = Cells(i, ii).Value Next Next Application.ScreenUpdating = True MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح" End Sub For i = 10 To Cells(1007, 118).End(xlUp).Row ResSh = Trim(Cells(i, 118).Value) AA = Sheets(ResSh).Cells(1000, 118).End(xlUp).Row + 1 On Error Resume Next For ii = 1 To 118 Sheets(ResSh).Cells(AA, ii).Value = Cells(i, ii).Value شرح هذا الجزء

فلتر.xlsb

برنامج كاتب اكواد الاكسل كاتب الاكواد.rar

شكرا لكم جميعا تم الحل

كاتب الاكواد.zip

نكتب معادلة في خلية AS7 اذا كانت خلية AQ7 تحتوى على كلمة ناجح نكتب في خلية AR7 منقول معادلة.xlsb

شكرا يا اخي هو المطلوب