طلب عدم اضهار اسم صفحة في الكومبوبوكس

[زياد عبد الجليل]

السلام على جميع الاخوة الافاضل اما بعد

عندي ملف به 5 صفحات كل صفحة مسمات برقم مثلا الصفحة الاولى مسمات بـ1 و الصفحة 2 باسم 2 الى غاية الصفحة 5 

قمت بعمل كود لكومبوبوكس لتغذيته باسم الصفحات كالتالي

Private Sub UserForm_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
Me.ComboBox1.AddItem ws.Name
Next
end sub

وعند الضغط على الكومبوبوكس تظهر كل اسماء الصفحات و لكن ان تكرمتم اريد في نفس الكود ان لا يتضمن الكومبوكس  الصفحة 5 اي الاسم "5"...ولكم مني فائق عبارات الشكر و التقدير...وبارك الله في الجميع.

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

يكون بهذه الطريقة

Private Sub UserForm_Activate()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "5" Then Me.ComboBox1.AddItem ws.Name

Next

End Sub

 

[زياد عبد الجليل]

شكرا جزيلا استاذي ابو حنين الكود يعمل بشكل جيد و صحيح جزاك الله كل خير وبارك الله فيك.