Notifications
Clear all

imputbox

9 Posts
3 Usuários
0 Reactions
2,250 Visualizações
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite
estou com dificuldade com uma programação de uma imputbox,
Quando eu abrir uma planilha vou inserir um valor que vai de 1 a 8 em uma imputbox, quando o valor for diferente disso ou em branco, aparecerá uma mensagem orientado o usuário a digitar o valor pedido, que é de 1 a 8, quando o usuário optar por clicar no botão cancelar a aplicação será fechada automaticamente, estou postando parte da programação para melhores entendimentos.
obrigado
att mais

Private Sub Workbook_Open()

Dim BOX As String

BOX = Application.InputBox(prompt:=" INSIRA O NUMERO DO BOX ", Title:="NUMERO BOX")

If IsNumeric(BOX) = False Then

Application.Quit

Else
If BOX = "" Then

'Or IsNumeric(BOX) = False

MsgBox "DIGITE O NUMERO BOX VÁLIDO "
'Exit Sub

Load BOX = Application.InputBox(prompt:=" INSIRA O NUMERO DO BOX ", Title:="NUMERO BOX")
Else

If BOX < 1 Or BOX > 8 Then

Worksheets("ETIQ_C").Select
Range("E35") = BOX

' If BOX > 8 And BOX < 1 Then

' MsgBox " DIGITE UM NUMERO DE BOX VÁLIDO "
End If
End If

End If

 
Postado : 06/10/2013 8:03 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

humberto,

E dai...???

Você descreveu a situação, entretanto não disse qual é o problema! O que está acontecendo? Qual é o problema? qual é a ajuda que você precisa?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/10/2013 8:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei se entendi corretamente a demanda, mas veja na estrutura abaixo se vai em linha como o esperado

Private Sub Workbook_Open()

Dim BOX As String, nVer As Variant
    'Load BOX = Application.InputBox(prompt:=" INSIRA O NUMERO DO BOX ", Title:="NUMERO BOX")
aqui:
BOX = Application.InputBox(prompt:=" INSIRA O NUMERO DO BOX ", Title:="NUMERO BOX")

nVer = BOX

If nVer = False Then
    Exit Sub
ElseIf BOX <> "" And Not IsNumeric(BOX) Or BOX = "" Then
    MsgBox "Box não pode ser Texto ou nulo"
    GoTo aqui
ElseIf BOX < 1 Or BOX > 8 Then
    MsgBox "DIGITE O NUMERO BOX VÁLIDO "
    GoTo aqui
Else
    MsgBox "Numero Valido"
End If

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/10/2013 9:05 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Estou postando um modelo do arquivo,
Lembrando......
quando o valor digitado na imputbox for menor que 1 e maior que 8 , aparecerá uma msgbox solicitando que digite um valor menor que 8 e maior que zero, quando o usuário deixar em branco aparecerá uma msgbox solicitando que ele digite o numero nas condições acima, e quando o usuário clicar em cancelar, fechará a planilha sem Salvar.
Os numeros de box vão de 1 até 8, então, quando o numero for diferente de 1 Até 8 , aparecera as msgbox solicitando um numero de box válido.

Obrigado

boa noite

att mais

 
Postado : 07/10/2013 8:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo menos testou o código que mandei? O que não está ok com essa versão?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/10/2013 5:30 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Obrigado pelo que vc me enviou, mais não deu certo, eu enviei o arquivo para ver se ficava melhor para vçs me ajudarem.

Boa noite

att mais

 
Postado : 08/10/2013 8:12 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

humberto,

Boa Noite!

O código do Reinaldo está certíssimo. Se a questão era apenas inserir no seu arquivo, fiz isso com pequenas adaptações. Segue o arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/10/2013 8:45 pm
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

muito obrigado pelo retorno, mais ainda estou tendo problemas quando eu quero cancelar, quando clico em cancelar, a aplicação fica em um loop até que eu digite um valor de 1 a 8, e só consigo fechar o programa quando digito o numero e depois fecho a aplicação, queria saber se tem um modo de fechar a aplicação sem salvar quando clicasse em cancelar, o arquivo vai ficar como somente leitura.

Boa noite
att mais

 
Postado : 09/10/2013 8:58 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok.
Segue novamente.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 10/10/2013 9:22 am