جلال الجمال_ابو أدهم

طلعت محمد حسن اخى تحياتى و جزاك الله خيرا اعتقد ان هناك خطأ عند الفلترة بحساسية الاحرف ارجو ارفاق كود خفيف و سريع من البحث و الفلترة بحساسية الاحرف يعرض فقط فلترة للاسم فى Search Box و تكون النتيجة لعدد كبير من الصفوف

جلال محمد جزاك الله خيرا تحياتى

محمد ممتاز جزاك الله خيرا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف كود إخفاء وإظهار للصفحات و لا تنسونا من صالح الدعاء تحياتى

ياسر العربى اخى الفاضل جزاك الله خيرا

طلعت محمد حسن اخى الفاضل جزاك الله خيرا معذرة لعدم وجود كلمات تصف مشاركاتك الرائعه تحياتى

طلعت محمد حسن يا اخى الفاضل انت شكلك بتتكلم عن نفسك جزاك الله خيرا و رأيك موضوع مميز_فورم بحث واضافة و تعديل مع خاصية البحث بالفورم

ياسر العربى اخى الفاضل اولا و اخيرا عندما تطوع الاكواد لا يكفيك بحور من كلمات الاعجاب فجزاك الله خيرا و خصوصا هذا الموضوع و المشاركة الرائعه بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات و يرجى رفع الملف النهائى بعد اجراء جميع التعديلات على الكود الذى تم خلال المشاركات و هو ملفين ملف بحث الاصلى و الثانى ملف بحث بين تاريخين لانى بينى و بينك انا تهت بين الملفات فى المشاركات تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله دليل هاتف بسيط قمت بعمل تعديلات بسيطة عليه مثل إضافة ميزة فورم البحث بأي جزء من أي معلومة عن السجل المراد البحث عنه وبعض التعديلات البسيطة مثل إمكانية البحث بنقرة مزدوجة على أي خلية بعمود الأسماء وطريقة إضافة سجل جديد والشكر طبعاً موصول وأكيد لصاحب الملف فجزاه الله خير الجزاء. مرفق الملف TEL_INDEX______________.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف درجات.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة قائمة منسدلة تحوي بيانات عمودين تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف قائمة منسدلة تظهرعمودين - 1.rar قائمة منسدلة تظهرعمودين رد.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة زيادة عدد الاعمدة لتصل الي 20 عمود في الليست بوكس تم ارفاق كود الحل من الفاضل ا / طلعت محمد حسن كلمة المرور 111 مرفق الملف attachment.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة بحث عن طريق قائمة منسدلة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف البحث في قائمة -1.rar البحث في قائمة.rar و لا تنسونا من صالح الدعاء تحياتى

ياسر العربى تحياتى

ياسر العربى المنتدى نور يا كبير تحياتى يا غالى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف jamal.rar kh_com.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف sumif.rar و لا تنسونا من صالح الدعاء تحياتى

مرفق الكود المستخدم لل زر Sub SearchBox() Dim myButton As OptionButton Dim SearchString As String Dim ButtonName As String Dim sht As Worksheet Dim myField As Long Dim DataRange As Range Dim mySearch As Variant Set sht = ActiveSheet On Error Resume Next sht.ShowAllData On Error GoTo 0 Set DataRange = sht.Range("A3:f1000") mySearch = sht.Shapes("UserSearch").TextFrame.Characters.Text If IsNumeric(mySearch) = True Then SearchString = "=" & mySearch Else SearchString = "=*" & mySearch & "*" End If For Each myButton In sht.OptionButtons If myButton.Value = 1 Then ButtonName = myButton.Text Exit For End If Next myButton On Error GoTo HeadingNotFound myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0) On Error GoTo 0 DataRange.AutoFilter _ Field:=myField, _ Criteria1:=SearchString, _ Operator:=xlAnd sht.Shapes("UserSearch").TextFrame.Characters.Text = "" Exit Sub HeadingNotFound: MsgBox "The column heading [" & ButtonName & "] was not found in cells " & DataRange.Rows(1).Address & ". " & _ vbNewLine & "Please check for possible typos.", vbCritical, "Header Name Not Found!" End Sub و لاسترجاع البيانات المفلترة Sub ClearFilter_Click() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub

طلعت محمد حسن ارجو توضيح المشكله و مرفق الملف مرة اخرى _______________________.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله كلمة سر 123 مرفق الملف كود حماية خلية بها بيانات_123.rar و لا تنسونا من صالح الدعاء تحياتى

طلعت محمد حسن جزاك الله خيرا على متابعتك و اهتمامك

طلعت محمد حسن اخى الفاضل جزاك الله خيرا موضوعاتك اكثر من رائعه كنت مختفى فين من زمان تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله تفعيل خاصية حذف وإخفاء الأوراق" وكلمة الحماية لتنفيذ الأمر هي 123 مرفق الملف تعطيل و تفعيل خاصية_حذف و اخفاء الاوراق و لا تنسونا من صالح الدعاء تحياتى

طلعت محمد حسن اخى الفاضل جزاك الله خيرا بحور من الكلمات قد لا تعبر عن مدى احترامى لشخصكم الكريم تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف DUPLICATE_CURE_1.rar و لا تنسونا من صالح الدعاء تحياتى