السلام عليكم
اريد شرح الكود البحث الموجود في موضوع الاخ
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