تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث)

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب سعد عابد

وجزيت خيراً على دعواتك الطيبة المباركة

وفقني الله وإياك لما فيه الخير والصلاح

تقبل تحياتي

 

[أبو حنف]

هل يمكن جعل الفلترة بناء على جزء من الكلمة أو الرقم
يعني مثلا كتابة ماء بدلا من شيماء 
أو الأرقام 235 بدلا من 22359 
وهكذا

[ياسر خليل أبو البراء]

أخي الكريم أبو حنف

بص وركز .. مش هنا لا هنا .. خليك معايا .. متوهش مني

شايف السطر دا في الكود

Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"

شايف علامة النجمة اللي في الآخر بين أقواس تنصيص دي معناها أي عدد من الحروف بعد اللي مكتوب في النص

عشان تحقق طلبك هتعمل علامة نجمة تانية زيها بين أقواس تنصيص قبل النص في صندوق النص

وعشان متتعبش يكون السطر بالشكل ده

Rng.AutoFilter Field:=1, Criteria1:="="  & "*" & TextBox1.Text & "*"

جرب بنفسك وشوف النتائج

تقبل تحياتي

[أبو حنف]

والله أنت برررررررررنس

شاكر لك أستاذي الحبيب

تمت بنجاااح

[ياسر خليل أبو البراء]

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

بيس يا مان

الحمد لله أن تم المطلوب على خير ، وبعدين مقولتش هو إنت محمود أبو حنف ولا شاكر ..

[أبو حنف]

ههههههه
أستاذي ، أنت تعلم أنها لفظة مصرية تلقائية تنم عن شدة الاعجاب من ذكاء ومهارة وفن وابداع و ..........إلخ ممن قيلت في حقه !!
وأنت تستحق أكثر من ذلك بكثير 
أخوك محمود ، وعلى فكرة كنت مسجل بالاسم الانجليزي elking_mn

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

[ياسر خليل أبو البراء]

والله يا أخي الكريم محمود الموضوعات في المنتدى كثيرة جداً ..يمكنك البدء بالبحث عن كلمة دورة في الـ VBA .. ستجد أكثر من دورة مقامة منها

حلقات افتح الباب وادخل لعالم البرمجة

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

وفيه موضوع باسم "بداية الطريق لإنقاذ الغريق" أنصحك تبدأ بيه الأول

وفقك الله لما يحب ويرضى

تقبل تحياتي

[أبوبسمله]

جزاك الله كل خير يا ابوالبراء

وشرح وافى كافى لكل من يريد التعلم

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

[مهند الزيدي]

جزاك الله خيرا "ياسر خليل " وفقك الله لكل خير

[أبو حنف]

شاكر لك أستاذ ياسر
واثراء للموضوع 

أنا عندي جدول به قيم مرتبطة بخلايا أخرى 

فهل يمكن تطبيق الكود عليها ؟

يعني بدل ياسر مكتوب  اسم الخلية المرتبط بها =a1 &=a2 &=a3 وهكذا

عند تطبيق البحث يعطيني خطأ في السطر ده

 If Left(Arr(I, 1), 1) = "'" Then

 

[ياسر خليل أبو البراء]

أخي الكريم أبو حنف

يفضل طرح طلبك في موضوع مستقل مع إرفاق ملف به المشكلة المذكورة لتجد المساعدة بشكل أفضل

تقبل تحياتي

[خالد الشاعر]

استاذ ياسر

موقع http://adf.ly/ لا يحمل فى مشكلة

ممكن تحميل الملف فى موقع تانى

[ياسر خليل أبو البراء]

أخي الكريم خالد

الموقع مجرد اختصار للرابط ليس أكثر ولا أقل وهو ليس موقع تحميل .. عند النقر على الرابط يفتح لك صفحة وتنتظر 5 ثواني وبعدها تنقر على كلمة Skip Ad التي تظهر في أعلى يمين الصفحة

تقبل تحياتي