بحث بالأحرف الأولى وتصفية حسب البحث

[محمد حسن المحمد]

الأخوة مطوري وخبراء إكسل الكرام

لقد عرضت هذا الملف مسبقاً .. كان فيه أكثر من سؤال أجاب الأخ أبو البراء مشكوراً عن أحدها إجابة شافية ووافية وطلب مني أن أعرض السؤال الثاني ضمن موضوع آخر حسب توجيهات منتداكم الكريم.

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

بحث بالأحرف الأولى وتصفية.rar

[محمد حسن المحمد]

كل آت قريب....

[محمد حسن المحمد]

كل آت قريب....

إذا ما خلوت الدهر يوما فلا تقل   خلوت ولكن قل علي رقيب

ولا تحسبن الله يغفل ساعة          ولا أن ما يخفى عليه يغيب

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

من لديه الوقت ليسقي ظمأ العطشان ..."ويؤثرون على أنفسهم ولو كان بهم خصاصة "...

تم تعديل مايو 26, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

وصف الله تعالى على لسان يعقوب عليه السلام"أبو يوسف" بقوله تعالى ((فصبر جميل)) بعد أن غاب عنه ولداه ردحاً من الزمن فما بالك يا أبا يوسف تستعجل الرد فكل لديه ما يشغله وموضوعك الذي طرحته أكاد أجزم أنهم قد استفاضوا في بحثه وتنقيحه...رويدك فاصبر....فالصبر محمود ومذموم ....صبر على طاعة الله وعن معصيته محمود ...أما صبر على ضيم أو ظلم وأنت قادر على رده أو ردعه فهو مذموم إلا لمصلحة يقدرها الصابر...

وانظر إلى البيت التالي في الصبر على الحاسد:ولاأدري ضمن أي نطاق أصنفه....

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

اسلي نفسي ريثما تجيبوني.............

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

أخي الحبيب أبو يوسف

فصبر جميل والله المستعان على ما تصفون

إليك الملف التالي ..مش ملفك على الإطلاق لكن ملف شوفه واطلع عليه وشوف إذا كان طلبك زي كدا ولا طلبك مختلف

وإذا كان طلبك مشابه حاول تشوف الملف اتعمل إزاي وتطبقه على ملفك ولو واجهك مشكلة أرجو إعلامنا بذلك

تقبل تحياتي

Search Using TextBox & AutoFilter.rar

[رشراش علي]

استاذي الكريم ربما هذا المطلوب، لكن ماذا لو كنت سابحث عن رقم، اقصد لوكان عندي عمود به رقم تسجيل مثلا 123456، 249876،   956478، ....

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

أخي الفاضل رشراش علي

مفتقد وجودك بالمنتدى (لعل غيابك عننا خير)

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

تقبل تحياتي :fff:

[محمد حسن المحمد]

أخي الحبيب ياسر:يمّن الله كتابك ويسّر حسابك 

لقد قمت بإجراء تعديل على الكود المطلوب ليناسب حاجتي إلا أنني لم أفلح لقلة خبرتي

أما ما عرضته فهو المطلوب 

إن قام بتصفية العمود D بدءاً من D11  على أن تكون خلية البحث H7 

وهذه صورة للتعديل الذي قمت به دون تحقيق نتيجة تذكر

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

أخي وحبيبي في الله محمد حسن أبو يوسف

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

إليك الملف التالي (واعذرني للتأخر عنك في الرد)

Private Sub TextBox1_Change()
    If TextBox1.Text <> "" Then
        ActiveSheet.AutoFilterMode = False
        Range("A10:C10").AutoFilter Field:=4, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr
    Else
        Range("A10:C10").AutoFilter Field:=4
    End If
End Sub

تقبل تحياتي

بحث بالأحرف الأولى وتصفية.rar

[محمد حسن المحمد]

أخي وحبيبي في الله محمد حسن أبو يوسف

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

إليك الملف التالي (واعذرني للتأخر عنك في الرد)

Private Sub TextBox1_Change()
    If TextBox1.Text <> "" Then
        ActiveSheet.AutoFilterMode = False
        Range("A10:C10").AutoFilter Field:=4, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr
    Else
        Range("A10:C10").AutoFilter Field:=4
    End If
End Sub

تقبل تحياتي

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

وأخبراً يجني الصبر ثماره ....أسعد الله أوقاتك بكل خير ورزقك الذرية الصالحة الناصحة ...آمين.

والسلام عليكم ورحمة الله وبركاته...

[رشراش علي]

أمر احيانا مرور المشتاق غير ان انشغالات كثيرة تمنعني من الجلوس الى الحاسوب، تحية عطرة لاساتذتي الكرام ،

ثم ما طرحت سؤالي أو لنقل اقتراح الا بعد ان جربت الملف فهو فعال في الاسماء لكن لو تكن سلسلة ارقام لا يعطي نتيجة وحتى الملف الاخير،

تحياتي. وامتناني

[ابو عصام الغالي]

يا استاذ ياسر كل الاحترام والتقدير على مجهودتك ، الرجاء منكم ان يتم تطبيق البحث على 10 اعمدة او اكثر لا على عمود واحد فقط ولكم كل الشكر والتقدير

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

أمر احيانا مرور المشتاق غير ان انشغالات كثيرة تمنعني من الجلوس الى الحاسوب، تحية عطرة لاساتذتي الكرام ،

ثم ما طرحت سؤالي أو لنقل اقتراح الا بعد ان جربت الملف فهو فعال في الاسماء لكن لو تكن سلسلة ارقام لا يعطي نتيجة وحتى الملف الاخير،

تحياتي. وامتناني

 

يا استاذ ياسر كل الاحترام والتقدير على مجهودتك ، الرجاء منكم ان يتم تطبيق البحث على 10 اعمدة او اكثر لا على عمود واحد فقط ولكم كل الشكر والتقدير

 

إخواني الكرام

الأخ رشراش علي

الأخ أبو عصام الغالي

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