تعبئة الكومبوبوكس بأسماء أوراق العمل وتنشيط ورقة العمل عند اختيار اسم ورقة العمل منها

[أحمد أبو عبيد]

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

اريد من حضراتكم أن تساعدوني في طريقة البحث بأسماء الشيتات حيث أنني حين أضع اسم الشيت في الكومبو بوكس يظهر لي الشيت 

ولكم جزيل الشكر مع فائق احترامي واعتذاري على كثرة المسائلة 

تقبلوا تحياتي 

البحث بأسماء الشيتات.rar

[ياسر خليل أبو البراء]

أخي الكريم أحمد

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

إليك الملف التالي .. يتم تعبئة الكومبوبوكس بأسماء أوراق العمل عدا ورقة العمل المسماة "كشف" ، وعند اختيار أي اسم ورقة من الكومبوبوكس يتم تنشيط ورقة العمل ..

حمل الملف من هنا

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

Private Sub ComboBox1_Change()

    Sheets(CStr(ComboBox1.Text)).Select

End Sub

Private Sub UserForm_Initialize()

    For i = 1 To Worksheets.Count
    If Not Worksheets(i).Name = "كشف" Then
    Cells(i, 2) = Worksheets(i).Name
    ComboBox1.AddItem Worksheets(i).Name
    End If
    Next

End Sub

السلام عليكم

استعمل هذا

 

[أحمد أبو عبيد]

الأستاذ ياسر والأخ الأخ في الله

أشكركم جزيل الشكر على هذه المعلومات القيمة وعلى هذا الاهتمام 

جعل الله ذلك في ميزان حسناتكم

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم أحمد
 وجزيت خيراً على دعائك الطيب المبارك

تقبل تحياتي