اضافة شيت

**ابو اسامة العينبوسي** · أبريل 4, 2007

السلام عليكم

هل من الممكن عمل زر لاضافة شيت جيدة

و عند ضغط الزر يخرج inputbox

ادخل فيه الاسم(للورقه) الذي اريد

تم تعديل أبريل 4, 2007 بواسطه ابو اسامة العينبوسي

**omar elhosseini** · أبريل 4, 2007

الاخ ابو اسامة العينبوسي

تحياتى

شاهد المرفق مع ملاحظة انه يمكن التحكم فى مكان الورقة الجديدة اذا لزم الامر ذلك .

**ابو اسامة العينبوسي** · أبريل 4, 2007

السلام عليكم

مشكور ابو تامر

دائما سباق

لدي الكود التالي حت اتمكن من نسخ ورقه ستكون هي النوذج الذي انسخ منه اوراق جديده

Private Sub CommandButton1_Click()

Sheets("master").Copy Before:=Sheets(1)

Sheets(1).Name = Application.InputBox("enter tabname", 2)

End Sub

تم تعديل أبريل 4, 2007 بواسطه ابو اسامة العينبوسي

الردود الموصى بها