البحث بواسطه Textbox في اكثر من شيت

[checles]

السلام عليكم 

برجاء المساعده في كتابة كود 

عند كتابة الاكود في textbox1 تظهر الوصف في textbox2 تلقائي في شيت 1 ان لم يجدها يبحث في شيت 2 

مرفق sheet excel 

وشكرا 

test (2).xlsm

[hegazee]

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

أخي الكريم طلبك موجود في هذا الرابط 

https://www.officena.net/ib/topic/115583-مطلو-ب-كود-للبحث-داخل-كل-شيتات-ملف-الاكسيل/

[checles]

لاسف مش الي انا عايزة انا عايزة يبحث تلقالي بدون تحديد شيت البحث 

اول ما اكتب كود يظهر الوصف تلقائي 

وشكرا 

[محمد هشام.]

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

Private Sub TextBox1_change()
Dim WS As Worksheet
Dim n As Range, J As Long
Dim Search As String
Dim SearchColumn As Variant

For Each WS In ThisWorkbook.Worksheets
Search = Me.TextBox1
SearchColumn = "A"
    
 With WS
     Set n = .Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole)
    If Not n Is Nothing Then
          J = n.Row: Me.TextBox2 = .Range("B" & J)
          Exit For
      Else
       Me.TextBox2 = ""
        End If
    End With
 Next WS
End Sub

 

[checles]

شكرا لي حضرتك استاذ محمد 

لو ممكن نحد شيت فقط للبحث اكون شاكر جدا لي حضرتك 

وجزاك الله خيرا  

[محمد هشام.]

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

Private Sub TextBox1_change()
Dim n As Range, J As Long
Dim Search As String
Dim SearchColumn As Variant
Dim ws As Worksheet:   Set ws = Sheets("Sheet1")
SearchColumn = "A"
Search = Me.TextBox1
 With ws
     Set n = .Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole)
    If Not n Is Nothing Then
          J = n.Row: Me.TextBox2 = .Range("B" & J)
      Else
       Me.TextBox2 = ""
        End If
    End With
End Sub

 

[checles]

انا اسف  استاذ محمد 

قصدي شتين وليس شيت واحد فقط 

يبحث في sheet1 ان لم يجد النتايجه يبحث في sheet2

[محمد هشام.]

Private Sub TextBox1_change()
Dim n As Range, J As Long, i As Long
Dim Search As String
Dim MyArray() As Variant
SearchColumn = "A"
Search = Me.TextBox1

MyArray = Array("Sheet1", "Sheet2")
For i = LBound(MyArray) To UBound(MyArray)
        With Worksheets(MyArray(i))
             Set n = .Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole)
    If Not n Is Nothing Then
          J = n.Row: Me.TextBox2 = .Range("B" & J)
        Exit For
      Else
       Me.TextBox2 = ""
    End If
    End With
  Next i
End Sub

 

[checles]

متشكرا جدا لي حضرتك 

ربنا يجزيك خيرا

[checles]

ممكن اعرف الخطاء عندي في اية 

 

 

تم تعديل أغسطس 11 بواسطه checles

[محمد هشام.]

أظن أنه يجب عليك التحقق من تطابق أو وجود أسماء الأوراق المحددة بالكود  على المصنف