حذف الاوراق

[rahekk]

السلام عليكم

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

علي سبيل المثال

لدي  ورقة 1

وورقة 2

وورقة3   

اريد ان احذف جميع الاوراق

ماعدا الورقة2

او على حسب اختياري

انا استخدم اكسيل2003

 

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

السلام عليكم

 على افتراض انك تريد الحفاض على ورقة1

تكتب الكود التالي

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "ورقة1" Then sh.Delete
Next

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ القدير الحبيب / أبو حنين

بارك الله فيك

ولأنني احب ان اكون موجودا في كل موضوعاتك لما لها من رووعة

وبعد اذنك استخدمت الكود المرفق منكم ولكن لاستخدامه بشكل آخر باستخدام فورم

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

دون كتابته في الكود ....

تقبلوا خالص تحياتي

 

 

فورم حذف جميع الاوراق ما عدا الورقة المختارة.rar

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

السلام عليكم اخي حمادة

ما رأيك في هذا التعديل

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    If ThisWorkbook.Sheets.Count = 1 Then GoTo 1
    For Each sh In ThisWorkbook.Sheets
    If sh.Name <> ComboBox1.Value Then sh.Delete
    Next
    ComboBox1_AddItem
    Exit Sub
1
    MsgBox "لا يمكن حذف الورقة الحالية", vbInformation + vbMsgBoxRight, "خطأ"
End Sub
Private Sub UserForm_Initialize()
    ComboBox1_AddItem
End Sub

Sub ComboBox1_AddItem()
    ComboBox1.Clear
    For t = 1 To ThisWorkbook.Sheets.Count
    R = Sheets(t).Name
    ComboBox1.AddItem R
    Next
End Sub

[حمادة عمر]

اعمالك استاذنا الحبيب / ابو حنين لا تحتاج الي اي رأي فهي دائما رااائعة

لك مني ارق واجمل التحيات

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

اخى ابوحنين

اخى حماده عمر

مجهود رائع

واكواد رائعه

بارك الله فيكم

[حمادة عمر]

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

تقبل خالص تحياتي

[rahekk]

بارك الله فيكم

هل يمكن اختيار اكثر من ورقة لاتحذف

بمعني اريد ورقة1   وورقة 5 لاتحذف

[حمادة عمر]

الاخ الكريم / rahekk

بارك الله فيك

 

شاهد الرابط التالي بعنوان  (( كود لحذف ورقة عمل جديدة ))

ان شاء الله به طلبك

 

http://www.officena....showtopic=49438

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

لكم منى ارق واجمل التحيات اساتذتى الكرام

[حمادة عمر]

السلام عليكم

الاخ الحبيب / قنديل الصياد

بارك الله فيك

مرور طيب وعطر

تقبل خالص تحياتي

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

أخي قنديل الصياد

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