كيفية تحديد شيت معين على حسب محتوى كومبوبوكس

[المسلم العربي]

أريد كود لتحديد شيت معين حسب محتوى الكومبوبوس

مثلا في الكومبوبوكس يوجد أقسام قسم 1 قسم 2

أريد تحديد شيت 1 الخاص بالقسم 1 لما اختار هذا القسم في الكومبوبوكس
كما هو موضح في الملف المرفق 

 

سؤال ؟.rar

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

أخي الكريم المسلم العربي

يرجى تغيير اسم الظهور ليعبر عن شخصكم الكريم (وهذا ليس أول نداء لك)

 

جرب الكود التالي عله يكون المطلوب

Private Sub ComboBox1_Change()
    Dim Ws As Worksheet
    
    Application.ScreenUpdating = False
        On Error Resume Next
        
        For Each Ws In Worksheets
            If Ws.Name <> "Info" Then
                If ComboBox1.Value = Ws.Range("A1").Value Then Ws.Activate: Exit For Else Sheets("Info").Activate
            End If
        Next Ws
    Application.ScreenUpdating = True
End Sub

وإن لم يكن المطلوب فيرجى التوضيح أكثر

تقبل تحياتي

[المسلم العربي]

سيدي الكود لم يعمل معي بالشكل الصحيح مع الشكر لك طبعا 

سأوضج أنا لدي قائمة في اليوز فورم كومبمكس 
مثل الآتي 

و لدي شيتات مثل الآتي 

الكود الذي اطلب يجعل اليوزفورم يحدد الشيت الخاص بالقسم حسب الاسم 
مثلا لو اخترت من الكومبوكس القسم 2 يتحدد الشيت class2 تلقائيا حتى أتمكن من الترحيل 

ثانيا بخصوص الاسم سيدي أنا اسمي العربي و المسلم لقب يتشرف بيه اي شخص مسلم 

فهل ضروري اغير كلمة مسلم  و شكرا أرجو التوضيح 

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

أخي الكريم العربي

لم أكن أعلم أن اسمك العربي ، ولا بأس باسم الظهور إذاً

بالنسبة للكود اعتمد على عمل حلقة تكرارية لكل أوراق العمل ومقارنة قيمة الكومبوبوكس بالخلية A1 في تلك الأوراق .. أي أن الكود سيعمل ويقوم بتحديد الورقة المطلوبة طبقاً للخلية A1 ، والكود يعمل على هذا الأساس ..إذا لم يكن الملف المرفق معبر عن الملف الأصلي فلن يعمل الكود بالشكل المناسب

تقبل تحياتي