ابن بنها

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

ربنا يجزيك خيرا .. استاذ ياسر خليل

' ' ' Sub ClearContents() Application.ScreenUpdating = False Range("E7:O7").Select Selection.ClearContents Sheets("إنجاز1").Select Range("C7:L7").Select Selection.ClearContents Sheets("تحريرى ف 1").Select Range("D7:N7").Select Selection.ClearContents Sheets("تحريرى ف 2").Select Range("C7:N7").Select Selection.ClearContents Sheets("أعمال السنة").Select Range("C7:L7").Select Selection.ClearContents Sheets("بيانات الطلبة").Select Range("B7").Select Application.ScreenUpdating = True End Sub اخي الكريم كود مسحك ممتاز وساجرب اضافتك ان شاء الله وبعد ... كود مسحك المفروض يمسح من الصف الثامن يعني بنترك صف دائما لكي ننسخ منه وهو يعمل تمام ويتبقى بعض الادخالات في صفحات معينه في الصف السابع وعملت هذا الكود على قدي لكي يمسح ادخالات الصف السابع من الارقام فقط اريد ادخال هذا الكود مع كودكم للمسح يعني يمس الصفوف بكودك ويكمل مسح الارقام الموجوده فيي الصف السابع فاذا رايت فكره تؤدي المطلوب موافق ربنا يجزيك خيرا

بعد السطر الكام يا اخي الكريم لاني الاحظ وجود السطرين السابقين الهزة شديده

Sub TestRun() DeleteRow "بيانات الطلبة", 7 DeleteRow "إنجاز1", 7 DeleteRow "تحريرى ف 1", 7 DeleteRow "رصد الترم الأول", 7 DeleteRow "أعمال السنة", 7 DeleteRow "تحريرى ف 2", 7 DeleteRow "رصد الترم الثانى", 7 DeleteRow "كنترول شيت", 11 End Sub Sub DeleteRow(sSheet As String, sRow As Long) Dim Ws As Worksheet Dim cnt As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist.", vbExclamation, "Sheet Not Found!" Exit Sub End If Application.ScreenUpdating = False cnt = Sheets("بيانات المدرسة").Range("G7").Value Ws.Rows(sRow & ":" & (sRow + cnt - 1)).Delete Application.ScreenUpdating = True End Sub ربنا يبارك لك ... ولكن يوجد اهتزاز قوي بالشاشه اثناء اجراء تنفيذ الكود

Sub TestRun() DeleteRow "Sheet1", 10 End Sub Sub DeleteRow(sSheet As String, sRow As Long) Dim Ws As Worksheet Dim cnt As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist.", vbExclamation, "Sheet Not Found!" Exit Sub End If Application.ScreenUpdating = False cnt = Sheets("Data").Range("G7").Value Ws.Rows(sRow & ":" & (sRow + cnt - 1)).Delete Application.ScreenUpdating = True End Sub اكمل جميلك وضعه في المرفق اليس هذا الكود يمسح صفوف في ورقة واحده ام اوراق متعدده

ربنا يبارك فيك استاذ عماد . .. انت مكسب للمنتدى حفظك الله ورعاك

Sub InsertRowsAfter() Dim rg, MyCell, First_rg As Range Dim lr, x As Integer lr = Cells(Rows.count, 1).End(3).Row Set rg = Range("a1:a" & lr) Set First_rg = Range("a1:d1") اليس بهذا الكود حددنا صف البدايه .. وكذلك صف النهايه هل فهمي صح يا استاذ سليم وصف النهايه متغير

للرفع .... رفع الله مقداركم

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

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

لماذا لايتم وضع عنوان واضح يفيد الاخوة عند البحث بعد ذلك ولماذا لايتم شرح المطلوب في صفحة المنتدى ؟ مجرد سؤال

اخي الكريم اجهزة الكمبيوتر الخاصه بالمدارس انت تعلم امكانياتها جيدا وكويس انها تعمل جيدا مع 2003 ولذلك ارجوك تشوف حل لان الكود مع الفورمه راااااائع

سر الفيجوال 1

هذا هو الملف اخي الكريم رساله خطأ 1.rar

الاوفيس عندي 2003 ... ارجو شرح الرسايل اللي طلعت معناها ايه وساحاول ارفاق ملف

نعم يظهر الخطأ عند هذا السطر فقط وقد صورت اجزاءه حتى تصلك فكره الحل ان شاء الله

تكمله سطر الرساله نفس السطر للرساله

تظهر هذه الرساله ماذا نعني هذه الرسائل وماذا افعل

شكرااااااااا استاذ ياسر تظهر رساله وساصورها لكم اعانكم الله

وانا في الانتظار ربنا يبارك لك

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

العمالقه كتير ومش عارف ليه لااجد من يحلها للمعلمين

شكرا على هذا التوضيح

اريد رجل محترم يحول الشرح الخاص بالاستاذ ياسر ل2003