صالح أبو أحمد قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 للرفع رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 السلام عليكم الاخ الكريم / صالح أبو أحمد بارك الله فيك يمكنك اخي الكريم بطريقة بسيطة وسهلة ودون تغيير الكود ان تقوم بتسمية اعمدة النطاق myrange والنطاق الآخر لديك mydata وان كان هناك اي نطاق آخر لديك في الورقة وقم بتسميتهم اسم نطاق واحد وليكن مثلا MYRANG1 وباستخدام نفس الكود سيتم تنفيذ المطلوب ارجو ان يكون هو طلبك وان كان غير ذلك في انتظار ردك تقبل خالص تحياتي myrange.rar رابط هذا التعليق شارك More sharing options...
رائد 1982 قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 جزاكم الله خيرا الاخ الكريم / رائد 1982 بارك الله فيك رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 سلام الله عليكم ورحمته وبركاته أخى الكريم حمادة أشكرك على سرعة الرد أنا من المعجبين بهذا المنتدى ومتابعه من قريب وبحمد الله عز وجل على أنه هداني إلى هذا المنتدى الذي تعلمت من أساتذته الكرام الكثير وأشكرهم جميعاً ومتابع أعمالهم الجميلة المفيدة . هذا هو المرفق أريد عمل الكود ليشمل النطاقين ( myrange ) و (mydata ) بدلاً من النطاق ( myrange ) فقط جزاك الله كل خير السلام عليكم أشكرك أخى الكريم / حمادة عمر جزاك الله كل خير المشكلة عندى فى الملف الحقيقى أن الملف كبير جداً وبة أكثر من 80 عمود غير متجاورة بهم دوال عندما أقوم بتسمية هذه الأعمدة كنطاق واحد لا ينطبق على بالكامل بل على بعضها . فلهذا السبب أقوم بتقسيم هذه الأعمدة إلى نطاقين أو أكثر فأنا محتاج كود يعمل على نطاقين أرجو أن يكون شرح طلبي واضح ولك منى كل الشكر والتقدير myrange2.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 9, 2013 مشاركة قام بنشر نوفمبر 9, 2013 السلام عليكم الاخ الكريم / صالح أبو أحمد بارك الله فيك بما انك تعرف الكود المستخدم واصبح سهل التعامل معه اذا هيا معا نقوم بفكرة بسيطة لتنفيذ طلبك وهي تكرار الكود فقط في نفس الامر ولكن مع تغيير اسم النطاق كما تريد ... كما يلي في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر " End If If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("mydata")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم صلاحية لتنفيذ ذلك ... مع تحياتي / حمادة عمر " End If End Sub واليك الملف المرفق وفي انتظار ردك تقبل خالص تحياتي myrange3.rar رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر نوفمبر 10, 2013 مشاركة قام بنشر نوفمبر 10, 2013 السلام عليكم الأخ العزيز / حمادة عمر شكراً جزيلاً لك هذا هو المطلوب بالضبط بارك الله فيك وزادك من علمه أنا معجب كثيراً بهذا المنتدى الهادف وكل ما أكون فاتح الجهاز أكون أتابع مواضيعه الكثيرة الجميلة وأستفيد منها قدر المستطاع . بارك الله فى كل من ساهم فيه . ممكن طلب كمان أرجو أن لا أكون ثقيل عليك طلبي هل يمكنني تغيير الشرط لتنفيذ الكود من الخلية ( T1 ) إلى خلية فى ورقة أخرى جزاك الله خيرا رابط هذا التعليق شارك 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.