اريد عمل كود للبحث

[amrhosny]

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

اسعد الله صباحكم

مرفق لكم ملف اكسيل لدليل تليفوات

انا بيجيلي تليفونات عمل كتير واريد تسيجل جميع الارقام اللى تتصل بيا

وعمل text box للبحث فى الرقم فقط

عندى كود ولكن مخصص للبحث فى التكست 

هل من الممكن رمجة كود للبحث فى الارقام 

شكرا جزيلا وتحياتى لكم

دليل المكالمات.xlsm

[وجيه شرف الدين]

اتفضل اخى الكريم الملف لعله يفى بالغرض

دليل المكالمات.xlsm

[amrhosny]

2 hours ago, وجيه شرف الدين said:

اتفضل اخى الكريم الملف لعله يفى بالغرض

دليل المكالمات.xlsm 23.12 kB · 0 downloads

شكرا اخى الفاضل 

الكود جميل ولكن لا يعمل معى بالشكل الصحيح

وكنت اريد فورم بشكل معين بحيث يتم البحث عن طريق فلترة الارقام فى نفس الصفوف والاعمدة

انا لدى كود من اعداد احد الاخوه الافاضل

ولكن لا يعمل مع الارقام والجميل فى الكود انى اقدر اى جزء من الحروف

 

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("C65535").End(xlUp).Row
If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$2:$G$" & lastrow).AutoFilter Field:=3, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    Else
    ActiveSheet.Range("$A$7:$G$" & lastrow).AutoFilter Field:=3, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

سارفق لك مثلا لما اريد اخى الكريم

مرفق مثلا على ما اقول ملف من اعداد الاستاذ الفاضل على لكن لا تنفع مع الارقام لا اعلم السبب

اريد مثال مثل المرفق لكن يعمل مع الارقام

 

دليل الهاتف2.xlsm

تم تعديل مايو 3, 2019 بواسطه amrhosny

[amrhosny]

اتمنى لو تساعدونى

[وجيه شرف الدين]

اخى الحبيب حاولت مع الطريقة التى اردتها ولكن لم تضبط معى غير فلترة الاسم اتفضل الملف بفلترة الاسم وليس الرقم

نسخة من دليل الهاتف2.xlsm