Este fórum está sendo desativado

[JCNeto]

Boa noite
Estava estudando a aula do Laennder do Curso VBA para iniciantes - Aula 7.
E escrevi o código, como o Laennder fez na aula....

Sub Select_2()
Dim Qtde As Variant
Dim Desconto As Double

Qtde = InputBox("Qual é a quantidade que deseja comprar?")

Select Case Qtde
Case Is = "": Exit Sub
Case Not IsNumeric(Qtde): Exit Sub
Case 0 to 25: Desconto = 0.1
.
.
.

End Select
End Sub

Mas quando digito uma palavra (ou qualquer letra), acredito que deveria sair da macro (Exit Sub), mas isto não está acontecendo.

Alguém, poderia, por favor, me ajudar com este assunto?


Muito Obrigado


JC Neto

[laennder]

Estava assim na aula? vou dar uma olhada rsrsrs

Tem um erro de lógica aí: tenta a estrutura assim:

Código: Selecionar todos

Case IIf(Not IsNumeric(Qtde), Qtde, Null)