احبائي الكرام عاوز شرح لكود الترحيل الناجح فى شيت والراسب فى شيت
بس انا عاوز شرح للكود نفسة
اى خطوة بخطوة
بداية الكود
Sub Tarheel()
السطور التالية خاصة بتعيين متغيرات لتخزين البيانات من نوع أرقام صحيحة Integer
Dim i As Integer, x As Integer
Dim lr As Integer, y As Integer
السطر التالى لتحديد اخر صف يحتوى على بيانات
lr = [b10000].End(xlUp).Row
السطرين التاليين لمسح بيانات صفحة ناجحون وراسبون قبل نسخ البيانات اليهما
Sheets("ناجحون").Range("a9:ho1000").ClearContents
Sheets("راسبون").Range("a9:ho1000").ClearContents
السطر التالى يعمل ع