مساعدة في منع التكرار بين خلية وقائمة منسدلة

[عاشق الاسلام]

اساتذتي الاعزاء كيف امنع التكرار بين الاقسام  بين العمود B ومع القائمة المنسدلة في عمود (c) كما هو واضح في الملف المرفق بحيث عندما يختار المستخدم من القائمة المنسدلة قسم (ب) تظهر رسالة القسم مكرر يرجى التغيير .

 مع الفرض بأن العمود ( A ,B   ) محمية. ولكم جزيل الشكر والثواب.

ملف.rar

[سليم حاصبيا]

السلام عليكم

لقد اجريت بعض التعديلات على الملف

لحسن سير المعادلات

عسى ان ينال اعجابك

بقية لائحة عاشق الاسلام.rar

[عاشق الاسلام]

السلام عليكم

لقد اجريت بعض التعديلات على الملف

لحسن سير المعادلات

عسى ان ينال اعجابك

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

[سليم حاصبيا]

السلام عليكم

انا معكم من جديد

تم التعديل على الملف /ربما ينفع هذا الشيء

في حال تكرار القسم السابق للموظف نفسه لا يتم ادخال اسم القسم في اللائحة المنسدلة

بقية لائحة عاشق الاسلام 1.rar

[محمد الريفى]

اخى الكريم

ممكن توضح ماتريده

على نفس المثال بشكل يدوى

تم تعديل أغسطس 2, 2014 بواسطه الريفى

[عاشق الاسلام]

اخى الكريم

ممكن توضح ماتريده

على نفس المثال بشكل يدوى

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

[عاشق الاسلام]

السلام عليكم

انا معكم من جديد

تم التعديل على الملف /ربما ينفع هذا الشيء

في حال تكرار القسم السابق للموظف نفسه لا يتم ادخال اسم القسم في اللائحة المنسدلة

 

 

 

استاذي الغالي انا اشكرك على مساعدتك وتحملك العناء من اجلي وجعله الله سبحانه وتعالى في ميزان حسناتك واعتذر منك  لم يكن ماكنت اطمح له.وتقبل وافر احترامي

[محمد الريفى]

السلام عليكم

بعد اذن استاذنا الحبيب // سليم حاصبيا

اليك اخى عاشق الاسلام هذا الحل

ارجو ان يكون هو المطلوب ولو بشكل مبدئى

ملف.rar

[عاشق الاسلام]

السلام عليكم

بعد اذن استاذنا الحبيب // سليم حاصبيا

اليك اخى عاشق الاسلام هذا الحل

ارجو ان يكون هو المطلوب ولو بشكل مبدئى

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

[عبدالله المجرب]

السلام عليكم 

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C10]) Is Nothing Then
If Target = Target.Offset(0, -1) Then MsgBox " قسم مكرر يرجى التغيير": Target = ""
End If
End Sub

اليك المرفق 

 

ملف.rar

[عاشق الاسلام]

السلام عليكم 

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C10]) Is Nothing Then
If Target = Target.Offset(0, -1) Then MsgBox " قسم مكرر يرجى التغيير": Target = ""
End If
End Sub

اليك المرفق 

استاذي العزيز الله يبارك فيك ويجعل هذا العمل الرائع شفيع لك يوم القيامة وفي ميزان حسناتك وتقبل مني وافر التقدير والاحترام.