فلترة سريعة بالإسم - إهداء إلى منتدى أوفيسنا المتألق

[مكتبة ريم]

السلام عليكم

 

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

 

وصف الكود : كود بسيط يقوم بعمل فلترة سريعة حسب الإدخال في مربع النص .. يتميز عن غيره من الأكواد المنتشرة بأنه يقوم بإلغاء الفلترة في حال كان مربع الإدخال فارغاً .

 

الملف في المرفقات .. أتمنى أن ينال إعجابكم .

 

الحمد لله الذي تتم بنعمته الصالحات .. جزاكم الله خيراً 

 

 

 

فلترة سريعة بالإسم.rar

[M.Maghrabi]

13 minutes ago, مكتبة ريم said:

السلام عليكم

 

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

 

وصف الكود : كود بسيط يقوم بعمل فلترة سريعة حسب الإدخال في مربع النص .. يتميز عن غيره من الأكواد المنتشرة بأنه يقوم بإلغاء الفلترة في حال كان مربع الإدخال فارغاً .

 

الملف في المرفقات .. أتمنى أن ينال إعجابكم .

 

الحمد لله الذي تتم بنعمته الصالحات .. جزاكم الله خيراً 

 

 

 

فلترة سريعة بالإسم.rar

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

[مكتبة ريم]

شكرا أخي 

M.Maghrabi

[محمود_الشريف]

أخى الكريم

بوركتم وجزيتم خيرا

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

مكتبة ريم

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

[مكتبة ريم]

ولك المثل أخي الكريم

محمود_الشريف

وجزاك الخير ولك كل التقدير على مواضيعك المميزة في المنتدى

 

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

[سليم حاصبيا]

بعد اذن المكتبة طبعاٌ

تحسين بسيط على الكود لنحصل على نطاق اكبر

Private Sub TextBox1_Change()
On Error Resume Next
        If ActiveSheet.AutoFilterMode = True Then: ActiveSheet.ShowAllData
        If (Me.TextBox1.Value) = "" Then: ActiveSheet.AutoFilterMode = False: GoTo 1
Range("B6:K" & Cells(Rows.Count, "k").End(3).Row).AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
Exit Sub
1:

End Sub

 

[إبراهيم ابوليله]

الاخوه الافاضل

تنوع جميل

بوركتم جميعا

تقبلو تحياتى

[مكتبة ريم]

4 ساعات مضت, سليم حاصبيا said:

بعد اذن المكتبة طبعاٌ

تحسين بسيط على الكود لنحصل على نطاق اكبر

Private Sub TextBox1_Change()
On Error Resume Next
        If ActiveSheet.AutoFilterMode = True Then: ActiveSheet.ShowAllData
        If (Me.TextBox1.Value) = "" Then: ActiveSheet.AutoFilterMode = False: GoTo 1
Range("B6:K" & Cells(Rows.Count, "k").End(3).Row).AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
Exit Sub
1:

End Sub

 

أكرمك الله وجعل جهدك في ميزان حسناتك ..  كل الشكر أخ سليم 

سليم حاصبيا

أخ ابراهيم انت انسان مبدع .. لي اكثر من سنة ابحث عن كود ترحيل واسترجاع بيانات فاتورة بدون فورم ولم أجد الحل الى في عمل لك في هذا المنتدى الطيب

 

جزاك الله خيرا ما شاء الله عليك 

 

إبراهيم ابوليله

[ماكس]

رائع جدا بارك الله فيك