تعديل كود اسماء اوراق العمل

[yasse.w.2010]

الساده الاستاذه الكرام

مرفق لحضارتكم ملف به كود يجلب اسماء الشيتات في الكومبو بوكس ويعمل بشكل جيد

مطلوب من من سيادتكم 

تعديل الكود بحيث يستثني ورقه رقم 8 و ورقه رقم 7

مع الشرح

شاكر لكم جدا 

11111.xlsm

[حسونة حسين]

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

For Each w In ThisWorkbook.Worksheets
    If w.Name <> "ورقة7" And w.Name <> "ورقة8" Then
        co1.AddItem w.Name
    End If
Next w

 

[yasse.w.2010]

الف شكر لحضرتك

وضعن الكود ويعمل بشكل رائع

الف شكر منتداي الغالي اوفسينا

 

تم تعديل مايو 21, 2023 بواسطه yasse.w.2010

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات