Como evitar erro quando apertar o cancelar no Inputbox

Question

Bom dia pessoal.

Gostaria que alguem ajudasse a **** solucao para evitar dar erro quando apertar o botao cancelar no Inputbox. Pensei em usar o On Error GoTo , mas acho que esse comando podera captar outros erros do progama.O que desejo e que se escolher o cancelar saia do programa.

Desde ja agradeco

Tadao

Answer 1

Olá Tadao!

Tenho uma dica para esta situação. Se você utilizar o comando Inputbox, o código não fará distinção entre o pressionar OK com o campo vazio e pressionar o botão Cancelar, pois em ambas situações será retornado o valor vazio (""). A dica é utilizar o comando Application.Inputbox que faz  a distinção entre estes dois cenários, sendo que para o Enter com campo vazio é retornado o valor vazio ("") e para o botão cancelar é retornado FALSE. Com esta situação, você pode trabalhar a lógica para adequar à sua necessidade. Veja um exemplo:

Sub Teste_Inputbox()

Dim Teste As Variant

showInputBox:

Teste = Application.InputBox("Digite:")

If Teste = False Then

MsgBox ("Operação cancelada!")

End

Else

If Teste = vbNullString Then

MsgBox ("Campo Vazio. É necessário digitar um valor!")

GoTo showInputBox

End If

End If

MsgBox "Valor digitado: " & Teste

End Sub

Answer 2

Bom Dia Rafael.

Em primeiro lugar,Obrigado pelo retorno da questao.

O codigo que voce enviou  ficou como imaginado, fiz algumas modificacoes para meu uso e fico perfeito

Tadao

Obs.: 

Como a Variavel Variant retorna String na variavel Teste, quando for trabalhar com Numeros e necessario Transformar a String em Numeros com o codigo VAL(String Numerico), senao vai dar probelamas na rotima. Outra forma e Somar 0 na String para Transformar em Numero.