اعلامي بان الكود موجود

[sabah20267]

السلام عليكم .. ممكن كود للاعلام بان رقم الكود موجود ، ولا يمكن ادخاله الا بعد موافقة

بحثت بالمنتدى ولم اجد سوى تنسيق شرطي .. واني محتاج كود .. جزيتم خيرا

انتبه من فضلك تــم اعادة رفع الملف بإمتداد يقبل اضافة الأكواد ... طالما انك تريد المساعدة والحل بالأكواد XLSM

الكود موجود في شيت الارشيف.xlsm

[أ / محمد صالح]

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Column = 1 Then
If Target.Value <> "" Then
If Not Sheets("الارشيف").Range("a:a").Find("*" & Target & "*") Is Nothing Then
If MsgBox("هذا الكود موجود. هل تريد إدخاله؟", 292, "انتبه") = vbNo Then
Target.Select: Target.Value = ""
End If: End If: End If: End If
End Sub

ولا تنس حفظ الملف بامتداد يدعم الكود مثل xlsb

بالتوفيق

[sabah20267]

تسلم .. تمام .. تبقى اذا اخذت مجموعة اكواد (انسخ الاكواد من شيت الارشيف ولصق في شيت شهر اب ) 

جربت كود - نجح الأمر وجربت بان اخذ مجموعة والاكواد , لم تنجح معي .. ممكن جزيت خيرا - الله يفوفقك معالجة هذا الأمر

 

 

 

[أ / محمد صالح]

تم تحديث الكود السابق بحيث لا يعمل إلا إذا كان التعديل في خلية واحدة

بالتوفيق