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
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
