David pergunta:
Oi, eu tenho que criar um projeto e estou preso em um pouco que é criar uma macro para permitir que o usuário insira um número, mas o problema que estou enfrentando é definir uma validação que aceitaria apenas números entre 1-10. Tentei definir uma validação nas células específicas, mas o problema com a caixa de entrada é que, mesmo que a célula fosse configurada para aceitar apenas um número, ela aceitaria qualquer coisa. Você pode ajudar, porque eu realmente não posso continuar com meu projeto até que isso seja feito.
Esta macro continuará a pedir ao usuário um número entre 1 e 10 ou irá parar se ele / ela cancelar.
Sub Test() Dim MyAns As Variant Ask: MyAns = Application.InputBox("Enter a number between 1 and 10", Type:=1) If MyAns = False Then Exit Sub If MyAns 10 Then GoTo Ask: MsgBox MyAns, vbInformation, "Good Number" End Sub
