ايهاب سعيد قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 هل يمكن من خلال الكود ترحيل عدد محدد من الصفوف بمعني تقسيم الشيت الي صفوف مع المحافظة علي عناوين الصفوف الي شيت جديد Book1.rar
رجب جاويش قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 السلام عليكم تفضل أخى Sub ragab() Sheets("sheet2").Range("A2:C1000").ClearContents LR = [A10000].End(xlUp).Row - 1 Application.ScreenUpdating = False Range("A2:C" & LR + 1).Copy Sheets("sheet2").Range("A2").PasteSpecial xlPasteValues R = Range("D1").Value + 1 XX = Application.WorksheetFunction.RoundUp(LR / R, 0) - 1 Sheets("sheet2").Select Range("A1").Select For e = 1 To XX ActiveCell.Offset(R, 0).Range("A1").Select Rows(ActiveCell.Row).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next e Range("1:1").Select Selection.Copy For e = 1 To XX ActiveCell.Offset(R, 0).Range("A1").Select ActiveSheet.Paste Next e Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح", vbMsgBoxRight, "اكتمال الترحيل" End Sub ترحيل مع تقسيم البيانات.rar
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب قام بنشر ديسمبر 14, 2012 يعجز لساني عن شكرك اخي الفاضل وهل اطمع بالمزيد فهل يمكن ان يضاف كود للجمع ايضا لخانة المسلسل وايضا للمبلغ حسب الصفوف وان يتم وضع فاصل للصفحات ارجو ان لا اكون اثقلت علي سيادتك
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب قام بنشر ديسمبر 14, 2012 ملاحظة علي الكود السابق اذا كانت اول الصفوف اكثر من سط بمعني لو اردت ان احفظ علي بداية السطور يحدث خطاء بالكود مرفق لسياتكم الملف ترحيل مع تقسيم البيانات2.rar
رجب جاويش قام بنشر ديسمبر 14, 2012 قام بنشر ديسمبر 14, 2012 السلام عليكم هذا هو التعديل ليحل مشكلة وجود صفين فى بداية البيانات ترحيل مع تقسيم البيانات2.rar
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب قام بنشر ديسمبر 14, 2012 ماز الت المشكلة سيدي الفاضل في النموذج الذي استخدمه لذلك ارسله لسيادتكم لمعرفة الخطاء بالكود ترحيل مع تقسيم البيانات3.rar
رجب جاويش قام بنشر ديسمبر 15, 2012 قام بنشر ديسمبر 15, 2012 أخى الفاضل وجود دمج خلايا فى البيانات الموجودة فى بداية الشيت يمنع عمل الكود لذا تم عمل فواصل صفحات وتثبيت البيانات العلوية لتظهر فى جميع الصفحات ( يمكن رؤيتها عند المعاينة ) ولكن أحيانا يحتاج الأمر تعديل الفواصل يدويا فى بعض الحالات ( لصعوبة ضبطة بالكود فى كل مرة ) جرب الملف المرفق ترحيل مع تقسيم البيانات3.rar
ايهاب سعيد قام بنشر ديسمبر 15, 2012 الكاتب قام بنشر ديسمبر 15, 2012 (معدل) اخي المبدع اشكرك كثيرا علي الاهتمام وهذا يجعلني اطمع منك بالمزيد فهل يمكن اضافة سطر للمجموع نهاية كل صفحة لجميع الخلايا التي بها ارقام وهل يمكن ايضا التحكم في الاعمدة التي يمكن ان تعرض فمثلا لو اردت عمود او اكثر ان يرحل من خلال نموذج للاختيار الاسم ثم الاستحقاق فقط بدلا من كل هذه الاعمدة مع المحافظة علي التنسيق وفي النهاية اشكر سيادتك كثيرا علي كل مجهودك تم تعديل ديسمبر 15, 2012 بواسطه ايهاب سعيد
رجب جاويش قام بنشر ديسمبر 15, 2012 قام بنشر ديسمبر 15, 2012 أخى الفاضل بالنسبة لاضافة سطر للمجموع نهاية كل صفحة لجميع الخلايا التى بها أرقام يمكنك متابعة الرابط التالى للأستاذ عباد http://www.officena.net/ib/index.php?showtopic=44377 حيث أننى حاولت تطبيقة على ملفك ولم يفلح معى ربما يتفضل احد الأخوة بمحاولة تطبيق الكود على ملفك
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان