برجاء التعديل على كود البحث التالي

[حاتم عيسى]

السلام عليكم.. لابد من التحية عند بدء أى مشاركة ,,السادة الأفاضل المحترمين مشرفي ورواد المنتدى الفاضل.

تحية طيبة من عند الله وكل عام وجميع حضراتكم بخير وبصحة

ممكن التفضل والتكرم من حضراتكم التعديل على الكود التالي بما هو مطلوب على الصورة المرفقة .

Private Sub TextBox2071_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
ListBox8.Clear
Dim Arr_Sh, Itm
Dim k%, b%
Arr_Sh = Array("Secondary_2")     ''يمكن هنا اضافة اسماء الشيتات التي تريد البحث فيها
If TextBox2071.Value = "" Then ListBox8.Clear: Exit Sub
Dim x As Worksheet
Dim c As Range
ListBox8.Clear
k = 0
For Each Itm In Arr_Sh
     Set x = Sheets(Itm)
     ss = x.Cells(Rows.Count, 9).End(xlUp).Row
     If ss < 9 Then GoTo Next_Item
    For Each c In x.Range("A9:A" & ss)
        b = InStr(c, TextBox2071)
        If Trim(c) Like IIf(Me.OptionButton2, "*", "") & TextBox2071 & "*" Then
        ListBox8.AddItem
        ListBox8.List(k, 0) = x.Cells(c.Row, 2)
        ListBox8.List(k, 1) = c.Worksheet.Name
        ListBox8.List(k, 2) = c.Row
        k = k + 1
        End If
TextBox2071.SetFocus
    Next c
Next_Item:
Next Itm
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
'
End Sub

وشكرا لحضراكم جميعًا مقدمًا

التعديل على كود البحث.xlsm

[أ / محمد صالح]

تفضل

تمت اعادة هيكلة جزء البحث في النموذج 

بالتوفيق 

التعديل على كود البحث.xlsm

[حاتم عيسى]

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

أستاذي الفاضل سلمت يداك ونفعك الله بعلمك وجعل جميع أعمالك في موازين حسناتك .

ممكن من فضل وكرم أخلاق حضرتك وطمعا في بحر علم حضرتك

    For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss))

    For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss))

لو حبيت أضيف رينج كمان للبحث فيه مثل الاسم - رقم الجلوس - المدرسة . A - B - C  أعدل هنا إيه ؟   

[أ / محمد صالح]

يمكنك التحكم في النطاق بدالة iif بصورة طبيعية

بتكرار الشرط في جزء عدم التحقق

For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), IIf(Me.OptionButton5, x.Range("B9:B" & ss), x.Range("C9:C" & ss)))

بالتوفيق

[حاتم عيسى]

الأستاذ الفاضل المحترم : أ / محمد صالح

تحية طيبة ... وبعد

تسلم إيدك وبارك الله في حضرتك ومجهود أكثر من رائع . جعل الله جميع أعمالك في موازين حسناتك ونفعك الله والأمة الإسلامية بعلمك .

 

[أ / محمد صالح]

جميعا بإذن الله