محمد رسلان قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 (معدل) السلام عليكم ورحمة الله وبركاته احبائي اعضاء المنتدى الاعزاء يوجد لدي شيت معمول له ماكرو داخل مربع النص بحيث عندما ابحث عن الاسم يعطيني البحث بأول حرف او الحروف الاولى من الاسم فقط . والمطلوب هو تعديل في الماكرو والبحث باي حرف عن الاسم وليس شرطا اول حرف بمعنى انني ممكن ابحث عن الحرف الثاني او الثالث . ولكم جزيل الشكر تحليل عملاء.rar تم تعديل أبريل 10, 2012 بواسطه mohamed_raslan رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 السلام عليكم جرب هذا تحليل عملاء1.rar رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 السلام عليكم يا ابو حنين البحث لم يعمل معى عندما ادخل ثاني او ثالث حرف رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 و الله اخي لم افهم القصد هل تعني مثلا عبد البحث عن الاسم : جملة فرحات و انك تدخل الحرف الثاني ( م ) و ليس الحرف الاول ( ج ) فتتحصل على هذا الاسم ؟ رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 قصدي اخي ان ادخل الحرف فيعطيني الاسماء التي فيها هذا الحرف اي ان ادخل مثلا س فيعطيني جملة سليم و يوسف و جملة سيد و جملة حسني وجملة حسين وجملة حسام الدين رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 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 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 بارك الله فيك ابو نصار نيابة عن الاخ محمد رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 الله ينور عليك يا ابو نصار وتسلم ايدك رابط هذا التعليق شارك More sharing options...
بحيري قام بنشر يونيو 22, 2013 مشاركة قام بنشر يونيو 22, 2013 الاخوة الكرام هذه اول مشاركة لي بمنتداكم الكريم هذا لكنى استفدت منه الكثير وتعلمت الكثير فجزيتم خير الجزاء من رب الارض والسماء ولي استفسار عندما اضع هذا الكود في شيت لدي تظهر رسالة ان الكائن غير موجود علما اني استعمال اوفيس 2010 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 22, 2013 مشاركة قام بنشر يونيو 22, 2013 يجب عليك اخي الكريم اضافة تكست بوكس في صفحة الاكسيل اولا ثم وضع الكود حيث انه يخبرك بان الكائن تكست بوكس غير موجود ليعمل عليه الكود جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
MSG قام بنشر أكتوبر 17, 2013 مشاركة قام بنشر أكتوبر 17, 2013 (معدل) انا عندى شيت مرتبات ومش عارف اعمل خاصيه البحث من اول حرف وكمان الشيت ثقيل ارجو الافاده تم تعديل أكتوبر 17, 2013 بواسطه مؤمن جمعة رابط هذا التعليق شارك More sharing options...
MSG قام بنشر أكتوبر 17, 2013 مشاركة قام بنشر أكتوبر 17, 2013 انا عايز انزل الشيت تشفو ومش عارف ارجو الافاده وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر أكتوبر 17, 2013 مشاركة قام بنشر أكتوبر 17, 2013 يمكنك رفع البرنامج للعمل عليه وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر أكتوبر 17, 2013 مشاركة قام بنشر أكتوبر 17, 2013 لرفع الملف تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=36117&hl= رابط هذا التعليق شارك More sharing options...
محمد بندارى قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم انا كنت عايز اعمل بحث عند كتابة الحرف الاول على هذا الشيت مع العلم انة يمكن ان يتم عمل جميع الشهور فى شيت واحد ارجوا الافادة دفتر 44 صيدلية.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 الرجاء تبيين كيف عمل هذا الكود على فورم وظهور النتائج في ليست بوكس رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 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 رابط هذا التعليق شارك More sharing options...
محمد بندارى قام بنشر يناير 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 كود رائع بارك الله فيك أخى ابو نصار جعله الله فى ميزان حسناتك انا جربت وظهرت لى الرسالة اللى فى الصورة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.