نورانور قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 السلام عليكم من فضلكم يوجد فى الملف المرفق بيانات فى ورقة 1 اريد ترحيلها كما فى ورقة 2 اى كل صف به بيانات فوقه صف فارغ والعدد 700 طالب وجزاكم الله خيرا ترحيل.rar
رجب جاويش قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 تفضل أخى Sub ragab() Dim x As Integer, i As Integer, LR As Integer x = 14 Sheets("ورقة2").Range("A14:CA1000").ClearContents LR = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For i = 13 To LR Cells(i, 1).Resize(1, 79).Copy Sheets("ورقة2").Range("A" & x).PasteSpecial xlPasteValues x = x + 2 Application.CutCopyMode = False Next Application.ScreenUpdating = True End Sub ترحيل.rar
نورانور قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 شكرا للأستاذ رجب وجميع مشرفى المنتدى الكرام على سرعة الرد وبارك الله فيكم
مجدى يونس قام بنشر يونيو 23, 2013 قام بنشر يونيو 23, 2013 الاخ رجب جاويش كل عام وانت واعضاء المنتدى بخير يااستاذ الترحيلات
أبو محمد عباس قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 الاستاذ والاخ الحبيب رجب جاويش بارك الله فيك وجزاك الله خيرا جعله الله سبحانه وتعالى في ميزان حسناتك كل عام وانتم بالف خير بلغك الله رمضان واعانك على عمل الخير تقل فائق احترامي وتقديري
أ محمد عبد الصمد قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 الاستاذ الفاضل رجب جاويش بعد اذن حضرتك ممكن شرح الكود حتى يمكن التعديل عليه وتطويعه للاستخدام على اى شيت وبمعنى أخر نريد معرفة المتغيرا الموجودة فى الكود Sub ragab()Dim x As Integer, i As Integer, LR As Integerx = 14Sheets("ورقة2").Range("A14:CA1000").ClearContentsLR = Cells(Rows.Count, 1).End(xlUp).RowApplication.ScreenUpdating = FalseFor i = 13 To LRCells(i, 1).Resize(1, 79).CopySheets("ورقة2").Range("A" & x).PasteSpecial xlPasteValues x = x + 2Application.CutCopyMode = FalseNextApplication.ScreenUpdating = TrueEnd Sub
رجب جاويش قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 الأستاذ الفاضل / مجدى يونس جزاك الله كل خير على هذه الكلمات الطيبة يا أستاذ الذوق والكلمات العطرة
رجب جاويش قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 أخى الحبيب / عباس السماوي شكرا جزيلا أخى الحبيب على المرور العطر والكلمات الطيبة
رجب جاويش قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 أخى الفاضل / محمد بالنسبة للكود السطر التالى تعريف لبعض المتغيرات Dim x As Integer, i As Integer, LR As Integer السطر التالى x = 14 يضع قيمة للمتغير X تساوى 14 وهو أول سطر يتم لصق البيانات فى الورقة التى يتم الترحيل اليها ( ورقة 2 ) السطر التالى Sheets("ورقة2").Range("A14:CA1000").ClearContents يمسح البيانات القديمة الموجودة فى ورقة 2 السطر التالى LR = Cells(Rows.Count, 1).End(xlUp).Row يتم تحديد أخر صف يحتوى على بيانات فى الورقة المحتوية على البيانات المراد ترحيلها ووضعها داخل المتغير LR السطر التالى Application.ScreenUpdating = False يوقف اهتزاز الشاشة الجزء التالى For i = 13 To LR Next حلقة تكرار من الصف 13 ( أول صف بيانات ) الى آخر صف به بيانات السطر التالى Cells(i, 1).Resize(1, 79).Copy نسخ البيانات المكونة من صف واحد و79 عمود ( حسب البيانات ) السطر التالى Sheets("ورقة2").Range("A" & x).PasteSpecial xlPasteValues لصق البيانات فى ورقة 2 السطر التالى x = x + 2 زيادة قيمة المتغير X بمقدار 2 حتى يتم ترك صف فراغ بعد كل اسم السطر التالى Application.CutCopyMode = False ايقاف خاصية اللنسخ واللصق السطر التالى Application.ScreenUpdating = True ارجاع خاصية اهتزاز الشاشة كما كانت
أ محمد عبد الصمد قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 بارك الله فيك استاذنا الفاضل استاذ رجب جاويش لقد قمت بنسخ الكود وقمت بتطويعه ليناسبني وذلك بفضل شرحك الرائع بارك الله فيك
رجب جاويش قام بنشر يونيو 24, 2013 قام بنشر يونيو 24, 2013 أخى الفاضل / محمد شكرا جزيلا أخى الفاضل وجزاك الله كل خير
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان