تعديل البحث ليتم بالضغط على زر البحث

[Al-Raadi]

السلام عليكم

يرجى من الخبراء تعديل كود البحث التلقائي الموجود في الملف المرفق

المطلوب الاتي:

الغاء البحث التلقائي والغاء كود البحث الموجود في حدث الشيت .

تفعيل البحث عن الاسماء عن طريق الضغط على زر البحث.

 

بحث عن طريق الضغط فوق زر البحث.xlsb

[محمد هشام.]

تفضل جرب 

Sub زر1_انقر()
Dim Lr As Long, i As Long, R As Long
Dim txt
Set sht = Worksheets("بحث")
Set sht2 = Worksheets("قاموس")
txt = sht.Range("B2")
Application.ScreenUpdating = False
sht.Range("B4:BM30000").ClearContents

With sht2
    Lr = .Cells(.Rows.Count, "B").End(xlUp).Row
    For i = Lr To 2 Step -1
   If txt = CStr(.Cells(i, "B")) Then

 'If txt = CStr(.Cells(i, "B")) Or txt = CStr(.Cells(i, "B")) Or InStr(CStr(.Cells(i, "B")), txt) Then
             sht.Cells(R + 4, "B").Resize(1, 3).Value = sht2.Cells(i, "B").Resize(1, 3).Value
             R = R + 1
            If R = 40 Then Exit For
        End If
    Next
End With
Application.ScreenUpdating = True
End Sub

 

 

 

 

بحث عن طريق الضغط.xlsb

تم تعديل يونيو 17, 2023 بواسطه Mohamed Hicham