فكرة جميلة لاصحاب الأبداعات

[أبو شرف]

اخواني الأعزاء ا

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

 

هنا المطلوب 

 

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

 

هل الفكرة واضحة 

مع الشكر الجزيل لجميع ألأعضاء 

[احمد عبد الناصر]

السلام عليكم

 

هذا باستخدام datavalidation

 

=COUNTA($A4:$I4)=9

 

تحياتي

Book1+.rar

[طارق محمود]

السلام عليكم

أخي العزيز

ضع الكود التالي في حدث الورقة

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

[حمادة عمر]

السلام عليكم

الاخ العزيز / احمد عبد الناصر

 

دائما ردوك رائعة

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ القدير / طارق محمود

 

بارك الله فيك

استاذنا عندما تدخل الي موضوع تزينه بردك

وتجعل الحل نهائيا فهنياً لمن ترد علي موضوع له

جزاك الله خيرا

[اسلام سيد]

بارك الله فيكم جميعا

 

أستاذ/ احمد عبد الناصر  إجابه جميله وتعلمت منها جزاك الله خيرا

 

أستاذ/ طارق   بارك الله فيك أينما كنت ، ونفعنا بعلمك أجابه شافيه كافية

 

أستاذ/ حماده عمر   لقد سبقتنى فى شكر الاساتذة الكرام جزاك الله خير

تم تعديل مارس 1, 2013 بواسطه إسلام الشيمي

[احمد عبد الناصر]

السلام عليكم

 

استاذنا الفاضل طارق

 

 

ولكن هذا أفضل للإثراء

 

بالطبع , انتهز هذه الفرصة لاشكرك علي الجهد الرائع الذي تقوم به فهو يولد حافز لنا لتقديم مزيد من المشاركات واسأل الله ان يجزيك خيرا ويزيدك علما .http://www.officena.net/ib/index.php?showtopic=45601

 

تحياتي للجميع

[منياوى]

راااااااائع

[طارق محمود]

إخواني الأعزاء

جزاكم الله جميعا خير الجزاء