عبد الله السعيد قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 (معدل) السلام عليكم اريد تعديل على هذا الكود بارك الله فيكم وجدته في الموضوع ادناه للغالي عبد الله باقشير الله لا يحرمنا منه بحيث يزيد العدد في النتائج لأكثر من 25 صف ليكون كما اريد ، ويقبل البحث في كل الأعمدة يعني احدد اي عمود من A الى H للبحث بيه بارك الله فيكم Search++.rar تم تعديل نوفمبر 19, 2016 بواسطه عبد الله السعيد رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 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 1 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 اشكرك على الرد والمتابعة هل ممكن ان ابحث اما جزء من الكلمة بمعني بداية الكلمة ، كما اسلفت بالكلمة ذاتها ، وان يكون البحث بكافة الأعمدة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان