رجب مرسي قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 هل يمكن عمل copy من جدول موجود في اكسل في الورقة الاولى مثلا ثم عمل paste لنفس الجدول واكن بدلا من ان يعمل paste مرة واحدة اريدة ان يفعل ذلك اكثر من مرة ( بدلا من كليك يمين و بيست مرة واحدة اريدة ان ينسخ عشر نسخ ) اشكركم على سعة صدوركم
ياسر خليل أبو البراء قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 أخي الفاضل رجب مرسي أهلا بك في المنتدى ومرحبا بك بين إخوانك يرجى إرفاق ملف للإطلاع عليه والطلب غير واضح حيث أنك لم تحدد وجهة أو الخلية الهدف التي سيتم النسخ إليها ...أي ما هي الخلايا التي سيتم لصق البيانات فيها وإذا كانت خلية واحدة فما الفائدة من تكرار عملية اللصق .. ثم إنك ذكرت في العنوان شيء يخص الطباعة ولم توضح في طلبك أو تنوه إلى ما يخص الطباعة تقبل تحياتي
رجب مرسي قام بنشر مايو 25, 2015 الكاتب قام بنشر مايو 25, 2015 أخي الفاضل رجب مرسي أهلا بك في المنتدى ومرحبا بك بين إخوانك يرجى إرفاق ملف للإطلاع عليه والطلب غير واضح حيث أنك لم تحدد وجهة أو الخلية الهدف التي سيتم النسخ إليها ...أي ما هي الخلايا التي سيتم لصق البيانات فيها وإذا كانت خلية واحدة فما الفائدة من تكرار عملية اللصق .. ثم إنك ذكرت في العنوان شيء يخص الطباعة ولم توضح في طلبك أو تنوه إلى ما يخص الطباعة تقبل تحياتي مطلوب نسخ هذه القائمة ولصقها في الوقة 2 ولكن عند اللصق اطلب منه ان يلصقها 9 مرات مثلا بدلا من مرة واحة الاستاذ الفاضل ابو البراء انت انسان فاضل واني احبك في الله Book2.rar
ياسر خليل أبو البراء قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 الأخ الفاضل رجب مرسي أحبك الله الذي أحببتني فيه ، بارك الله فيك تم تسمية النطاق المراد نسخه باسم 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
ياسر خليل أبو البراء قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 نقطة هامة جداً : إذا كان الهدف طباعة النطاق أكثر من نسخة فبإمكانك من خلال خيارات الطباعة تحديد عدد النسخ المراد طباعتها .. كما يمكنك تحديد النطاق ثم طباعة التحديد بأي عدد من النسخ إلا إذا كان ببالك أمر آخر ..عموماً لديك الحلين : الحل بالمشاركة السابقة وهذا الاقتراح
رجب مرسي قام بنشر مايو 25, 2015 الكاتب قام بنشر مايو 25, 2015 بسم الله ما شاء الله انت عبقري يا استاذ ياسر جزاك الله خير عندي رجاء هل يمكن شرح ما فعلت اخوكم رجب لي طلب اخر ما معني هذا هذا السطر عندما اجدة في كود LR = Sheet6.[F9999].End(xlUp).Row
ياسر خليل أبو البراء قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 الأخ الكريم رجب إليك شرح الكود ، ولا تنسانا من صالح الدعاء 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 تقبل تحياتي
رجب مرسي قام بنشر مايو 26, 2015 الكاتب قام بنشر مايو 26, 2015 الاخ الفاضل جزاك الله خيرا فمن قال لخية جزاك الله خيرا فقد اجزل لة العطاء بارك الله لك في صحتك واولادك واعمي عنك الاشرار الظالمين في كل مكان ف كل مكان الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :- 1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2- الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل 3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3 وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلة[ لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعا قوائم الفصول.rar
رجب مرسي قام بنشر مايو 26, 2015 الكاتب قام بنشر مايو 26, 2015 الاخ الفاضل جزاك الله خيرا فمن قال لخية جزاك الله خيرا فقد اجزل لة العطاء بارك الله لك في صحتك واولادك واعمي عنك الاشرار الظالمين في كل مكان ف كل مكان الاستاذ ياسر كنت قد عملت تجربة وهي عمل قوائم للمدرسة التي اعمل بها وكنت قد جربت الكود الذي ارسلتة لي سابقا وهو طباعة عدد من الصفوف عن طريق page break ولكن للاسف الكود لا يعمل وتخرج لي رسالة لا افهمها فالرجاء النظر لهذا الملف وابداء الراي والتصحيح علما بان :- 1- كل المعادلات والاكواد اخذتها من هذا المنتدى الكريم ماعدا كود واحد سوف تجدة في الملف المرفق وان كان من اختصار لة فلك جزيل الشكر 2- الرجاء ما هي الاخطاء التي وقعت فيها في العمل ككل 3- الرجاء ايضا ان يكون المسيحيون في نهاية القائمة في شيت 3 وبعدهم الباقيات وهل يمكن عمل ذلك بالمعادلةقوائم الفصول.rar لك من كل الاحترام وصق رسول الله صلى الله علية وسلم حين قال من علمني حرفا اخلصت له ودا جمعني الله واياك في لفردوس الاعلى والملمين جميعاقوائم الفصول.rar
ياسر خليل أبو البراء قام بنشر مايو 26, 2015 قام بنشر مايو 26, 2015 أخي الحبيب رجب أقترح طرح موضوع جديد وأن تنظم أفكارك بشكل يسهل معه فهم المطلوب ..أنا تهت بين طيات الكلام ... اطرح موضوع جديد أفضل ويا ريت يكون مرفق واحد فقط مش 3 مرفقات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.