اريد كود اضافة صفحات

[إبراهيم ابوليله]

الاخوه الافاضل

تحية طيبة وبعد

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

ثم يقوم بعمل برنت برفيو للصفحه التى تم انشائها

انشاء صفحه.rar

 

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم إبراهيم، الكود (بسيط) تم إنشاؤه حسب المطلوب ولكن عملية "المعاينة قبل الطباعة" Print Preview غير ممكنة إذا كانت الورقة التي تم إنشاؤها فارغة أو كنت تعمل في إكسيل 2007 فما فوق (إلا عن طريق فتح أمر الطباعة أو كنت قد نصبت عمود الأوامر الكلاسيكية في 2007 أو 2010 أو 2013 وأقصد Classic Menus for office 2007 أو Classic Menus for office 2010 or 2013)... المهم قد وضعت أمر (كلاسيكي) للمعاينة قبل الطباعة في الكود... لم أضع شرط وجود الورقة مسبقا قبل إنشائها، وفي هذه الحالة يقوم الكود بإنشاء ورقة جديدة بتسمية تلقائية مع إصدار رسالة خطأ لمحاولة التسمية للورقة الجديدة بالتسمية نفسها لورقة موجودة...  

 

أخوك بن علية

 

انشاء صفحه.rar

تم تعديل فبراير 21, 2013 بواسطه بن علية حاجي

[احمد فضيله]

الاخ الحبيب / بن عليه حاجي

 

جزاك الله كل خير

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم إبراهيم، تم إضافة شرط التأكد من وجود (أو عدمه) الورقة بالتسمية نفسها قبل إنشائها، وفي حالة وجودها تظهر رسالة تحذير لوجود الورقة بالتسمية تفسها ويُقترح عليك إعادة المحاولة من جديد دون إنشاء الورقة بالتسمية التلقائية... أرجو أن يكون الملف مفيدا ومستوفيا المطلوب...

 

أخوك بن علية

 

إنشاء ورقة جديدة.rar

[أبو محمد أشرف]

رائع بل أكثر من رائع لا تكفيك جهدك

[عبدالله المجرب]

بارك الله فيك استاذ بن عليه

[احمد فضيله]

اخي الحبيب بن عليه

 

سلمت يمينك

بارك الله فيك

[احمد فضيله]

بعد اذن اخي الحبيب الاستاذ الكبير / بن عليه

 

فقط لاثراء الموضوع

الاخ الفاضل الاستاذ / ابراهيم

تابع الرابط التالي و ان شاء الله يكون فيه افكار ربما تفيدك باذن الله

 

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

[حمادة عمر]

الاستاذ / بن عليه

بارك الله فيك

وجزاك الله خيرا

[إبراهيم ابوليله]

اخى الكريم

عباد

بارك الله فيك

ومشكورا على الرد

ولكن لو افترضنا انه يتم اخذ بعض البيانات من الشيت ونقلها الى الشيت

المنشأ

وعلى حسب ما فهمته من هنا انه فى هذه الحاله يكون الشيت المنشأ

به بيانات

وبذلك يمكن عمل برنت برفيو

وبالتالى فكيف سيكون شكل الكود الخاص بعمل ذلك

[إبراهيم ابوليله]

للرفع

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

اليك اخي لمسه بسيطة جدا علي كود الرائع / بن عليه ... جزاه الله خيرا

ليقوم بنسخ جزء معين من الصفحة الموجودة ويقوم بعمل Print Preview

تلقائيا بعد اضافة الصفحة

ارجو ان يلبي هذا طلبك

جزاك الله خيرا

 

 

اضافة ورقة جديدة ومعاينة.rar

[إبراهيم ابوليله]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

اليك اخي لمسه بسيطة جدا علي كود الرائع / بن عليه ... جزاه الله خيرا

ليقوم بنسخ جزء معين من الصفحة الموجودة ويقوم بعمل Print Preview

تلقائيا بعد اضافة الصفحة

ارجو ان يلبي هذا طلبك

جزاك الله خيرا

 

 

اضافة ورقة جديدة ومعاينة.rar

اخى الكريم حماده

بارك الله فيك عمل رائع

ولكن ماذا لو اردنا نسخ الصفحه كلها

كما انه يوجد ملاحظه بسيطه انشاء الله

وهى انك لو قمت بكتابه رقم فى الخليه A2

ثم حاولت اضافه صفحه

اكثر من مره ستجد انه يحدث خطأ

ارجو تصحيح الكود ان امكن

[إبراهيم ابوليله]

الاخوه الافاضل

بعد البحث فى المنتدى

استطعت معالجة الكود

وبالتالى اصبح الكود بالشكل الاتى

 

Sub New_Sheet()
Range("J2:Q3").Select
Selection.Copy
mySht = ActiveSheet.Name
Set Sht = ActiveSheet
N_Sht = Format(Sheets(mySht).[A2], "#")
For I = 1 To Sheets.Count
    If Sheets(I).Name = N_Sht Then MsgBox ("ÊæÌÏ æÑÞÉ ÈåÐå ÇáÊÓãíÉ... Úáíß ÊÛííÑ ÇáÇÓã ãä ÌÏíÏ"):     GoTo 1
Next
     
     Set Sht = Sheets.Add(After:=Sheets(Sheets.Count))
     ActiveSheet.Name = N_Sht
     ActiveSheet.Paste
     ActiveWindow.SelectedSheets.PrintPreview
     Sheets("Sheet1").Select

1 End Sub
 

[حمادة عمر]

السلام عليكم

اخي العزيز / إبراهيم ابوليله

 

بارك الله فيك

وزادك الله من علمه

اعتذر لك عن التأخير عن الرد حيث لم اري مشاركتك الأخيرة بطلبك تعديل الكود الا الآن

 

وعموما ... التأخير جاء بالمفيد فلقد قدمت الافضل أنت بالتأكيد

مجهود راائع وجميل وهنيئاً لك الكود ولكل من يريده

وللتنسيق ليس الا فهذا هو الكود خاصتك ولكن بشكل منسق فقط  لمن يريده .... مع ملف مرفق وبه الكود

جزاك الله خيرا

 

اضافة ورقة جديدة ومعاينة1.rar

Sub New_Sheet()
Range("J2:Q3").Select
Selection.Copy
mySht = ActiveSheet.Name
Set Sht = ActiveSheet
N_Sht = Format(Sheets(mySht).[A2], "#")
For I = 1 To Sheets.Count
    If Sheets(I).Name = N_Sht Then MsgBox ("توجد صفحة بنفس الاسم ... راجع اسم الصفحة اولا"):     GoTo 1
Next
     
     Set Sht = Sheets.Add(After:=Sheets(Sheets.Count))
     ActiveSheet.Name = N_Sht
     ActiveSheet.Paste
     ActiveWindow.SelectedSheets.PrintPreview
     Sheets("Sheet1").Select

1 End Sub

تم تعديل مارس 12, 2013 بواسطه حمادة عمر

[عمر أبو صهيب]

مبدع على الدوام أخي

حمادة عمر

[أبو محمد أشرف]

أخي الحبيب حمادة عمر رائع

[وليد زقزوق]

ممتاز يا اساتذة

هل يوجد كود لحذف ورقة

بحيث عن الضغط علي زر مثلا يظهر فورمة بها اسماء الاشيتات واحدد ما هية المراد حذفها

ويا حبذا لو كان يوجد فورم ايضا لاضافة اوراق يكون فية عدد الاوراق واسماء كل ورقة سوف تضاف

[وليد زقزوق]

معذرة نسيت

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

[إبراهيم ابوليله]

اخى الكريم

تفضل ياخى

اتمنى ان يكون هذا هو المطلوب

اضافة ورقة جديدة ومعاينة1.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم  / عمر أبو صهيب

الاخ الكريم /  أبو محمد أشرف

 

بارك الله فيكم

اخواني الكرام ولكن الشكر في البداية  ... احقاقا للحق

للكبير / بن عليه .. جزاه الله خيرا

حيث ما قمت به هو التعديل فقط علي الكود ليتناسب مع طلب اخونا / ابراهيم

وفي المرة الثانية فالشكر للاخ / إبراهيم ابوليله

حيث هو من قام بتعديل الكود

وما قمت به هو وضع الملف بشكل منسق وارفاقه بملف بعد التعديل منه

جزاكم الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

بارك الله فيك

احسنت في الاجابة علي الاخ /  وليد زقزوق

جزاك الله خيرا

[إبراهيم ابوليله]

اخى الحبيب

حماده عمر

والله كل هذا بفضلكم انت احبائى

فلولا تعاونكم وتقديمكم المساعده لنا

ما كان هذا حالنا الان

بارك الله فى كل من يساهم فى هذا المنتدى بعلمه

[حمادة عمر]

جزاك الله خيرا

اخي العزيز / ابراهيم