ياسر العربى

عليكم السلام ياريت توضيح اكثر مع ملف به المطلوب والنتيجة تحياتي

تفضلى هذه المواضيع https://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ أو https://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ تحياتي

اختى الكريمة ارفقى ملف يوضح المطلوب للعمل عليه تحياتي

الموضوع بسيط جدا اضف End في نهاية الكود كما بالمرفق تحياتي يومي.rar

تفضل لعله المطلوب الطلاب salim.rar

تفضل اخي الكريم لعله المطلوب يومي.rar

بنورك ياغالي المنتدى منور بالموجودين وبكم اخي الكريم جلال الجمال تحياتي لك

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

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

تفضل اخي الكريم هل هذا ما تقصده ترحيل الدور التاني.rar

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

تفضل لعله المطلوب اخي الكريم احمد تحياتي عدم تحريك.rar

هل تقصد هكذا! SERCH_ARRY_YASSER_ELARABY - Copy.rar

تفضل اخي الكريم احمد هل هذا ما تقصده؟! 111.rar

ملأى السنابل تنحني بتواضع ....... والفارغات رؤوسهن شوامخ

اخي الكريم المرفق غير موجود فيرجى اعادة رفعه مرة اخرى واليك هذا الرابط لملف لعرض الصور داخل فورم بطريقة خفيفه بدون تخزين الصور بالملف ووضعها بمجلد مع ملف الاكسيل http://yasserelaraby86.blogspot.com.eg/2016/10/blog-post_6.html تقبل تحياتي

المقارنة بين الجدولين عن طريق كود VBA وهو يقوم بمقارنة اول رقم في الجدول واحد بما يقابله من الجدول اتنين ثم يقوم بجلب البيانات كل رقم امام رقمه بالجدول الاول الكود المستخدم Sub Yasser_Sort() Dim X, Z Application.ScreenUpdating = False For X = 6 To Cells(Rows.Count, 5).End(xlUp).Row For Z = 6 To Cells(Rows.Count, 14).End(xlUp).Row If Cells(X, 5) Like Cells(Z, 14) Then Cells(X, 9) = Cells(Z, 13): Cells(X, 10) = Cells(Z, 14) Next Z Next X Application.ScreenUpdating = True End Sub تقبل تحياتي

جرب المرفق لعله المطلوب ramp area.rar

اضافة 1 هنا بسبب اختلاف المصفوفات عن النطاقات من حيث انها تبدأ بصفر جرب شيل ال1 وهديك out of range طبعا طالما هنخش ع المصفوفات وشغلها ونبعد عن النطاقات دي وطبعا بعيد عن زود واحد نقص واحد الحل الامثل كما ذكرت Private Sub TextBox1_Change() Dim myArray, lr, X, targt, targtN Dim DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row ListBox1.Clear targt = TextBox1.Text targtN = ComboBox1.ListIndex + 1 myArray = DATA.Range("A2:J" & lr) '____________________________________________ ReDim y(1 To UBound(myArray, 1), 1 To UBound(myArray, 2)) For X = LBound(myArray) To UBound(myArray) If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 For yy = 1 To 10 y(rw, yy) = myArray(X, yy) Next yy End If Next X If rw > 0 Then ListBox1.AddItem ListBox1.List = y() End If End Sub منتظر التعديل التالي ولا اقولك لا مش هعدل طالما النتائج سليمة

تسلم حبيبي ابو البراء انت صح الملف خطأ تم تعديل المرفق والكود كما موضح Private Sub TextBox1_Change() Dim myArray, lr, X, targt, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") 'اسم شيت قاعدة البيانات Set SERCH = Worksheets("Sheet1") 'اسم الشيت الخاص بالبحث '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row 'اخر صف به بيانات ListBox1.Clear 'مسح نطاق البحث القديم targt = TextBox1.Text 'خلية البحث targtN = ComboBox1.ListIndex + 1 'دالة لايجاد رقم عمود البحث myArray = DATA.Range("A2:J" & lr + 1) 'نطاق البحث '____________________________________________ ReDim y(1 To lr, 1 To 10) For X = 1 To lr If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 For yy = 1 To 10 y(rw, yy) = myArray(X, yy) Next yy End If Next X If rw > 0 Then ListBox1.AddItem ListBox1.List = y() End If End Sub عرفت الرقم زاد ليه تقبل تحياتي

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

https://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ https://www.officena.net/ib/topic/65092-شرح-عمل-صلاحيات-للدخول-على-شيتات-داخل-ملف-الاكسيل/

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

انت الاروع استاذ مختار حسين خاصةمع تعليقك تقبل تحياتي

تفضل اخي نايف listbox.rar