Buen dia estimados. Tengo el siguiente código el cual funciona a la perfección:

Sub Ejemplo_27()

Dim Flow As Single
Dim Pressure As Single

Flow = Val(InputBox("Enter Flow (GPM) in 5 multiples", "PDWS"))
Pressure = Val(InputBox("Enter Pressure (PSI) in 5 multiples", "PDWS"))

With ActiveSheet
Range("F4").Value = Flow
Range("J4").Value = Pressure
End With

Call resetbotonesdeopcion

If Range("L7").Value = 1 Then
MsgBox "Station not found." & vbNewLine & "The design of a new station is needed", vbCritical, "PDWS"

End If

End Sub

LO que quisiera es la forma de indicarle al usuario cuando no introduce un multiplo de 5 y obligarlo a hacerlo nuevamente de manera correcta. Gracias. Carlos B.

1 respuesta

Respuesta
1

Prueba este código y me cuentas

Sub Ejemplo_27()

Dim Flow As Single
Dim Pressure As Single

Flag = 1

Do While (Flag <> 0)
Flow = Val(InputBox("Enter Flow (GPM) in 5 multiples", "PDWS"))
Flag = Flow Mod 5
Loop

Flag = 1

Do While (Flag <> 0)
Pressure = Val(InputBox("Enter Pressure (PSI) in 5 multiples", "PDWS"))
Flag = Pressure Mod 5
Loop

With ActiveSheet
Range("F4").Value = Flow
Range("J4").Value = Pressure
End With

'Call resetbotonesdeopcion

If Range("L7").Value = 1 Then
MsgBox "Station not found." & vbNewLine & "The design of a new station is needed", vbCritical, "PDWS"

End If

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas