فارس حسن

لماذا الشيت لا تسمح بتحديد اي صف او عمود .. مع العلم لا توجد حماية على الشيت او الخلايا .. حدثت المشكلة بعد استخدام الكود التالي الذي وضع بحدث الشيت عند Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastColumn As Integer Dim LastRow As Long If WorksheetFunction.CountA(Cells) > 0 Then LastRow = Cells.Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If LastRow <> 65536 Then LastRow = LastRow + 1 LastColumn = Cells.Find(What:="*", After:=[a1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column If LastColumn <> 256 Then LastColumn = LastColumn + 1 Me.ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address Else Me.ScrollArea = "" ScrollArea = "" End If END SUB ولم تحل المشكلة رغم ايقاف الكود .. كذلك لا ينتقل المؤشر الى اخر صف عند الضغط CTRL+سهم اسفل كذلك لا ينتقل المؤشر الى اخر عمود عند الضغط CTRL+سهم يمين

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

السلام عليكم ورحمة الله وبركاتة الاخوة اعضاء هذا المنتدى الرائع ..ادعو من الله التوفيق لكم جميعا الرجاء المساعدة ايجاد الخطا والحل في الكود وكما مطلوب .. وحسب ما موضح دخل الملف من اجل ترحيل بيانات الطلبة حسب النتيجة للدور الاول ..بحيث الناجحين لشيت ناجح او المعيدين لشيت الدور الثاني .. من اجل الاستعداد للدور 2 مع حذف درجات الرسوب الاقل من 50 من اجل ادراج درجات الدور2 ثم بعد ادراج درجات امتحان الدور 2 العمل على اضافة القرار المتبقي من الدور الاول للطالب المستفيد من القرار وحسب المتبقي من قرار الدور الاول الموجود امام كل طالب .. ويتم اضافة القرار اذا كان يجعل الطالب ناجح ... اما اذا كانت اضافة القرار لا تغير حالة الطالب من الرسوب الى الناجح فلا يضاف له قرار ويبقى راسب كذلك عمل خلاصة للطلبة المستفيدين من القرار وحسب النموذج الموجود بشيت .. قرارات اعتذر من الاطالة وكثر المطاليب ..لكن لدينا مدرسة تعدادها اكثر من 900 طالب .. وهذا العمل يساعدنا كثيرا دور2 صف اول.xlsm

شكرا جزيلا اخ .. حسين مأمون نعم هذا بالضبط هو ما اقصده بسؤالي ... نسال الله التوفيق لك .. لكم ولجميع الاخوه في هذا المنتدى هذا هو المطلوب من السؤال ... وشكرا مره اخرى للاخ حسين مأمون والملف مرفق ... انتبه من فضلك ,تـــم تعديل رفع الملف بدون ضغط , فممنوع رفع الملف مضغوط طالما حجمه صغير تحديد مناطق متفرقة للطباعة.xlsx

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

جزيل الشكر .. لكم اخي سليم ونسال الله لكم التوفيق

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