هل لمكن تعديل معادل الترحيل لتترك صف فارغ

[أ محمد عبد الصمد]

بسم الله الرحمن الرحيم

 

ارجو تعديل معادلة الترحيل فى الملف المرفق بحيث ترحل البيانات بنفس الترتيب ولكن تترك صف فارغ فى الورقة المستقبلة لبيانات الترحيل دون الكتابة فيها 

 

بمعنى ترحل صف والصف الثانى تتركه فارغ ثم ترحل الصف الثانى فى المصدر الى الثالث فى الورقة المستقبلة وهكذا

 

http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=114488Fetching info...

 

[ياسر خليل أبو البراء]

الملف محمي يرجى إعادة رفع الملف بعد إزالة الحماية

واذكر التفاصيل .. الورقة المصدر والورقة الهدف وما هو شكل النتائج المتوقعة

 

[أ محمد عبد الصمد]

اعتذر 

أخى الافاضل

الورقة المقصود بها مصدر البيانات وهى ورقة دور تانى أم المستقبل فهى ناجحون وبحكم القامون وراسبون

الدالة تقوم بترحيل التلاميذ حسب حالتهم بالترتيب 

ولكن الادارة التعليمية تريد أن يتم كتابة درجات التلاميذ التى حصلوا عليها فى الدور الثانى فوق درجة اخر العام 

بمعنى ان الطالب سيكون له درجتان درحة أخر العام وساكتب فوقها الدرجا التى حصل عليها فى الدور الثانى 

لذلك أرجو أن يكون الترحيل على صف ويترك صف حتى يكون للطالب صفين للدرحات

 

والملف محمى بدون كلمة سر  وكلمة سر الاكرواد aya123

[الشهابي]

أخي العزيز / أ محمد عبد الصمد

وبعد أذن أخينا وحبيبنا وأستاذنا القدير / ياسر خليل حفظه الله وبارك الله فيه وزاده علماً ورفعة 

إضافة سطر عن طريق المعادلات هذا حسب علمي  غير ممكن 

ولكن عن طريق الكود ذلك ممكن إن شاء الله فأرفق لك كود قد عملته سابقا طلباً لأحد الأخوة الكرام 

قمت بالتعديل فيه ليتناسب مع ملفك  قم بتنفيذه في ورقة  دور ثاني  ليقوم بإضافة صف فارغ أعلى كل صف فيه بيانات عندك 

Sub Add_row()
         Application.EnableEvents = False
        Application.ScreenUpdating = False
          Application.Calculation = xlManual
 For X = 8 To 200 Step 2
 Range("C" & X).EntireRow.Insert
 Next X
         Application.Calculation = xlAutomatic
         Application.ScreenUpdating = True
           Application.EnableEvents = True
End Sub

 

تم تعديل يوليو 29, 2016 بواسطه الشهابي

[أ محمد عبد الصمد]

الف الف شكر أحى الفاضل على تفاعلك معى وقد استخدمت الكود وهو فعلا رائع ولكن بعد الصف الخاس عشر والذى يحتوى على بيانات يظهر الصفوف ال 16 فما فوق بها رسائل خطأ كما فى الصورة 

[ابو عبدالبارى]

الأخ الكريم محمد عبد الصمد

رسائل الخطأ ظهرت لأن الخانات التى تحركت لأسفل بها معادلات ومن هنا بدأت المعادلات تسحب قيم غير سليمة ...

[الشهابي]

أخي العزيز / أ محمد عبد الصمد

 

فعلا كلام أخينا الأستاذ أبو عبد الباري صحيح  

فالأفضل في هذه الحالة استعمال الترحيل الكود بدلا من المعادلات تفاديا للأخطاء 

والله أعلم 

 

[سليم حاصبيا]

اليك هذا الملف الذي يقوم ادراج عدد معين من الصفوف (حسب الطلب)

ثم يقوم بنسخ المعادلات اليها

يمكن تعديله حسب ما تريد

 

insert rows with his formula1.rar