مقالات مشابهة
السلام عليكم ورحمة الله وبركاته
في الحقيقة أنني ممتنع من فترة عن المشاركة في منتدى آخر .. لأسباب شخصية ..
وأخشى أن يكون امتناعي منعاً للعلم .. لذا إذا كان بإمكاني المساعدة فسأضع الكود ها هنا ومن يرتاد المنتدى الآخر فعليه أن يقدم المساعدة بأن يضع رابط الموضوع الخاص بمنتدانا في الموضوع الموجود في المنتدى الآخر .. وهذا لحفظ الحقوق …
الحل في تعديل الكود بالشكل التالي ..
CODE
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Me.cbSheet.Clear
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> Me.Name Then
Me.cbSheet.AddItem Sh.Name
End If
Next Sh
End Sub
وتقبلوا وافر تقديري واحترامي
