تعديل كود نسخ نمودج واضافة شيت جديد

[حسين مامون]

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

الاخوة الافاضل 

عندي هذا الكود في احد ملفات عملي معدل حسب طلبي  و هو للاستاذنا الكبير وهرم من اهرام افيسنا سليم حاصبيا  في احدى مشاركاتي

الكود

Dim x as string

X= imputbox("اكتب رقم جديد")

 

Range("a2") .select

Range("a1:f20").select

  Selection.copy

Sheets.add.name = x

range("a1:f20").select

Activesheet.paste

Application.cutcopymod.false

المطلوب هنا هو تعديل بسيط من فظلكم  

اريد ازالة imputbox واضافةtextbox2 مكانه  ويعطي نفس النتيجة يعني الخلية  اسم الشيت يساوي القيمة في 2text box 

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

[الجموعي]

Dim x As String
x = TextBox2
x.Text = "أكتب رقم جديد"
Range("A2").Select

Range("A1:F20").Select

  Selection.copy

Sheets.Add.Name = x

Range("A1:F20").Select

ActiveSheet.Paste

Application.cutcopymod.false

 

[حسين مامون]

14 ساعات مضت, الجموعي said:

Dim x As String
x = TextBox2
x.Text = "أكتب رقم جديد"
Range("A2").Select

Range("A1:F20").Select

  Selection.copy

Sheets.Add.Name = x

Range("A1:F20").Select

ActiveSheet.Paste

Application.cutcopymod.false

 

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

تحياتي

الاشتراكات.rar