محمد رسلان قام بنشر أبريل 10, 2012 قام بنشر أبريل 10, 2012 (معدل) السلام عليكم ورحمة الله وبركاته احبائي اعضاء المنتدى الاعزاء يوجد لدي شيت معمول له ماكرو داخل مربع النص بحيث عندما ابحث عن الاسم يعطيني البحث بأول حرف او الحروف الاولى من الاسم فقط . والمطلوب هو تعديل في الماكرو والبحث باي حرف عن الاسم وليس شرطا اول حرف بمعنى انني ممكن ابحث عن الحرف الثاني او الثالث . ولكم جزيل الشكر تحليل عملاء.rar تم تعديل أبريل 10, 2012 بواسطه mohamed_raslan
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب قام بنشر أبريل 10, 2012 السلام عليكم يا ابو حنين البحث لم يعمل معى عندما ادخل ثاني او ثالث حرف
أبو حنــــين قام بنشر أبريل 10, 2012 قام بنشر أبريل 10, 2012 و الله اخي لم افهم القصد هل تعني مثلا عبد البحث عن الاسم : جملة فرحات و انك تدخل الحرف الثاني ( م ) و ليس الحرف الاول ( ج ) فتتحصل على هذا الاسم ؟
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب قام بنشر أبريل 10, 2012 قصدي اخي ان ادخل الحرف فيعطيني الاسماء التي فيها هذا الحرف اي ان ادخل مثلا س فيعطيني جملة سليم و يوسف و جملة سيد و جملة حسني وجملة حسين وجملة حسام الدين
الـعيدروس قام بنشر أبريل 10, 2012 قام بنشر أبريل 10, 2012 السلام عليكم إستبدل كود حدث الورقة 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
أبو حنــــين قام بنشر أبريل 10, 2012 قام بنشر أبريل 10, 2012 بارك الله فيك ابو نصار نيابة عن الاخ محمد
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب قام بنشر أبريل 10, 2012 الله ينور عليك يا ابو نصار وتسلم ايدك
بحيري قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 الاخوة الكرام هذه اول مشاركة لي بمنتداكم الكريم هذا لكنى استفدت منه الكثير وتعلمت الكثير فجزيتم خير الجزاء من رب الارض والسماء ولي استفسار عندما اضع هذا الكود في شيت لدي تظهر رسالة ان الكائن غير موجود علما اني استعمال اوفيس 2010
حمادة عمر قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 يجب عليك اخي الكريم اضافة تكست بوكس في صفحة الاكسيل اولا ثم وضع الكود حيث انه يخبرك بان الكائن تكست بوكس غير موجود ليعمل عليه الكود جزاك الله خيرا
MSG قام بنشر أكتوبر 17, 2013 قام بنشر أكتوبر 17, 2013 (معدل) انا عندى شيت مرتبات ومش عارف اعمل خاصيه البحث من اول حرف وكمان الشيت ثقيل ارجو الافاده تم تعديل أكتوبر 17, 2013 بواسطه مؤمن جمعة
MSG قام بنشر أكتوبر 17, 2013 قام بنشر أكتوبر 17, 2013 انا عايز انزل الشيت تشفو ومش عارف ارجو الافاده وجزاكم الله خيرا
أبو سجده قام بنشر أكتوبر 17, 2013 قام بنشر أكتوبر 17, 2013 يمكنك رفع البرنامج للعمل عليه وجزاكم الله خيرا
أبو سجده قام بنشر أكتوبر 17, 2013 قام بنشر أكتوبر 17, 2013 لرفع الملف تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=36117&hl=
محمد بندارى قام بنشر يناير 2, 2014 قام بنشر يناير 2, 2014 السلام عليكم انا كنت عايز اعمل بحث عند كتابة الحرف الاول على هذا الشيت مع العلم انة يمكن ان يتم عمل جميع الشهور فى شيت واحد ارجوا الافادة دفتر 44 صيدلية.rar
ريان أحمد قام بنشر يناير 2, 2014 قام بنشر يناير 2, 2014 الرجاء تبيين كيف عمل هذا الكود على فورم وظهور النتائج في ليست بوكس
محمود_الشريف قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 السلام عليكم إستبدل كود حدث الورقة 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 كود رائع بارك الله فيك أخى ابو نصار جعله الله فى ميزان حسناتك 1
محمد بندارى قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم إستبدل كود حدث الورقة 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 كود رائع بارك الله فيك أخى ابو نصار جعله الله فى ميزان حسناتك انا جربت وظهرت لى الرسالة اللى فى الصورة
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان