Datavalidation not working

[nirmalachr]

Hi,

The below code i had used to validate the data entered in corresponding fields but the code is not working only numeric condition is working and i had added data validation at the end of the command button before last line.

Private Sub datavalidation()


If Not IsNumeric(TextBox3.Value) Then
MsgBox "Amount Field can not be blank"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Please enter the type of Proposal"
Exit Sub
End If
If TextBox1.Value = "" Then
MsgBox ("Sorry, you need to provide an Amount")
TextBox1.SetFocus
Exit Sub
End If
'If TextBox1.Value = " " Then
'MsgBox "Please enter the Applicant Name"
'Exit Sub
'End If
If ComboBox1.Value = "" Then
MsgBox "Sorry, You need to select Branch Code"
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Sorry, You need to select Branch Name"
Exit Sub
End If
If ComboBox3.Value = "" Then
MsgBox "Sorry, You need to select The Proposar Status"
Exit Sub
End If
If ComboBox4.Value = "" Then
MsgBox "Sorry, You need to select Dealing Officer"
Exit Sub
End If
If ComboBox5.Value = "" Then
MsgBox "Sorry, You need to select The Disposal"
Exit Sub
End If
End Sub


Please help me if my program is worng

 

[jsotola]

looks like it should work

it does exit on the first fail though

for example, if you wish to test the third check then you have to pass the first two

put a stop command at begining

the code will pause during execution

use F8 to step through code

pointing mouse cursor at variables (no click required) causes their value to be displayed

Private Sub datavalidation()


     Stop


     If Not IsNumeric(TextBox3.Value) Then

 

[MARK858]

Try syntax like below and see if it helps

If Len(TextBox1.Text) = 0 Then
     MsgBox "Sorry, you need to provide an Amount"""
     Else: MsgBox "YIPPEE"
Exit Sub

 

[nirmalachr]

Hi Mark,

I used the syntax which you gave it is working but sheet is updating with other values.

Can u help me out from this.

 

[MARK858]

Are you saying that if you type AAA in TextBox1 and with a command button that has the code below you don't get AAA in A1????

Private Sub CommandButton1_Click()
    If Len(TextBox1.Text) = 0 Then
        MsgBox "Sorry, you need to provide an Amount"""
    Else
        Range("A1") = TextBox1.Text
    End If
End Sub