مشكلة مع كمبوبوكس

[zine pef]

السلام عليكم أحبائي في الله

مشكلتي اليوم في كمبوبوكس الخاص باسماء الشيتات

عند التنقل الى ورقة ثانية و الرجوع الى الرائيسية

اجد الكمبو قد زاد اسماء الأوراق بالضعف

مثلا:في الكمبو يوجد 3اسماء تصبح 6 ثم 9 ...

ارجوا المساعدة

شهادة.rar

[saad abed]

اتمنى ان يكون هذا طلبك

اخوك سعد عابد

%D4%E5%C7%CF%C9.rar

[zine pef]

أخي عابد بركة الله فيك

على سرعة الرد

لكن أخي الفاضل المطلوب هو عدم تكرار أسامي الشيتات في الكمبو

و عند إضافة سنة جديدة تكون موجودة ضمن القائمة في كمبو

و ألف شكر على المرور

[saad abed]

اضفت فورم بسيط للتجول داخل الملف

للعلم انه ليس من اعمالى

%D4%E5%C7%CF%C9.rar

[zine pef]

شكرا جزيل أخي عابد على المجهود

يا حبدة لو كان الكمبو على الشيت المطلوب

على العموم فكرة حلوى و بركة الله فيكما

الآرشاد للخير كفاعله

[يحيى حسين]

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

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

 


Private Sub Worksheet_Activate()

Dim Feuille As Worksheet

ComboBox2.Clear

ComboBox2.Text = "الرائيسية"

For Each Feuille In ThisWorkbook.Worksheets

    ComboBox2.AddItem Feuille.Name

Next

End Sub

و قم بتغير حدث الكموبوكس في كودك الأول الى الحدث التالي

Private Sub ComboBox2_Click()

M = ComboBox2

Sheets(M).Select

End Sub

دمت في حفظ الله

[zine pef]

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

بركة الله فيك أستادي الفاضل يحيى

هذا هو المطلوب

دمت في رعاية الله وحفظه