Input Box not working properly

[lionelnz]

I want activate an input box (using VBOkCancel) if there is a zero or null value in a cell.

If per chance the user does not enter a number using the input box I want the the sub to select the cell and then exit the sub.

My problem is that the input box is not coming up empty. It has the value 1 in it which is interfering with the purpose of the sub. Here is the sub (BTW rFall is dimmed as integer) -

If Range("B21").Value = "" Then
            rFall = Application.InputBox("Enter rainfall in mls", "Rainfall", vbOKCancel, 1)
                If rFall = "" Then
                Range("B21").Select
                Exit Sub
                Else
                End If
       Else
           
       End If

 

[jsotola]

you had the vbOKCancel in the "default" parameter ..... vbOKCancel = 1

tip: click between the ( and the " in the inputbox line to place the text cursor there
then press the spacebar

you should see the command help tooltip pop up describing the parameter that you are entering

then use the right arrow key to move the cursor, and watch the tooltip

one of the parameters is [default]

Sub aa()

    If Range("B21").Value = "" Then
        rFall = Application.InputBox("Enter rainfall in mls", "Rainfall", "", , , , , vbOKCancel)
        If rFall = "" Then
            Range("B21").Select
            Exit Sub
        End If
    End If


End Sub

 

[lionelnz]

Thanks for this it works fine. The only problem I had was the line

If rFall = "" Then

I had to change it to
If rFall = 0 Then because of dimming rFall as Integer

Lionel
Go the Wallabies & Kangaroos!!!!!!</pre>