Al-Raadi قام بنشر يونيو 17, 2023 مشاركة قام بنشر يونيو 17, 2023 السلام عليكم يرجى من الخبراء تعديل كود البحث التلقائي الموجود في الملف المرفق المطلوب الاتي: الغاء البحث التلقائي والغاء كود البحث الموجود في حدث الشيت . تفعيل البحث عن الاسماء عن طريق الضغط على زر البحث. بحث عن طريق الضغط فوق زر البحث.xlsb رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 17, 2023 مشاركة قام بنشر يونيو 17, 2023 (معدل) تفضل جرب 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان