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