fixing popup message more than time on userform

[abdelfattah]

hello
i have this code but i no know where is the problem this message when popup it shows more one time please any idea to get rid of this problem

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim f As Range
  If TextBox2.Value = "" Then
    MsgBox "Enter Brand"
    TextBox2.SetFocus
    Exit Sub
  End If
  If TextBox3.Value = "" Then Exit Sub
  If TextBox3.Value <= 0 Or Not IsNumeric(TextBox3.Value) Then
    Cancel = True
    MsgBox "Enter a valid value"
    Exit Sub
  End If
  Set f = Sheets("sheet1").Range("B:B").Find(TextBox2, , xlValues, xlWhole)
  If Not f Is Nothing Then
    If f.Offset(, 1) < Val(TextBox3) Then
      MsgBox "Available is : " & f.Offset(, 1)
      Cancel = True
    Else
      MsgBox "ok"
    End If
  Else
    MsgBox "Brand does not exists"
    TextBox2.SetFocus
  End If
End Sub

 

[NdNoviceHlp]

Hi abdelfattah. I'm guessing that when U code textbox2.setfous, that fires your textbox3 exit event which causes the textbox3 exit code to run again. Also, U have missed the ".Value" in this part of your code. HTH. Dave

Set f = Sheets("sheet1").Range("B:B").Find(TextBox2.Value, , xlValues, xlWhole)
  If Not f Is Nothing Then
    If f.Offset(, 1) < TextBox3.Value Then

 

[abdelfattah]

hi, NdNoviceHlp actually i found out where is the problem cancel is should false not true whether your updating or my original code the problem is same thing also when change is false they are both work ,do you have any idea for
what works function cancel ? actually this code is not mine

 

[NdNoviceHlp]

Maybe this will help. Dave

Redirecting