Kareem.Omar قام بنشر فبراير 23, 2022 مشاركة قام بنشر فبراير 23, 2022 السلام عليكم اريد شرح الكود البحث الموجود في موضوع الاخ https://www.officena.net/ib/topic/109587-طريقة-اضافة-بحث-بجزء-من-الاسم-او-اللقب/#comment-661163 قمتت بتغير الخلايا ولاكن الكود لا يشتغل معي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then Dim ER, FF, RN1 As Range ER = ActiveSheet.UsedRange.Rows.Count + 9 Set RN1 = Range("A9:V" & ER) FF = Range("B5").Text If FF = "" Then RN1.AutoFilter Field:=2 Else FF = "*" & FF & "*" RN1.AutoFilter Field:=2, Criteria1:=FF, Operator:=xlOr, _ Criteria2:="=" End If Range("B5").Select End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان