(تمت الإجابة) قراءة اسماء الـ sheets ما عدا واحدة

[سامر الانباري]

السلام عليكم

اريد تظهر جميع اسماء الشيتات في ال combobox لكن على شرط ان لا يظهر الـ sheet التي اسمها www والكود موجود في ادناه اذا امكن التعديل

Dim sh As Worksheet

Dim T As Worksheet

For Each T In Application.Worksheets

ComboBox1.AddItem (T.Name)

Next T

[سامر الانباري]

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

combobox1.remove (www

لكن عندي سؤال اخر كيف اذا حذفت من ال combobox تقل العناصر فيها يعني بدل ما اخرج من الفورم وارجع مرة اخرى

[أ / محمد صالح]

جرب هذا الكود أخي الكريم

Dim T As Worksheet

For Each T In thisworkbook.Worksheets

if t.name<>"www" then ComboBox1.AddItem (T.Name)

Next T

[سامر الانباري]

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