البحث عن الاسم بأي حرف

[محمد رسلان]

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

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

والمطلوب هو تعديل في الماكرو والبحث باي حرف عن الاسم وليس شرطا اول حرف بمعنى انني ممكن ابحث عن الحرف الثاني او الثالث .

ولكم جزيل الشكر

تحليل عملاء.rar

تم تعديل أبريل 10, 2012 بواسطه mohamed_raslan

[أبو حنــــين]

السلام عليكم

جرب هذا

تحليل عملاء1.rar

[محمد رسلان]

السلام عليكم

يا ابو حنين البحث لم يعمل معى عندما ادخل ثاني او ثالث حرف

[أبو حنــــين]

و الله اخي لم افهم القصد هل تعني مثلا عبد البحث عن الاسم : جملة فرحات و انك تدخل الحرف الثاني ( م ) و ليس الحرف الاول ( ج ) فتتحصل على هذا الاسم ؟

[محمد رسلان]

قصدي اخي ان ادخل الحرف فيعطيني الاسماء التي فيها هذا الحرف اي ان ادخل مثلا س فيعطيني جملة سليم و يوسف و جملة سيد و جملة حسني وجملة حسين وجملة حسام الدين

[الـعيدروس]

السلام عليكم

إستبدل كود حدث الورقة TextBox

بهذا > نفس الكود لاكن عليه اضافة طفيفة

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim lastrow As Long

lastrow = Range("b65535").End(xlUp).Row

If TextBox1.Text <> "" Then

    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _

    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr

    Else

    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _

    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr

    End If

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

[أبو حنــــين]

بارك الله فيك ابو نصار نيابة عن الاخ محمد

[محمد رسلان]

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

[بحيري]

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

ولي استفسار عندما اضع هذا الكود في شيت لدي تظهر رسالة ان الكائن غير موجود علما اني استعمال اوفيس 2010

[حمادة عمر]

يجب عليك اخي الكريم اضافة تكست بوكس في صفحة الاكسيل اولا ثم وضع الكود

حيث انه يخبرك بان الكائن تكست بوكس غير موجود ليعمل عليه الكود

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

[MSG]

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

تم تعديل أكتوبر 17, 2013 بواسطه مؤمن جمعة

[MSG]

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

[أبو سجده]

يمكنك رفع البرنامج

للعمل عليه

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

[أبو سجده]

لرفع الملف 

تابع هذا الرابط

http://www.officena.net/ib/index.php?showtopic=36117&hl=

[محمد بندارى]

السلام عليكم

انا كنت عايز اعمل بحث عند كتابة الحرف الاول على هذا الشيت

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

ارجوا الافادة 

دفتر 44 صيدلية.rar

[ريان أحمد]

الرجاء تبيين كيف عمل هذا الكود على فورم  وظهور النتائج في ليست بوكس

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

السلام عليكم

إستبدل كود حدث الورقة TextBox

بهذا > نفس الكود لاكن عليه اضافة طفيفة

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("b65535").End(xlUp).Row
If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    Else
    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

كود رائع

بارك الله فيك أخى ابو نصار

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

[محمد بندارى]

 

السلام عليكم

إستبدل كود حدث الورقة TextBox

بهذا > نفس الكود لاكن عليه اضافة طفيفة

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("b65535").End(xlUp).Row
If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    Else
    ActiveSheet.Range("$A$7:$k$" & lastrow).AutoFilter Field:=2, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

كود رائع

بارك الله فيك أخى ابو نصار

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

 

انا جربت وظهرت لى الرسالة اللى فى الصورة