اذهب الي المحتوي
أوفيسنا

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

السلام عليكم

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

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

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

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

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

تحياتى

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

________________.rar

رابط هذا التعليق
شارك

السلام عليكم

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

دائما سباق

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

Private Sub CommandButton1_Click()

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

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

End Sub

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information