ترحيل عدد محدد من الصفوف

[ايهاب سعيد]

هل يمكن من خلال الكود ترحيل عدد محدد من الصفوف بمعني تقسيم الشيت الي صفوف مع المحافظة علي عناوين الصفوف الي شيت جديد

Book1.rar

[ايهاب سعيد]

للتوضيح اريد نسخ للصفوف وليس نقل

[رجب جاويش]

السلام عليكم

تفضل أخى

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

[ايهاب سعيد]

يعجز لساني عن شكرك اخي الفاضل

وهل اطمع بالمزيد فهل يمكن ان يضاف كود للجمع ايضا لخانة المسلسل وايضا للمبلغ حسب الصفوف وان يتم وضع فاصل للصفحات

ارجو ان لا اكون اثقلت علي سيادتك

[ايهاب سعيد]

ملاحظة علي الكود السابق اذا كانت اول الصفوف اكثر من سط بمعني لو اردت ان احفظ علي بداية السطور يحدث خطاء بالكود مرفق لسياتكم الملف

ترحيل مع تقسيم البيانات2.rar

[رجب جاويش]

السلام عليكم

هذا هو التعديل

ليحل مشكلة وجود صفين فى بداية البيانات

ترحيل مع تقسيم البيانات2.rar

[ايهاب سعيد]

ماز الت المشكلة سيدي الفاضل

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

ترحيل مع تقسيم البيانات3.rar

[رجب جاويش]

أخى الفاضل

وجود دمج خلايا فى البيانات الموجودة فى بداية الشيت يمنع عمل الكود

لذا تم عمل فواصل صفحات وتثبيت البيانات العلوية لتظهر فى جميع الصفحات ( يمكن رؤيتها عند المعاينة )

ولكن أحيانا يحتاج الأمر تعديل الفواصل يدويا فى بعض الحالات ( لصعوبة ضبطة بالكود فى كل مرة )

جرب الملف المرفق

ترحيل مع تقسيم البيانات3.rar

[ايهاب سعيد]

اخي المبدع اشكرك كثيرا علي الاهتمام وهذا يجعلني اطمع منك بالمزيد فهل يمكن اضافة سطر للمجموع نهاية كل صفحة لجميع الخلايا التي بها ارقام

وهل يمكن ايضا التحكم في الاعمدة التي يمكن ان تعرض فمثلا لو اردت عمود او اكثر ان يرحل من خلال نموذج للاختيار الاسم ثم الاستحقاق فقط بدلا من كل هذه الاعمدة مع المحافظة علي التنسيق

وفي النهاية اشكر سيادتك كثيرا علي كل مجهودك

تم تعديل ديسمبر 15, 2012 بواسطه ايهاب سعيد

[رجب جاويش]

أخى الفاضل

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

يمكنك متابعة الرابط التالى للأستاذ عباد

http://www.officena.net/ib/index.php?showtopic=44377

حيث أننى حاولت تطبيقة على ملفك ولم يفلح معى

ربما يتفضل احد الأخوة بمحاولة تطبيق الكود على ملفك