ابوالزوز

أخواني .. هل يمكن تطبيق كود تجزئة الاسم المذكور في المرفق لكن بواسطة الكمبوبوكس والتكست بوكس بحيث عند اختيار الاسم الكامل من قائمة الكومبوبوكس يظهر الاسم المجزأ في التكست بوكس تلقائيا يوجد في المرفق ملف يوضح ذلك تقبلوا تحياتي تجزئة الاسماء من اسم طويل.rar

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

شكرا جزيلا أخي العزيز حمادة عمر جعلها الله في ميزان حسناتك وأبعد عنك وعن أهلك السوء.. أخوك أبوالزوز

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

السلام عليكم.. أخواني الأفاضل.. نظرا للظروف المحيطة فقد انقطعت عن أكواد الاكسل منذ فترة طويلة نسبيا للأسف لذا أرجو منكم مساعدتي في هذا الموضوع المتعلق باستخدام كود الـ vba لتجزئة الاسم الثلاثي إلى مكوناته الاساسية ( الاسم الاول - اسم الاب - اسم العائلة ) كل على حدة مع معالجة مشاكل الاسم المركب بأنواعه في المرفق ملف بسيط للتطبيق أرجو الإفادة جزاكم الله خيرا وفرج عنكم الهموم والأحزان تجزئة الاسم.rar

مشكرين جميعاً .. مجهودات رائعة

اخي العزيز الزير لك مني ومن كل أعضاء هذا المنتدى الرائع أحلى وأطيب التهاني على هذه الترقية التي كنت جديراَ بها بالفعل وأرجو أن تكون لك بمثابة حافز للتطوير والإبداع ألف مبروك تقبل تحياتي أخوك abuzzouz

عمل رائع أخي alouma جزاك الله خيراً وننتظر المزيد إلا أني أقترح عليك إضافة كود Application.ScreenUpdating إلى الماكرو Sub Macro2() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 300 Range("e3").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Range("e10").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Range("e13").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Next i Application.ScreenUpdating = True End Sub تقبل تحياتي ..

اخواني الأعزاء .. لقد اهتديت إلى الحل وإليكم الملف تقبلوا تحياتي .. Stop Del.rar

أخواني الأفاضل .. استكمالاً للموضوع أود تشغيل أو تعطيل زر بشرط استخدام زر آخر كتعطيل زر C في حال استخدم لوحده وتشغيله في حال استخدم مع الزر Ctrl بمعنى تعطيل الزر C إلا في حالة عملية النسخ وتطبيق ذلك في نفس الملف المرفق سابقاً جزاكم الله الخير تقبلوا تحياتي

نعم الفكرة جميلة أخي kemas جزاك الله خيراً وهي تؤدي نفس الغرض أي تحقق شرط معين تقبل تحياتي ..

اخواني الأعزاء .. لقد اهتديت إلى الحل تقبلوا تحياتي .. Stop Del.rar

السلام عليكم .. أخواني الأكارم من فضلكم هل لي بطريقة لتعطيل أزرار الحذف في مربع نص بدون اللجوء إلى تجميد المربع في حال تحقق شرط معين في المرفق ملف مساعد تقبلوا تحياتي .. Stop Del.rar

جمعة مباركة علينا وعليك أستاذي العزيز خبور سلمت يداك وجعل الله ذلك في ميزان حسناتك .. دائماً مبدع جاري تطبيق الفكرة وأية أسئلة سوف أقوم بالرجوع إليك تقبل تحيات أخوك abuzzouz