طريقة اضافة بحث بجزء من الاسم او اللقب

[بلال اليامين]

السلام عليكم

اريد اضافة البحث في البرنامج بالاسم واللقب

حساب عدد ايام العمل.xlsx

[بلال اليامين]

السلام عليكم

اريد اضافة البحث في البرنامج بالاسم واللقب

حساب عدد ايام العمل.xlsx

[بلال اليامين]

 اضافة بحث بجزء من الاسم او اللقب

حساب عدد ايام العمل.xlsx

[هشام مرسي]

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

 

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

بعد اذن الاخ هشام

في الملف المرفق

اكتب اي جزء من الاسم الذي تريدة

سوف تعمل التصفية تلقائيا على استخراج المطلوب

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

حساب عدد ايام العمل (1).xlsm

[بلال اليامين]

بارك الله فيك شكرا عى  الانجاز