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

[ابوعلي الحبيب]

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

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

مطلوب نسخ الشيت بعد اختيار رقم للشيت من الفورم مرة واحدة.rar

[أبو حنــــين]

حسب فهمي انك تريد نقل الكود الموجود في sheet3 الى الفورم

اذا كان كذلك فيكون بالطريقة التالية

في الزر الموجود في الفورم تكتب الكود التالي

Private Sub CommandButton1_Click()
Dim MyName As String
MyName = TextBox1
If kh_Test_MyChr(MyName) = True Then Exit Sub
Sheets("sheet1").Copy After:=Sheets(Sheets.Count)
Cells.Worksheet.Name = MyName

End Sub

 

[ابوعلي الحبيب]

 

ابوحنين

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

 ورفع قدرك، ونفع بك
لك كل الشكر والتقدير استاذي