كود لحذف ورقة عمل جديدة

[وليد زقزوق]

كل ما هو مطلوب كود يعمل علي حذف شيت

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

[وليد زقزوق]

للرفع

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

السلام عليكم

هذا مثال لحذف ورقة رقم3

ضع كموندبوتون في الورقة الاولى و انسخ هذا الكود

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("ورقة3").Delete
End Sub

[قنديل الصياد]

بعد اذن استاذى الحبيب ابو حنين

 

اليك هذا الكود ايضا لحذف ورقة عمل

Sub kkkkkkkkkkkkk()
Worksheets("ورقة4").Delete
End Sub

[حمادة عمر]

بعداذن الاساتذة ... جزاهم الله خيرا

شاهد اخي الكريم / وليد

المرفق التالي

 

 

dell_sheets.rar

[قنديل الصياد]

كل يوم تمتعنا وتزودنا بروائع جميلة

مثلك انت

يا استاذى الحبيب

كل لحظة اقرا واتعلم منك الجديد والجديد ..

بارك الله فيك وعليك وبارك لك وجعله فى موازين حسناتك

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

[وليد زقزوق]

الاخ حماده عمر شكرا جا هذا هو المطلوب بالظبط

ولو امكن نفس الطريقة والتكنيك هذا ولكن احتاجة في اظافة شيتات وليكن اكثر من شيتين دفعة واحدة احدد لكل واحد الاسم الخاص بة وينفذ دفعة واحدة

[وليد زقزوق]

للرفع

[وليد زقزوق]

للرفع

[حمادة عمر]

الاخ حماده عمر شكرا جا هذا هو المطلوب بالظبط

ولو امكن نفس الطريقة والتكنيك هذا ولكن احتاجة في اظافة شيتات وليكن اكثر من شيتين دفعة واحدة احدد لكل واحد الاسم الخاص بة وينفذ دفعة واحدة

 

الاخ الكريم /  وليد زقزوق

بارك الله فيك وبالنسبة لطلبك الأخير والخاص باضافة الشيتات

شاهد المرفق التالي ....

ارجو التجربة جيدا ... وابداء الملاحظات حيث تم تنفيذه علي وجه السرعة نظرا لضيق الوقت

وفي انتظار ردك

ارجو ان يفي بطلبك

حيث يتم ذلك من خلال هذه الشاشة

 

 

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

 

 

المرفق 2003

 

sama-add-name.rar

[إبراهيم ابوليله]

اخى واستاذنا

حماده عمر

بارك الله فيك

اكوادك فى غايه الروعه والجمال

ولكن نريد ايضا اضافه لمسه جماليه على الكود

وذلك بمنع تكارا اضافه نفس الاسماء

[وليد زقزوق]

المرفق 2003 معني هذا انة ﻻ يعمل علي 2010

[حمادة عمر]

تم الاجابة علي الرابط التالي ...

بعنوان  (( فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة  ))

 

http://www.officena.net/ib/index.php?showtopic=49585