[حل شده] اعلام خطا ورود اطلاعات

[razemana]

با سلام و وقت بخیر ،یه مقدار عدد میخواستم وارد کنم و در صورتی که از یه قدار بیشتر بود خطا بده و مقدار باقیمانده رو هم نشون بده در صورت امکان ، ممنون میشم راهنمایی بفرمایید

[amir_ts]

با سلام
این کد رو در شیت مربوطه قرار بدید.

[LEFT]
Private Sub Worksheet_Change(ByVal Target As Range)
      Dim aval As Integer
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("G5")) Is Nothing Then Exit Sub
      
     If Target.Value > Range("e5").Value Then
                     aval = Target.Value - Range("e5").Value
                     MsgBox " Èå ãÞÏÇÑ" & " " & aval & "æÇÍÏ ÇÒ ãÞÏÇÑ ÈæÏÌå ÈíÔÊÑ ÇÓÊ æ äíÇÒ Èå ÊÇãíä ÇÚÊÈÇÑ ÏÇÑÏ."
                     Target.Value = ""
     End If
            
     Range("f5").Value = Target.Value
End Sub
[/LEFT]