تعديل كود Combo Box

[Ahmed Saad 2017]

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

مرسل لسيادتكم الكود 

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
 

Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

[Ali Mohamed Ali]

اهلا بك اخى الكريم فى المنتدى

تفضل هذا الملف لعله يفيدك

 

تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names .xlsm

[Ahmed Saad 2017]

استاذ علي المحترم

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

 

 

تم تعديل نوفمبر 21, 2018 بواسطه Ahmed Saad 2017
تغير الملف المرفق

[Ahmed Saad 2017]

استاذ علي المحترم تم العمل بنجاح علي الملف الخاص بي 

شكرا جزيلا 

هل يوجد حل ان يتم العمل علي الملف في حالة ان اليوزر فورم مفتوحه

 

تم تعديل نوفمبر 21, 2018 بواسطه Ahmed Saad 2017

[Ali Mohamed Ali]

لو ممكن رفع ملفك لتدارك الخطأ الذى يحدث معك ومحاولة حله ان شاء الله

بارك الله فيك

وهل قمت بعمل الفورم وتسمية صفحة من الملف بإسم Main أم لا ؟

تم تعديل نوفمبر 21, 2018 بواسطه ali mohamed ali

[Ahmed Saad 2017]

الاستاذ علي المحترم تم تعديل الشيت وتم تشغيل اليست بوكس بنجاح

هل من الممكن التعامل مع شيت الاكسيل من تعديل او اضافة في حالة ان اليوزر فورم مفتوحه