vba if blank do nothing

[uk747]

tried

If IsEmpty(Textbox1) Then
 Else
 If Textbox1.Value > 0 Then
MsgBox "****"

the message box also appears when textbox 1 is blank or i delete a value from it.

also tried

If TextBox1.Value = "" Then
Else
 If TextBox1.Value > 0 Then
MsgBox "*** "
 
 End If
 End If

All i need it when the textbox has a value greater than 0 the message appears and if it isnt greater than 0 or is blank then nothing

 

[JaccoVis90]

Did you tried the otherway around?

If TextBox1.Value > 0 then
Msgbox "***"
End if

 

[uk747]

yup

Private Sub TextBox1_Change()
If TextBox1.Value > 0 Then
MsgBox "***"
End If
        
End Sub

still same when i delete the value i get message ***

 

[JaccoVis90]

Private Sub CommandButton1_Click()

If TextBox1.Value > 0 Then
 If TextBox1 = Empty Then
 Else
 MsgBox "***"
End If

 End If
        
End Sub

 

[uk747]

thanks I got same when I tried code below, only issue I have is when they enter a character/letter the message appears. It should only appear if a value greater than 0 i.e. 1, 2 3,4 etc and not a b or c

If TextBox1.Value = "" Then
    Exit Sub
    
    Else
If TextBox1.Value > 0 Then
MsgBox "***"
    End If
    End If

 

[JaccoVis90]

I think you should specify the allow numics

I googled this

Private Sub TextBox1_Change() 

    OnlyNumbers 

End Sub

 

[uk747]

I think you should specify the allow numics

I googled this

Private Sub TextBox1_Change() 

    OnlyNumbers 

End Sub

thanks you also need to add code below TextBox for Numbers Only. Validating UserForm TextBox to Accept Only Numbers

[B]Private Sub OnlyNumbers()[/B]



    If TypeName(Me.ActiveControl) = "TextBox" Then

        With Me.ActiveControl

            If Not IsNumeric(.Value) And .Value <> vbNullString Then

                MsgBox "Sorry, only numbers allowed"

                .Value = vbNullString

            End If

        End With

    End If

    

[B]End Sub[/B]