ناصر سعيد

الرابط الاول اصبح لايعمل ولهذا اتيت بهذا الرابط السريع حفاظا على هذا العمل الرائع رابط الاسطوانة الصاروخي http://ia601503.us.archive.org/29/it…cd-roaya-5.zip

جزاك الله خيرا كثيرا الاستاذ القدير حماده الكود مفيد وياحبذا لو مسح الاسطر السابقه واضاف العدد المطلوب فقط في عده صفحات نريد ان ينسخ السطر السابع الموجود بصفحات مختلفه بالعدد المطلوب في نفس صفحاتهم

الصف الأول الاعدادى 11 / 11 / 2019 https://up.top4top.net/downloadf-1413oye831-rar.html الصف الثانى الاعدادى 11 / 11 / 2019 https://up.top4top.net/downloadf-1413shpw41-rar.html

مجرد سؤال وهل هذه الاكواد التي تريد حجبها بطريقه محكمه ملك لك يعني خرج الكود من بنات افكارك ام انك اخذتها من رجال يبتغون وجه الله الكريم واردت انت ان تغلقها باحكام شديد مجرد سؤال لو دامت لغيرك ماوصلت لك

جزاك الله خيرا

روابط اخرى لنقس الاصدار ونفس البرنامج == الصففين الاول والثاني https://up.top4top.net/downloadf-1400luo3b1-rar.html == الصف الثالث https://up.top4top.net/downloadf-1400xi7ad1-rar.html == الصفوف الرابع والخامس والسادس https://up.top4top.net/downloadf-1400f50c81-rar.html == روابط فيديوهات برنامج كنوز 2020 على قناة أكاديمية الصقر للتدريب. https://up.top4top.net/downloadf-1400wr7ze1-rar.html الروابط الصف الأول الاعدادى 3 / 11 / 2019 https://up.top4top.net/downloadf-1401n8d2n1-rar.html الصف الثانى الاعدادى 3 / 11 / 2019 https://up.top4top.net/downloadf-1401rrlbx2-rar.html

أحبتى فى الله السلام عليكم ورحمة الله وبركاته ==== عاجــــــل ====== روابط التحميل فى نهاية المنشور تم بحمد الله تعالى ، الاستقرار على النسخة النهائية لبرنامج كنوز للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 حيث لم يردنى أى ملاحظات كثيرة على النسخة التجريبية التى تم نشرها فى 25/11 سوى 4 ملاحظات خفيفة تتعلق بحماية بعض الأوراق وما شابه ذلك والحمد لله تعالى تم التعديل عليها ============= الروابط الصفين الأول والثانى الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-13991rosc1-rar.html الصف الثالث الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-1399nx4oo1-rar.html الصفوف الرابع للسادس الابتدائى 1 / 11 / 2019 https://up.top4top.net/downloadf-1398a7qt33-rar.html منقول للفائدة

ربنا يبارك فيك يا استاذ محمد

جزاك الله خيرا

جزاك الله كل خير استاذ مصطفى كنت اتمنى ان يكون التسطير بالعدد المطلوب فقط

الكود من اعمال الاستاذ الكبير سليم حاصبيا تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل التعديل للاستاذ الكبير احمد بدره Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select My_sh.Range("A5:t1005").ClearContents For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub جزاهم الله كل خير https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=163650

نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات

======== من فضلكم مامعنى هذا السطر ؟ Dim R As Integer, M%: M = 5

حفظكم الله ورعاكم ... يارب الاستاذ الكبير سليم والاستاذ احمد يبارك فيكما ربنا === نتعشم في اضافه ميزه التسطير التلقائي مع الخط الغامق وتوسيط الارقام والكلمات

Private Sub ComboBox1_Change() Dim R As Integer, M As Integer, N As Integer, o As Integer ''''''''''''''''''''''''''''' M = 5: N = 5: o = 5 Application.ScreenUpdating = False For R = 5 To 100 If (Me.ComboBox1.Value = "ناجح" And Cells(R, 20) = "ناجح") Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf (Me.ComboBox1.Value = "دور ثانى" And Cells(R, 20) = "دور ثانى") Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان فى").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' Else If Me.ComboBox1.Value = "راسب" And Cells(R, 20) = "راسب" Then Range("A" & R).Resize(1, 20).Copy ''' سيتم اللصق في هذا الشيت Sheets("رسوب").Range("A" & o).PasteSpecial xlPasteValues Application.CutCopyMode = False o = o + 1 End If End If Next End Sub Private Sub textbox1_change() If TextBox1 = "" Then Exit Sub sheet3.Activate ss = sheet3.Cells(Rows.Count, 4).End(xlUp).Row k = 0 For Each c In Range("d5:d" & ss) If c Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(c.Row, 4).Value ListBox1.List(k, 1) = c.Row k = k + 1 End If Next c End Sub هذا هو الكود الذي وضعته في ملفك الاخير في حدث الصفحه