none
INPUTBOX COM RESTRIÇÃO DE DADOS RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    CONSIGO RESTRINGIR O QUE É DIGITADO NO INPUTBOX OU COLOCAR UM LISTA COM DUAS COLUNAS PRÉ DEFINA EX 

    100  

    110

    120 

    140 

    160 

    180 

    190 

    220 

    250 

    260 

    QUANDO ELE CLICAR QUE UMA DESSAS OPÇÕES VAI EXECUTAR O QUE JÁ TENHO PRONTO EX MANDAR UM EMAIL

    E CASO USUÁRIO CLICA EM CANCELAR  PORQUE NÃO QUER NENHUMA DAS OPÇÕES

    MSGBOX: QUER TENTAR NOVAMENTE?
    SIM : VOLTA PARA O INPUTBOX
    NÃO: FECHA E SALVA O ARQUIVO

    quarta-feira, 22 de novembro de 2017 20:28
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    Sub teste()


Dim valor As Integer
inicio:
valor = inputbox("Digite o valor")

Select Case valor

Case 100

Call procedimento
goto finalizacao
Case 110
Call procedimento

goto finalizacao
Case 120

Call procedimento
goto finalizacao
Case 140

Call procedimento
goto finalizacao
Case 160
Call procedimento
goto finalizacao

Case 180

Call procedimento
goto finalizacao
Case 190
Call procedimento

goto finalizacao
Case 220
Call procedimento

goto finalizacao
Case 250
Call procedimento

goto finalizacao
Case 260
Call procedimento
goto finalizacao

Case Else



msgbox("O valor não foi aceito.")
    goto fim

finalizacao:
Dim respota As VbMsgBoxResult

if MsgBox("Deseja tentar novamente?",vbYesNo)=vbYes then

Else
ThisWorkbook.Save
Application.Quit
End If

End Select

fim:

End Sub

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com





    • Editado AndersonFDiniz2 quarta-feira, 22 de novembro de 2017 22:45
    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 22 de novembro de 2017 22:45
    • Marcado como Resposta CS_RODRIGO quinta-feira, 23 de novembro de 2017 11:15
    quarta-feira, 22 de novembro de 2017 22:40
    |