InputBox en Aplicacion para Excel
Buenas, espero me puedas ayudar, y gracias de antemano.
Estoy creando una pequeña aplicación para unas maquinas con las que trabajo, las cuales tienen referencias de artículos, stock, mínimos, etc.., el problema es que para buscar los stocks que están por debajo de los mínimos, utilizo un Inputbox, para introducir el valor el cual quiero comparar, con los stocks, y el que este por encima, elimino la fila entera.
Mi problema es que al introducir la variable la guardo en una LONG, y entonces en el caso de que en el INPUTBOX, no quiera introducir nada, y le de a cancelar, me da un error de que los tipos no son correctos, porque me devuelve un "Falso", pero al ser una LONG, ¿sabes cómo puedo resolverlo? Muchas gracias.
Estoy creando una pequeña aplicación para unas maquinas con las que trabajo, las cuales tienen referencias de artículos, stock, mínimos, etc.., el problema es que para buscar los stocks que están por debajo de los mínimos, utilizo un Inputbox, para introducir el valor el cual quiero comparar, con los stocks, y el que este por encima, elimino la fila entera.
Mi problema es que al introducir la variable la guardo en una LONG, y entonces en el caso de que en el INPUTBOX, no quiera introducir nada, y le de a cancelar, me da un error de que los tipos no son correctos, porque me devuelve un "Falso", pero al ser una LONG, ¿sabes cómo puedo resolverlo? Muchas gracias.
1 Respuesta
Respuesta de denciso
Intenta validando con el val de tu variable MÍNIMO para ver si puede detectar el valor de cero.
Me olvide de indicarte el código por si te sirve de ayuda.
Sub MINIMO()
'Nos elimina todos los registros que están por encima del Minimo Estipulado
Dim MINIMO As Long
MINIMO = InputBox("Introducir el MINIMO para propuesta de pedido:" & vbCrLf & _
"Se listarán los artículos que sean inferior al MINIMO", "MP100D")
'MINIMO = 20
'If MINIMO = "" Then MsgBox "No se ha introducido ningún MINIMO"
If MINIMO = 0 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO > 500000 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO < 0 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO > 0 Then
Range("H4").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > MINIMO Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Wend
End If
End Sub
Sub MINIMO()
'Nos elimina todos los registros que están por encima del Minimo Estipulado
Dim MINIMO As Long
MINIMO = InputBox("Introducir el MINIMO para propuesta de pedido:" & vbCrLf & _
"Se listarán los artículos que sean inferior al MINIMO", "MP100D")
'MINIMO = 20
'If MINIMO = "" Then MsgBox "No se ha introducido ningún MINIMO"
If MINIMO = 0 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO > 500000 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO < 0 Then MsgBox "No se ha introducido ningun MINIMO"
If MINIMO > 0 Then
Range("H4").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > MINIMO Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Wend
End If
End Sub
Ya lo había solucionado, de la siguiente manera:
Dim MINIMO2 As String
Dim MINIMO As Long
MINIMO2 = InputBox("Introducir el MINIMO para propuesta de pedido:" & vbCrLf & _
"Se listarán los artículos que sean inferior al MÍNIMO INTRODUCIDO", "LISTA PROPUESTA DE PEDIDOS")
If MINIMO2 = "" Then MsgBox "No se ha introducido MINIMO"
If MINIMO2 <> "" Then MINIMO = MINIMO2
'MINIMO = 20
'If MINIMO = "" Then MsgBox "No se ha introducido ningún MINIMO"
If MINIMO < 0 Then MsgBox "El valor del MINIMO no puede ser negativo"
If MINIMO > 500000 Then MsgBox "El valor del MINIMO es demasiado grande"
If MINIMO > 0 Then
Muchas gracias igualmente.
Dim MINIMO2 As String
Dim MINIMO As Long
MINIMO2 = InputBox("Introducir el MINIMO para propuesta de pedido:" & vbCrLf & _
"Se listarán los artículos que sean inferior al MÍNIMO INTRODUCIDO", "LISTA PROPUESTA DE PEDIDOS")
If MINIMO2 = "" Then MsgBox "No se ha introducido MINIMO"
If MINIMO2 <> "" Then MINIMO = MINIMO2
'MINIMO = 20
'If MINIMO = "" Then MsgBox "No se ha introducido ningún MINIMO"
If MINIMO < 0 Then MsgBox "El valor del MINIMO no puede ser negativo"
If MINIMO > 500000 Then MsgBox "El valor del MINIMO es demasiado grande"
If MINIMO > 0 Then
Muchas gracias igualmente.
