رجب جاويش

وأنا أيضا تم حل مشكلة ادراج الاكواد عندى For i = 1 To 1000000 MsgBox "ألف شكر لإدارة المنتدى" Next i

أستاذنا الفاضل / مجدى يونس جزاك الله كل خير على هذا المرور العطر والكلمات الطيبة

أخى ابراهيم جزاك الله كل خير أخى على هذه الكلمات الطيبة

تفضل أخى ابراهيم استخراج الاسماء الجديده4.rar

أخى الفاضل / ابراهيم جزاك الله كل خير

أما السطور (Match(TextBox17.Value) فان دالة Match هى دالة بحث تبحث عن عنصر معين ( هو هنا قيمة الـ TextBox17 ) داخل نطاق معين من الخلايا وترجع الموقع النسبى لهذا العنصر فى النطاق أما الجزء (Match(CStr(Me.TextBox1 فيزيد عليه الجزء CStr وهو يقوم بتحويل قيمة الـ TextBox1 الى متغير من نوع String ( نصى ) أما الجزء (Match(Val(TextBox17.Value فيزيد عليه الجزء Val وهى تأخذ القيمة الرقمية من الـ TextBox1 للبحث عنها حيث أنها تحول القيمة النصية لرقم مثل " 3 " ( لاحظ الأقواس الصغيرة " " حول الرقم وهى تسمى علامات التنصيص ) تحولة الى رقم 3 أرجو أن أكون وفقت فى الشرح وأن يكون واضح وعذرا لأى خطأ والله أعلم

<p>أخى الفاضل / حسين</p> <p>هذا السطر</p> <p>x = UBound(Filter(Split(arr, &quot;,&quot;), TextBox1))</p> <p>يقوم بعمل فلترة للبيانات الموجودة فى المتغير arr&nbsp; وشرط الفلترة هو القيمة المكتوبة فى Textbox&nbsp;</p> <p>ثم بعد ذلك تقوم الدالة ubound&nbsp; بايجاد قيمة الحد الأعلى للمصفوفة الناتجة عن الفلترة</p> <p>فاذا كانت قيمة الحد الأعلى ( x ) يساوى -1 معنى ذلك أنه لا يحتوى على بيانات</p> <p>مما يعنى أن قيمة ال Textbox غير موجودة فى نطاق البيانات [ A1:A6] فتظهر الرسالة التى تخبرنا بذلك</p>

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

بعد اذن أستاذى الحبيب / عبد الله باقشير وبعد اذن أخى الحبيب / عباد هذه مشاركة متواضعة لعلها تلقى قبول اساتذتى الكرام Private Sub TextBox1_Change() For Each cl In [A1:A6] arr = arr & cl & "," Next x = UBound(Filter(Split(arr, ","), TextBox1)) If x = -1 Then MsgBox "القيمة غير موجودة في القائمة": Exit Sub End Sub TEXTBOX1.rar

أخى الفاضل / ابو اليسر جزاك الله كل خير سوف تجد طلبك فى الملف الذى أرسلته لك فى البداية وهو الملف المرفق فى المشاركة رقم 6

وهذا هو الطلب الثانى تنفيذ الكود بدون زر استخراج الاسماء الجديده3.rar

تفضل أخى ابراهيم الطلب الاول البيانات موجودة فى شيت والزر موجود فى شيت آخر استخراج الاسماء الجديده2.rar

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

أخى ابراهيم الحل بالكود فى المشاركة التى تسبق الحل بالمعادلات المشاركة رقم 8 وجزاك الله كل خير

وهذا حل آخر بالمعادلات استخراج الاسماء الجديده1.rar

السام عليكم تفضل أخى ابراهيم حل بالأكواد استخراج الاسماء الجديده.rar

أخى الفاضل / محمد طنطاوى الحمد لله أن تم تحقيق طلبك جزاك الله كل خير

أخى الفاضل / محمد طنطاوى تفضل ما تريد Book1.rar

أخى الحبيب / محمود جزاك الله كل خير ولاثراء الموضوع هذه فكرة أخرى باستخدام بعض الاعمدة المساعدة وتم فى هذه الحالة الترحيل بشرط أن تزيد الكمية عن 50 ولكن فى هذه الحالة يتم ترحيل نسبة 10 % من الأسماء التى تزيد كميتها عن 50 فقط وبالتالى فى هذه الحالة ( فى المرفق ) مثلا عدد الأسماء التى تزيد كميتها عن 50 هو 29 اسم فقط وبالتالى تم ترحيل 3 أسماء فقط وهكذا وعند زيادة البيانات سوف تزداد نسبة عدد البيانات المرحلة حتى تكمل 10 % من البيانات التى تتعدى كميتها 50 تم تعديل المرفق 44+44.rar

أخى الحبيب / حمادة عمر مرورك العطر شرف كبير وكلماتك الطيبة مزيد من الشرف حياك الله وزادك فضلا وعلما

أخى الفاضل / محمود رواس تسلم ايديك وجزاك الله كل خير

أخى الفاضل / أبو ردينة أحييك على هذه اللفتة الجميلة والسؤال عن أخينا الغالى المبدع / أبو حنين نرجو الله أن يعيده الينا سالما غانما لأننا والله لم ننساه أخا عزيزا ومبدعا كبيرا نتمنى من الله أن نراه قريبا يملأ المنتدى بروحة الجميلة وابداعاته الجميلة التى لا يعوضها أحد

أخى الفاضل هذه فكرة خطرت على بالى جربها ولكن لم يتم فيها الألتزام بأن تكون الكمية أكبر من 50 لكن يتم ترحيل نسبة 10 % كما تريد وبشكل عشوائى كما تريد بحيث لو ضغطت على مفتاح F9 يتم تغير الأسماء المرحلة فى كل مرة تضغط فيها يمكن تطوير الفكرة الى أحسن منها من أحد إخوتى الزملاء ولكن قلت هى بداية يمكن تفيد 44.rar

أضم صوتى لصوت أخى الحبيب / حمادة عمر حيث أن مشكلة ادراج الأكواد لم تكن موجودة عندى ولكنها ظهرت منذ وقت قريب وما زالت موجودة فنرجو التكرم من ادارة المنتدى بحل هذه المشكلة شاكرين لهم جهودهم فى خدمة هذا الصرح العلمى الكبير

شكر الله سعيكم جميعا إخوتى الكرام وجزاكم الله كل خير