علي فاهم

اذا كنت ت اذا كنت تضيع الوقت لله اولا واخرا فاهلا لك وبعملك اما اذا كنت تعمل العمل عشان اي هدف دنيوي اخر ..ف.... وفقك الله ورعاك وحفظك

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

ليست فعاله بكل المعايير .. انت نزلت كود فقط ولم تنزل مرفق انا حبيت اجرب كودك اللي انت كاتب فيه يوضع في 'يوضع هذا الكود في this workbook ولم يعمل جيدا اصبح يختفي الملف بعد وضع الرقم السري فاجاب الاستاذ ياسر بان الكود يوضع في موديول ويوضع ايضا فورم نفذت ولم يعمل جيدا ذكر انه لابد من من و ضع سطر لإظهار التطبيق في زر الأمر الذي ستقوم برسمه على الفورم فلم افهم هذه الجمله السهله جدا بالنسبه له ولك وبرده نفذت ماقال وبرضه اختفى الملف بعد وصع الرقم السري ........... اللهم امدنا الفهم لكي نفهم الاخرين

مش فاهم ارجو ارفاق ملف

تمام .. شكرا لكن بعدها يختفي الملف لايظهر سواء كانت كلمه السر صحيحه ام خاظئه

جزيتم خيرا .. هل يمكن وضع ملفا لتكتمل الفائده

بسخ صفوف بالعدد الذي تريده وكذلك كود لنسخ صفوف بدون المسح لاضافه طالب محول بعد بيانات الطلاب ==== للمحترمين ياسر العربي وياسر خليل نسخ صفوف واضافه طالب .rar Private Sub CommandButton1_Click() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Dim lc As Long Dim c As Long Set ws = Sheets("بيانات الطلبة") c = ws.Range("Q1").Value If TextBox1.Text = ws.Range("F1") Then Me.Hide: TextBox1.Text = "" MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب", 64 Application.ScreenUpdating = False Application.Calculation = xlManual If ws.Range("Q1") < 1 Then Exit Sub For Each sh In Sheets(Array("بيانات الطلبة", "إنجاز1", "تحريرى ف 1", "تحريرى ف 2", "أعمال السنة", "كشف ناجح", "الحاله", "كنترول شيت", "رصد الترم الثانى", "كنترول شيت (2)", "رصد الترم الأول", "كشف الدور الثاني")) lr = IIf(LastRowColumn(sh, "R") = 9, 9, LastRowColumn(sh, "R")) lc = LastRowColumn(sh, "C") sh.Range("A" & lr).Resize(1, lc).AutoFill Destination:=sh.Range("A" & lr).Resize(c + 1, lc) On Error Resume Next sh.Range("A" & lr + 1).Resize(c, lc).SpecialCells(xlCellTypeConstants).ClearContents Next sh Application.Goto ws.Range("A1") Application.Calculation = xlAutomatic Application.ScreenUpdating = True Unload Me Else MsgBox "عفواً كلمة المرور خاطئه و لن يتم تنفيذ المطلوب", vbExclamation TextBox1.Text = "" TextBox1.SetFocus End If End Sub Function LastRowColumn(ws As Worksheet, rc As String) As Long Dim lng As Long If Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then With ws If UCase(rc) = "R" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row ElseIf UCase(rc) = "C" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column End If End With Else lng = 1 End If LastRowColumn = lng End Function Private Sub UserForm_Click() End Sub هذا كود اضافه صفوف بعد الصفوف الموجوده بدون مسح يصلح عند اضافه طالب محول الى المدرسه للاستاذ ياسر خليل

هنا بينسخ صح لكني مش شايف بدايه الخليه اللي هاينسخ فيها او منها

جزيت خيرا نقول اخر صف .. نقول اخر عمود مامعنى IIf ليه 2 اي والرو جنب الكولوم نرجو الشرح مش شرط بالفيديو بالكتابه بالعربي في الكود

روعه اضافه صف اوصفوف بعد بيانات الطلاب للاستاذ ياسر خليل Private Sub CommandButton1_Click() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Dim lc As Long Dim c As Long Set ws = Sheets("بيانات الطلبة") c = ws.Range("Q1").Value If TextBox1.Text = ws.Range("F1") Then Me.Hide: TextBox1.Text = "" MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب", 64 Application.ScreenUpdating = False Application.Calculation = xlManual If ws.Range("Q1") < 1 Then Exit Sub For Each sh In Sheets(Array("بيانات الطلبة", "إنجاز1", "تحريرى ف 1", "تحريرى ف 2", "أعمال السنة", "كشف ناجح", "الحاله", "كنترول شيت", "رصد الترم الثانى", "كنترول شيت (2)", "رصد الترم الأول", "كشف الدور الثاني")) lr = IIf(LastRowColumn(sh, "R") = 9, 9, LastRowColumn(sh, "R")) lc = LastRowColumn(sh, "C") sh.Range("A" & lr).Resize(1, lc).AutoFill Destination:=sh.Range("A" & lr).Resize(c + 1, lc) On Error Resume Next sh.Range("A" & lr + 1).Resize(c, lc).SpecialCells(xlCellTypeConstants).ClearContents Next sh Application.Goto ws.Range("A1") Application.Calculation = xlAutomatic Application.ScreenUpdating = True Unload Me Else MsgBox "عفواً كلمة المرور خاطئه و لن يتم تنفيذ المطلوب", vbExclamation TextBox1.Text = "" TextBox1.SetFocus End If End Sub Function LastRowColumn(ws As Worksheet, rc As String) As Long Dim lng As Long If Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then With ws If UCase(rc) = "R" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row ElseIf UCase(rc) = "C" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column End If End With Else lng = 1 End If LastRowColumn = lng End Function Private Sub UserForm_Click() End Sub لو شويه شرح في الكود لان فيه جديد علينا

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

للرفع

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

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

للرفع لافذاذ المنتدى