amrhosny قام بنشر مايو 3, 2019 قام بنشر مايو 3, 2019 السلام عليكم ورحمة الله وبركاته اسعد الله صباحكم مرفق لكم ملف اكسيل لدليل تليفوات انا بيجيلي تليفونات عمل كتير واريد تسيجل جميع الارقام اللى تتصل بيا وعمل text box للبحث فى الرقم فقط عندى كود ولكن مخصص للبحث فى التكست هل من الممكن رمجة كود للبحث فى الارقام شكرا جزيلا وتحياتى لكم دليل المكالمات.xlsm
وجيه شرف الدين قام بنشر مايو 3, 2019 قام بنشر مايو 3, 2019 اتفضل اخى الكريم الملف لعله يفى بالغرض دليل المكالمات.xlsm
amrhosny قام بنشر مايو 3, 2019 الكاتب قام بنشر مايو 3, 2019 (معدل) 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
وجيه شرف الدين قام بنشر مايو 4, 2019 قام بنشر مايو 4, 2019 اخى الحبيب حاولت مع الطريقة التى اردتها ولكن لم تضبط معى غير فلترة الاسم اتفضل الملف بفلترة الاسم وليس الرقم نسخة من دليل الهاتف2.xlsm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.