نسخ مرة واحدة لكن طباعة اكثر من نسخة

[رجب مرسي]

هل يمكن عمل copy من جدول موجود في اكسل في الورقة الاولى مثلا ثم عمل paste لنفس الجدول واكن بدلا من ان يعمل paste مرة واحدة اريدة ان يفعل ذلك اكثر من مرة  ( بدلا من كليك يمين و بيست مرة واحدة اريدة ان ينسخ عشر نسخ ) اشكركم على سعة صدوركم

[ياسر خليل أبو البراء]

أخي الفاضل رجب مرسي

أهلا بك في المنتدى ومرحبا بك بين إخوانك

 

يرجى إرفاق ملف للإطلاع عليه

والطلب غير واضح حيث أنك لم تحدد وجهة أو الخلية الهدف التي سيتم النسخ إليها ...أي ما هي الخلايا التي سيتم لصق البيانات فيها

وإذا كانت خلية واحدة فما الفائدة من تكرار عملية اللصق ..

ثم إنك ذكرت في العنوان شيء يخص الطباعة ولم توضح في طلبك أو تنوه إلى ما يخص الطباعة

 

تقبل تحياتي

[رجب مرسي]

أخي الفاضل رجب مرسي

أهلا بك في المنتدى ومرحبا بك بين إخوانك

 

يرجى إرفاق ملف للإطلاع عليه

والطلب غير واضح حيث أنك لم تحدد وجهة أو الخلية الهدف التي سيتم النسخ إليها ...أي ما هي الخلايا التي سيتم لصق البيانات فيها

وإذا كانت خلية واحدة فما الفائدة من تكرار عملية اللصق ..

ثم إنك ذكرت في العنوان شيء يخص الطباعة ولم توضح في طلبك أو تنوه إلى ما يخص الطباعة

 

تقبل تحياتي

مطلوب نسخ هذه القائمة  ولصقها في الوقة 2 ولكن عند اللصق اطلب منه ان يلصقها 9 مرات مثلا بدلا من مرة واحة

 

الاستاذ الفاضل ابو البراء انت انسان فاضل واني احبك في الله

Book2.rar

[ياسر خليل أبو البراء]

الأخ الفاضل رجب مرسي

أحبك الله الذي أحببتني فيه ، بارك الله فيك

تم تسمية النطاق المراد نسخه باسم Data

 

إليك الملف التالي عله يفي بالغرض

Sub CopyRangeSpecificTimes()
    Dim WS As Worksheet, SH As Worksheet
    Dim I As Long, lRow As Long
    Set WS = Sheets("ورقة1"): Set SH = Sheets("ورقة2")
    lRow = 1
    Application.ScreenUpdating = False
        SH.Cells.Clear
        For I = 1 To 9
            WS.Range("Data").Copy
            SH.Cells(lRow, 1).PasteSpecial xlPasteAll
            lRow = lRow + 37
        Next I
        WS.Activate
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Copy Range Specific Times YasserKhalil.rar

[ياسر خليل أبو البراء]

نقطة هامة جداً : إذا كان الهدف طباعة النطاق أكثر من نسخة فبإمكانك من خلال خيارات الطباعة تحديد عدد النسخ المراد طباعتها .. كما يمكنك تحديد النطاق ثم طباعة التحديد بأي عدد من النسخ

إلا إذا كان ببالك أمر آخر ..عموماً لديك الحلين : الحل بالمشاركة السابقة وهذا الاقتراح

[رجب مرسي]

بسم الله ما شاء الله انت عبقري يا استاذ ياسر جزاك الله خير

عندي رجاء  هل يمكن شرح ما فعلت اخوكم رجب

لي طلب اخر ما معني هذا هذا السطر عندما اجدة في كود LR = Sheet6.[F9999].End(xlUp).Row

[ياسر خليل أبو البراء]

الأخ الكريم رجب

إليك شرح الكود ، ولا تنسانا من صالح الدعاء

Sub CopyRangeSpecificTimes()
'يقوم الكود بنسخ نطاق محدد إلى ورقة عمل أخرى عدد من المرات
'---------------------------------------------------------
'تعريف المتغيرات
    Dim WS As Worksheet, SH As Worksheet
    Dim I As Long, lRow As Long
'تعيين أوراق العمل ، ورقة العمل المراد النسخ منها ، وورقة العمل المراد النسخ إليها
    Set WS = Sheets("ورقة1"): Set SH = Sheets("ورقة2")
'تعيين صف البداية للنسخ ليكون الصف الأول
    lRow = 1
'إلغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
'مسح محتويات وتنسيقات كل الخلايا في ورقة العمل المراد النسخ إليها
        SH.Cells.Clear
'حلقة تكرارية من 1 إلى 9 ليمثل عدد مرات النسخ
        For I = 1 To 9
'[Data] نسخ النطاق المسمى
            WS.Range("Data").Copy
'لصق البيانات المنسوخة لورقة العمل الثانية في الصف رقم 1 في أول مرة
'يتغير الصف الذي سيتم النسخ إليه [lRow] وبتغير المتغير المسمى
            SH.Cells(lRow, 1).PasteSpecial xlPasteAll
'زيادة المتغير بمقدار 37 ليتناسب مع عدد صفوف النطاق المنسوخ مع ترك صف فارغ
            lRow = lRow + 37
'إعادة عمل الحلقة التكرارية
        Next I
'تحديد ورقة العمل الأولى
        WS.Activate
'إلغاء خاصية القص والنسخ
    Application.CutCopyMode = False
'إعادة تفعيل خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

[رجب مرسي]

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

ف كل مكان

الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break   ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :-

1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2-  الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل

3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3  وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلة[

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

قوائم الفصول.rar

[رجب مرسي]

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

ف كل مكان

الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break   ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :-

1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2-  الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل

3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3  وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلةقوائم الفصول.rar

لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعاقوائم الفصول.rar

[ياسر خليل أبو البراء]

أخي الحبيب رجب

أقترح طرح موضوع جديد وأن تنظم أفكارك بشكل يسهل معه فهم المطلوب ..أنا تهت بين طيات الكلام ...

اطرح موضوع جديد أفضل ويا ريت يكون مرفق واحد فقط مش 3 مرفقات