نورانور قام بنشر يونيو 22, 2013 مشاركة قام بنشر يونيو 22, 2013 السلام عليكم من فضلكم يوجد فى الملف المرفق بيانات فى ورقة 1 اريد ترحيلها كما فى ورقة 2 اى كل صف به بيانات فوقه صف فارغ والعدد 700 طالب وجزاكم الله خيرا ترحيل.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 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 رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر يونيو 23, 2013 الكاتب مشاركة قام بنشر يونيو 23, 2013 شكرا للأستاذ رجب وجميع مشرفى المنتدى الكرام على سرعة الرد وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر يونيو 23, 2013 مشاركة قام بنشر يونيو 23, 2013 الاخ رجب جاويش كل عام وانت واعضاء المنتدى بخير يااستاذ الترحيلات رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 الاستاذ والاخ الحبيب رجب جاويش بارك الله فيك وجزاك الله خيرا جعله الله سبحانه وتعالى في ميزان حسناتك كل عام وانتم بالف خير بلغك الله رمضان واعانك على عمل الخير تقل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
أ محمد عبد الصمد قام بنشر يونيو 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 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 أخى الفاضل / نور جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 الأستاذ الفاضل / مجدى يونس جزاك الله كل خير على هذه الكلمات الطيبة يا أستاذ الذوق والكلمات العطرة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 أخى الحبيب / عباس السماوي شكرا جزيلا أخى الحبيب على المرور العطر والكلمات الطيبة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 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 ارجاع خاصية اهتزاز الشاشة كما كانت رابط هذا التعليق شارك More sharing options...
أ محمد عبد الصمد قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 بارك الله فيك استاذنا الفاضل استاذ رجب جاويش لقد قمت بنسخ الكود وقمت بتطويعه ليناسبني وذلك بفضل شرحك الرائع بارك الله فيك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 24, 2013 مشاركة قام بنشر يونيو 24, 2013 أخى الفاضل / محمد شكرا جزيلا أخى الفاضل وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.