none
INPUTBOX COM RESTRIÇÃO DE DADOS RRS feed

  • Pergunta

  • 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

  • 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