أبو شرف قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 اخواني الأعزاء ا لدي مجموعة من الموظفين يعملون على ورقة اكسل مكونة من تسعة اعمدة على سبيل المثال , عندما يتم الكتابة في الصف الواحد فهناك تسعة خلايا يجب ادخال بيانات فيهم , وبعدها ينتقل الى الصف الذي يليه هنا المطلوب نتمنى ان لا يتم الذهاب الى الصف الذي يليه مالم يتم ادخال كافة البيانات في الخليا التسعة في الصف العلوي بحيث اذا تركت اي خلية فارغة لا يستطلع الكتابة في الصف الذي بعده هل الفكرة واضحة مع الشكر الجزيل لجميع ألأعضاء
احمد عبد الناصر قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 السلام عليكم هذا باستخدام datavalidation =COUNTA($A4:$I4)=9 تحياتي Book1+.rar 1
طارق محمود قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) r = Target.Row: If r < 4 Then Exit Sub For Each cl In Range("A" & r - 1 & ":I" & r - 1) If IsEmpty(cl) Then GoTo 10 c = c + 1 10 Next If c < 9 Then Target.Offset(-1, 0).Select End Sub أو تفضل المرفق أخي العزيز /أحمد عبد الناصر عفوا لم أر مشاركتك إلا بعد أن شاركت ولكن هذا أفضل للإثراء عدم الذهاب للصف الذي يليه إذا لم تدخل كافة البيانات.zip 2
حمادة عمر قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 السلام عليكم الاخ العزيز / احمد عبد الناصر دائما ردوك رائعة جزاك الله خيرا
حمادة عمر قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 السلام عليكم الاستاذ القدير / طارق محمود بارك الله فيك استاذنا عندما تدخل الي موضوع تزينه بردك وتجعل الحل نهائيا فهنياً لمن ترد علي موضوع له جزاك الله خيرا
اسلام سيد قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 (معدل) بارك الله فيكم جميعا أستاذ/ احمد عبد الناصر إجابه جميله وتعلمت منها جزاك الله خيرا أستاذ/ طارق بارك الله فيك أينما كنت ، ونفعنا بعلمك أجابه شافيه كافية أستاذ/ حماده عمر لقد سبقتنى فى شكر الاساتذة الكرام جزاك الله خير تم تعديل مارس 1, 2013 بواسطه إسلام الشيمي
احمد عبد الناصر قام بنشر مارس 1, 2013 قام بنشر مارس 1, 2013 السلام عليكم استاذنا الفاضل طارق ولكن هذا أفضل للإثراء بالطبع , انتهز هذه الفرصة لاشكرك علي الجهد الرائع الذي تقوم به فهو يولد حافز لنا لتقديم مزيد من المشاركات واسأل الله ان يجزيك خيرا ويزيدك علما .http://www.officena.net/ib/index.php?showtopic=45601 تحياتي للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.