مقارنة قيمتين فى خليتين مع التنبيه

[محمد طاهر عرفه]

الكود للاخ أمير

Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet1").Range("A1").Value > Worksheets("Sheet1").Range("A2").Value Then
  If MsgBox("الرصيد لا يسمح بزيادة عدد" & " " & _
     ((Worksheets("Sheet1").Range("A1").Value) - (Worksheets("Sheet1").Range("A2").Value)) _
     & " " & "وحدة .. هل تريد الإستمرار أم نضع الحد الاقصي للاستمرار اختار نعم", vbQuestion _
     + vbYesNo, "رسالة تنبيه") = vbNo Then
     Range("A1").Value = Range("A2").Value
       Exit Sub
     End If
End If

End Sub

مرفق المثال

CompareValue_amir.rar

[حسام نور]

- أكثر من ممتاز

[محمد طاهر عرفه]

موضوع ذو صلة

مقارنة قيمتين فى عمود السحب و الرصيد

و منع زيادة السحب عن الرصيد

(عمود بالكامل)

http://www.officena.net/ib/index.php?showt...=2633&hl=مقارنة