اريد كود يمنع الكتابه فى نطاق محدد الا بشرط

[إبراهيم ابوليله]

الاخوه الافاضل

اريد كود يمنع الكتابه

فى عمود معين اذا كانت البيانات المدخله

غير مدرجه فى عمود اخر

منع كتابة.rar

[أبو حنــــين]

ضع هذه الكود في حدث الورقة كما هو

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range

For Each cl In Range("G5:G22")

If cl.Value > 18 Then

MsgBox "الرقم:  " & cl.Value & "  غير مدرج في القائمة  ", vbExclamation, "خطأ"

cl.Value = ""

End If

Next

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

كود جميل ورائع

بارك الله فيك

ولكن كيف يتم استخدام الكود مع تسميه النطاقات

Range(LIST)

[أبو حنــــين]

غير الكود السابق بالكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Liste As Range, cl As Range

Set Liste = Range("G5:G22")

    For Each cl In Liste

    If cl.Value > 18 Then

    MsgBox " الرقم :  " & cl.Value & "  غير مدرج في القائمة  ", vbExclamation, "خطأ"

    cl.Value = "": cl.Activate

    End If

Next

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

من الملاحظ ان الكود

لا يعمل الا مع الارقام فقط

ولكن ماذا لو استبدلنا الارقام فى العمود i

ب اسماء اشخاص مثلا

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع