أخوي جرب هالكود
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then
MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا"
Target.Value = ""
Exit Sub
End If
End Sub
أولا : بما أن هذه أول مشاركة لي اسمحوا لي أن أقدم تحياتي لجميع أعضاء ومشرفي وأعضاء مجلس إدارة في هذا المنتدى الرائع
وأتمنى أن أستفيد وأفيد اخواني الكرام وأن تسود روح الأخوة الصادقة بيننا
ثانيا : السؤال :) :lol:
عندي مثلا من (A1:A10 ) يوجد مجموعة أرقام
أريد أن يقوم أكسل بالتنبيه إذا قام المستخدم بتكرار رقم في هذا النطاق
آمل أن يكون سؤالي مفهوم