تصحيح كود البحث ليتم البحث في صفحة محددة

[حاتم عيسى]

بسم الله الرحمن الرحيم

السادة الأفاضل مشرفي ورواد المنتدى المحترمين

كل عام وجميع حضراتكم بخير وبصحة وفي أحسن حال

الرجا من سيادتكم التركم لتصحيح كود البحث التالي حتى يتم البحث في صفحة ( شيت ) معين

اسم الشيت المراد البحث فيه هو ( BB ) .

Private Sub TextBox1000_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub
Dim x As Worksheet
Dim c As Range
ListBox1.Clear
k = 0
For Each x In ThisWorkbook.Worksheets
SS = x.Cells(Rows.Count, 9).End(xlUp).Row
For Each c In x.Range("A9:A" & SS)
b = InStr(c, TextBox1000)
If Trim(c) Like TextBox1000 & "*" Then
ListBox1.AddItem
ListBox1.List(k, 0) = x.Cells(c.Row, 1)
ListBox1.List(k, 1) = c.Worksheet.Name
ListBox1.List(k, 2) = c.Row
k = k + 1
End If
Next c
Next x
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub

ولسيادتكم جزيل الشكر والتقدير والعرفان

[سليم حاصبيا]

ما هو اسم الشيت التي تريد البحث فيها؟؟؟

[حاتم عيسى]

الأستاذ الفاضل : سليم حاصبيا

تحية طيبة

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

اسم الشيت المطلوب البحث فيه (BB) .

وشكرا لحضرتك على الهتمام والرد

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Private Sub TextBox1000_Change()

Dim x As Worksheet
Dim c As Range
Dim Arr_Sh, Itm
Dim k%,b%
Arr_Sh = Array("BB")     ''يمكن هنا اضافة اسماء الشيتات التي تريد البحث فيها
If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub
Dim x As Worksheet
Dim c As Range
ListBox1.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, TextBox1000)
        If Trim(c) Like TextBox1000 & "*" Then
        ListBox1.AddItem
        ListBox1.List(k, 0) = x.Cells(c.Row, 1)
        ListBox1.List(k, 1) = Itm
        ListBox1.List(k, 2) = c.Row
        k = k + 1
        End If
    Next c
Next_Item:
Next Itm

End Sub

 

[حاتم عيسى]

بارك الله في حضرتك أستاذ :سليم حاصبيا  المحترم

شكرا لحضرتك الكود يعمل بكل كفاءة