كود لاضافة ورقة عمل مع تغيير اسم الشيت

[omar shideed]

السادة الافاضل .... 

يرجى مساعدتى فى ايجاد كود يعمل على اضافة شيتات اكسيل باسم معين ( يعنى لو عندى شيت اكسيل وبه اوراق عمل وعاوز اعمل كود لكى اضيف اوراق عمل اخرى مع تغيير اسم الشيت 

[معتصم محمد]

شاهد هذا الفيديو

 

الأكواد المستخدمة

Sub NweSheeetCustomeName()
On Error GoTo ErrorHandler
 
Dim NewSheet As Worksheet
Dim SheetName As String
 
Set NewSheet = Sheets.Add
 
SheetName = InputBox("Please Insert sheet name.")
 
If SheetName = "" Or Len(SheetName) > 31 Then
MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther")
Exit Sub
End If
 
NewSheet.Name = SheetName
 
ErrorHandler:
If Err.Number = 1004 Then
MsgBox ("This name already exist")
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
Exit Sub
End If
 
End Sub

[omar shideed]

هستأذنك يا استاذ معتصم محمد تطبقها عملى على شيت اكسيل

[معتصم محمد]

تفضل

Book1.rar

[omar shideed]

يا استاذ معتصم الله يكرمك 

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

[قنديل الصياد]

بعد اذن استاذنا الاستاذ / معتصم

اضيف مالف اخر للاستاذنا الكبير / حمادة عمر

 

sama-add-sheet.rar

[معتصم محمد]

يا استاذ معتصم الله يكرمك 

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

 للأسف السؤال غير واضح بالنسبة لي

[omar shideed]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / omar shideed

بارك الله فيك

بالفعل اخي الكريم مازال طلبك غير واضح

برجاء ارسال مثال لما تريده بملف

وبعد تقديم الشكر والتقدير لـ ...

الاستاذ القدير / معتصم محمد ... جزاه الله خيرا

الاستاذ الحبيب /  قنديل الصياد ... جزاه الله خيرا

 

واثراءا للموضوع شاهد اخي الروابط التالية علها تكون المطلوب حسب فهمي للطلب

وان كان كذلك نعمل علي ملفك  ( المشاركة رقم 2 )

 

http://www.officena.net/ib/index.php?showtopic=50524&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7#entry310579

 

وشاهد ايضا هذا الرابط

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

كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت

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

[معتصم محمد]

أعتقد أن رد الاستاذ / حمادة عمر قد كفى عن اي اضافة