إضافة شيت جديد بإسم محدد وفقاً لشروط محددة

[معتصم محمد]

بسم الله الرحمن الرحيم

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

رمضان كريم ..... وكل عام وانتم بخير

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

الكود المستخدم كالتالي

Option Explicit


Sub NweSheeetCustomeName()

Dim SheetName As String


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


Sheets.Add.Name = SheetName


End Sub

درس الفيديو

Add new sheet w CustomeName.rar

[هشام شلبى]

السلام عليكم

=====

اخى المعتصم

بارك الله فيك

[ياسر الحافظ]

بسم الله الرحمن الرحيم

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

رمضان كريم ..... وكل عام وانتم بخير

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

الاخ العزيز / الاستاذ " معتصم محمد " :

بداية كيف هي احوالك ... اشتقت لك

تسلم ايدك كود جميل جدا

وبعد العذر منك سأقوم برفع الكود بملف اكسل في موضوع " اكواد منفصلة قد تهم البعض" للاستاذ يحياوي

وفقك الله

ياسر الحافظ " ابو الحارث "

[saad abed]

اخ معتصم محمد

اولا جزاك الله خيرا وبارك الله فيك وفرج الله همك ووووووووووو

كل هذه دعوات خالصة بظهر الغيب

ثانيا اسلوب الشرح جميل جدا

شكرا لك

سعد عابد

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

الاستاذ معتصم محمد

كودر رائع وشرح اروع

كل سنة وانت طيب

تقبل مروري

ابواحمد

[معتصم محمد]

اساتذتي الأعزاء

ا/ هشام شلبي

ا/ ياسر الحافظ

ا/ سعد عابد

ا/ عبدالله المجرب

شكراً لكم على هذه الكلمات الطيبة وعلى مروركم الكريم

ولا توجد مشكلة في رفع الملف في موضوع الأستاذ / يحياوي

بارك الله بكم جميعاً

[محمد يحياوي]

الاخ الحبيب "معتصم محمد" تحية طيبة و كل عام وانت بخير

كود جميل و شرح رائع بارك الله فيك