ممكن اضافة على الكود الرائع لأخي الغالي عبد الله باقشير

[عبد الله السعيد]

السلام عليكم اريد تعديل على هذا الكود بارك الله فيكم وجدته في الموضوع ادناه للغالي عبد الله باقشير  الله لا يحرمنا منه

 بحيث يزيد العدد في النتائج لأكثر من 25 صف ليكون كما اريد ، ويقبل البحث في كل الأعمدة  يعني احدد اي عمود من A الى H  للبحث بيه بارك الله فيكم
 

 

 

Search++.rar

تم تعديل نوفمبر 19, 2016 بواسطه عبد الله السعيد

[أبو حنــــين]

السلام عليكم

يصبح الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = Range("C2").Address Then Exit Sub
''''''''''''''''''
Dim Lr As Long, i As Long, R As Long, x As Byte
Dim txt
Range("A6:F" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
Application.ScreenUpdating = False
txt = Trim(Target)
If Len(txt) < 3 Then Exit Sub

With Sheets("Data")
    Lr = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = Lr To 2 Step -1
    For x = 1 To 8
    If txt = CStr(.Cells(i, x)) Then     
            Cells(R + 6, "A").Resize(1, 3).Value = .Cells(i, "A").Resize(1, 3).Value
            Cells(R + 6, "D").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value
            Cells(R + 6, "F").Value = .Cells(i, "H").Value
            R = R + 1
        End If
    Next
    Next
End With
Application.ScreenUpdating = True
End Sub

 

[عبد الله السعيد]

اشكرك على الرد والمتابعة  هل ممكن

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