InputBox and vbOKCancel Help

[frotaru]

I want to use the vbOKCancel with the inputbox. Is it possible ??

Something like when InputBox prompts …. if I chose Cancel then Exit Sub
In the current code the Cancel button won’t do anything

Thank u all

If Cells.Find(What:="11 - 11", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True) Is Nothing Then
    D11ans = ""
    Else
    D11ans = " 11"
    End If
    

If D11ans <> "" Then
    D_Ans_Option = InputBox("Differences found for the following type of doc:" & D11ans)
    End If
    If D_Ans_Option = "" Then
    Do
    D_Ans_Option = InputBox(" Please make one of the following selection : " & D11ans)
    Loop While D_Ans_Option = ""
    End If

 

[Andrew Poulsom]

Try a msgBox. Example:

Sub Test()
    Ans = MsgBox("Differences found", vbOKCancel)
    If Ans = vbCancel Then
        Exit Sub
    Else
        MsgBox "OK pressed"
    End If
End Sub

 

[frotaru]

Good idea .. I will first start with an MsgBox..
Thank U for u’re help..

One more question is it possible to use vbOKCancel same as with MsgBox ??

Something like InputBox("Differences found for the following type of doc:" & D11ans, VbOKCancel) ????

Thank U again

 

[Andrew Poulsom]

Like this?

Sub Test()
    Ans = InputBox("Differences found")
    If Ans = "" Then
        MsgBox "Cancel pressed or nothing entered      "
        Exit Sub
    Else
        MsgBox "Something entered and OK pressed"
    End If
End Sub

 

[frotaru]

in my code i use "Do" and "Loop While" .. and i think that this will remove the Cance button function ... When press nothing happens .. i tryed something like

    Do 
    D_Ans_Option = InputBox(" Please make one of the following selection : " & D11ans, VbOkCance) 
    Loop Until D_Ans_Option <> "" Or D_Ans_Option = vbCancel
    End If

but still not working ...

 

[Andrew Poulsom]

InputBox doesn't have a Buttons argument like MsgBox does. It has OK and Cancel buttons by default. If the user clicks OK or presses Enter , the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string (""). Of course it will also return "" if there is nothing in the text box when the user clicks OK.

What is the prupose of your Do loop?

 

[frotaru]

To validate the data value entered ... So it will loop until .. it will be one from a list.For example the list is (11, 12, 21, 41 .... ) and value entered is 11 than ok else loop .. this works fine .. but won't let me cancel the action if i want to .. But i found a solution and now all works ok. Thank u verry much for u 're time and for helping me