اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

 

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

 

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

 

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

 

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

 

 

 

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

  • Like 4
رابط هذا التعليق
شارك

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

السلام عليكم

 

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

 

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

 

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

 

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

 

 

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

سليم حاصبيا

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

 

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information