عدم تكرار بشرط

[الذيب 2015]

السلام عليكم ورحمة الله وبركاته

الى أعزائي واساتذتي الكرام

المطلوب

ان شاء الله بالملف المرفق

وأرجو أن وفقت بشرح المطلوب .

Book1.zip

[رجب جاويش]

أخى الفاضل

جرب هذا الكود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LR As Integer, x As Integer

Dim cl As Range, cll As Range

LR = [A1000].End(xlUp).Row

'==========================================================

If Target.Column <> 1 Then Exit Sub

For Each cl In Range("B1:B" & LR)

If cl = "نهاية خدمة" Then x = cl.Offset(0, -1).Value

For Each cll In Range("A1:A" & LR)

If Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1), Cells(LR, 1)), x) > 1 Then

MsgBox "هذا الموظف حصل على نهاية خدمة قبل ذلك ولا يمكن تكراره": Target = "": Target.Select: Exit Sub

End If

Next

Next

End Sub

عدم تكرار شرط.rar

[جمال عبد السميع]

بعد إذن أستاذي ومعلمي الجميل ( رجب جاويش )

هذا حل أخر ( data validation) لأثراء الموضوع

عدم تكرار بشرط.rar

[الذيب 2015]

الاساتذة الكرام

رجب جاويش

mahmoud-lee

جزاكم الله خيرا وزادكم علما

وأشكرككم على حسن وسرعة الرد

تم تعديل نوفمبر 18, 2012 بواسطه ذيب اليمن