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