علي فاهم

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

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

ليست فعاله بكل المعايير .. انت نزلت كود فقط ولم تنزل مرفق انا حبيت اجرب كودك اللي انت كاتب فيه يوضع في 'يوضع هذا الكود في 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

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

الاستاذ ياسر تخيل انني اذكر امامك موضوعا خاصا بعلوم المركبات الفضائيه هل الافضل ان اتركك تعاني من الكثير لدرجه ممكن تحبط فيها .. ام اشرح لك واحده واحده وجزء جزء حتى تستوعب وتصبح انت الذي يصحح المعلومات في هذ ا المجال اذكر ذلك لاني ارى اكواد تؤدي اعمالا روعه ومع هذ لانستطيع تطويعها الى اعمالنا الشرح ثم الشرح وسيب الباقي على الله ==================

مامعنى هذا السطر ؟ وخاصه كلمه Resize والارقام الموجوده

للرفع

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

ويتبقى سطر بدايه نسخ الصفوف مختلف .. ممكن ينسخ بعد 100 صف او ينسخ بعد 200 صف نرجو الحل لو سمحت

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

شكرا مقدما

روعه .. اين الشرح للمعادلات السحريه وكود الطباعه من فضلك

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