الزير

الاستاذ عبدالله الاستاذ رجب ما شاء الله عليكم تقبلوا مروري

ما شاء الله استاذ عبدالله كود قمة في الروعة

ألف مبروك أستاذ / أحمد وبالتوفيق إنشاء الله ودوام العافية

بعد إذنكم لتعريف مدى اذهب إلى بيانات تم ادارة الأسماء وستجد الاسم والمدى الذي يمثله في 2003 من إدراج ثم الاسم والله أعلم

ما شاء الله استاذ عبدالله ملف قمة في الروعة

حل ممتاز جداً للاستاذ الخالدي

اخي الكريم هذا مفهوم لكن من اتت ال 65

جرب المرفق تم اضافة عمود مساعد وتم اخفاء عمود الترتيب الترتيب.rar

ارجو منك وضع مرفق يوضح المطلوب

بعد إذنكم لو لاحظنا في ملف الأخ طاهر الذي يحوي الفورم انه نفس الملف الذي وضعة الأخ طاهر في مشاركة سابقة له بعنوان ما الخلل في هذا الملف. وبه نفس الخطاء الذي قام الأستاذ كيماس بحله كما ان الفورم ليس كما في الصورة في المشاركة السابقة أنا وبعد إذنكم أشأتدتنا الكرام (المشرفين) اطلب ان لا يتم حذف الموضوع وإنما يتم دمجه مع الموضوع السابق وأنا ساخاول ان أقدم المساعدة بعد ان يتم توضيح المطلوب من قبل الأخ طاهر وشكرا أخوكم ابووائل ============ تم دمج المشاركتين

Set myrange = Range("D3", [D1000]) myrange.ClearContents ' myrange.Interior.ColorIndex = xlNone Set myrange = Range("D3", [D3].Offset(rr - 1, cc - 1)) جرب هذا

الأستاذ المميز أبونصار هل أحصل بغدادنك على شرح لهذه الأسطر B_ALI = Mid(C_ALI.Comment.Text, InStr(C_ALI.Comment.Text, ":"), Len(C_ALI.Comment.Text) - InStr(C_ALI.Comment.Text, ":")) وهذه T_A = Split(B_ALI, vbLf) For I = 0 To UBound(T_A)

أجر وعافية أستاذ عبدالله

ما دام هذه الدالة موجود لديك من قبل لماذا لم تطلب التعديل فيها ووفرت الوقت والجهد للاساتذة الكرام !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

سجل ميكرو بهذه الخطوات يصبح لديك كووود اما بالمعادلا فبل يمكن على ما اعتقد

قم باختيار نسخ للخلايا التي تريد ثم اذهب الى المكان الذي تريد اللصق فيه كليك يمين ثم لصق خاص واختر قيم ابووائل

حل الأستاذ الحسامي واضح ورياضي بالنسبة لشرح الأستاذ مجدي الشرح فيه غموض ولا يفسر المسألة رياضيا فلو كان ساكن في الدور العاشر فطريقة الحل لا تنفع وشكرا

ويبقى السؤال. منين جاءت ال 6 و ال 9 وشكرا للآخ مجدي على هذه الأفكار

ما شاء الله عليك أستاذ عبدالله صبر وإخلاق وعلم أبدعاتك متواصلة بارك الله فيك أبووائل.

أحسنت أستاذ جمال الفأر على هذا الملف القيم شكرا لك تقبل مروري أبووائل

كل عام والجميع بخير الاستاذ طارق هل نطع في شرح من حضرتك لهذا الجزء (تفصيل لو تتكرم) Randomize 10 x = Int(Rnd(1) * 230) + 1

هناك دالة معرفة للأستاذ الحسامي وموضوعها مثبت وتفي بما تريده انت

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

المسألة ليست مسألة دمج أكواد وإنما مسألة مناسبة الكود لما تريده. فإن كان مناسبا أمكنك تطويع الكود

اعجبني الرد فاقتبسته