Akram Galal قام بنشر مايو 31, 2013 قام بنشر مايو 31, 2013 السادة الأفاضل أعضاء المنتدى كل جمعة وأنتم بخير أريد كود يسمح بالكتابة في النطاق A1:A100 بشرط أن تكون الخلية H1 = 5 وجزاكم الله خيراً . 1
جمال عبد السميع قام بنشر مايو 31, 2013 قام بنشر مايو 31, 2013 (معدل) هل ممكن بأستخدام ( data validation ) إدخال بشروط.rar تم تعديل مايو 31, 2013 بواسطه جمال عبد السميع 3
حمادة عمر قام بنشر مايو 31, 2013 قام بنشر مايو 31, 2013 السلام عليكم الاخ الكريم / أكرم جلال بارك الله فيك بعد اذن استاذي العزيز / جمال عبد السميع ... جزاه الله خيرا واثراءا للموضوع ... اليك اخي الكريم كود يقوم علي السماح بالكتابة في النطاق A1:A100 بناءا علي قيمة الخليه H1 ** اذا كان قيمة الخلية H1 تساوي 5 يمكنك الادخال في النطاق المذكور ... وان كانت غير ذلك لا يمكنك الادخال ارجو ان يكون هو طلبك ... وعسي الله ان ينفع به Private Sub Worksheet_Change(ByVal Target As Range) If Me.[H1].Value = 5 Then Exit Sub If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub جزاك الله خيرا كود للسماح بالكتابة في نطاق تبعا لقيمة خليه.rar 1
Akram Galal قام بنشر مايو 31, 2013 الكاتب قام بنشر مايو 31, 2013 السادة الأفاضل أ/ جمال عبد السميع أ/ حمادة عمر جزاكم الله خيراً ولكن المطلوب هو ملف أ/ حمادة عمر ولكم مني كل الشكر.
سما محمد قام بنشر مايو 31, 2013 قام بنشر مايو 31, 2013 الاستاذ القدير الخبير/ حمادة عمر راائع دائما ككل اعمالك وحلولك ممتاازة بلا نقاش جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.