كود لحذف بعض اوراق العمل

[اسامه مجدى]

السلام عليكم و رحمة الله و بركاتة

عندى مصنف بة عدة اوراق عمل مقسمة الى قسمين القسم الاول اوراق عمل رئيسية و عددها اربع اوراق و القسم الثانى اوراق عمل متغيرة قابلة للذيادة و النقص

و السؤال هو اننى اريد عمل compobox يظهر اوراق العمل الفرعية فقط و لا يظهر الاربع ورقات الرئيسية

تم تعديل يونيو 8, 2009 بواسطه sasaosama

[ابو اسامة العينبوسي]

السلام عليكم

ممكن ترفق ملف

[اسامه مجدى]

السلام عليكم يا ابو اسامة

تفضل هذا هو الملف

New_WinRAR_ZIP_archive.zip

[ابو اسامة العينبوسي]

السلام عليكم

سيتم عرض الاوراق الزرقاء فقط في الكمبوبوكس

12.rar

[اسامه مجدى]

جزاك الله خيراً يا ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

السلام عليكم

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

Private Sub ComboBox1_Click()
Application.DisplayAlerts = False
Worksheets(Me.ComboBox1.Text).Delete
Me.ComboBox1.RemoveItem (Me.ComboBox1.ListIndex)
Application.DisplayAlerts = True
End Sub
Private Sub UserForm_Initialize()
Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets
 If Wsh.Tab.ColorIndex = 5 Then
 Me.ComboBox1.AddItem Wsh.Name
 End If
Next
End Sub

13.rar

[اسامه مجدى]

جزاك الله خيرا يا ابو اسامة

شكرا لك على اهتمامك بالافكار التى تقدمها و تثرى بها المنتدى