VBA Inputs restricted to specific decimal ending values

[dannywinters]

Good evening,

I have something that I hope is a very simple piece of code, but I have had no success figuring it out. What I need to do is have an input box or even a user form that only accepts ".55" at the end of inputted numbers. It must also only accept positive numbers, and no letters. So an example would be "55.55" or "94.55". I am doing this as the data I am working with, all the values end in .55, so the user inputs must be consistent with that also. Thank you in advance.

[Paul_Hossler]

Maybe something like this




Option Explicit

Function GoodData(s As Variant) As Boolean


GoodData = False

If Not IsNumeric(s) Then Exit Function
If s <= 0 Then Exit Function
If Right(s, 3) <> ".55" Then Exit Function

GoodData = True
End Function

Sub test()
MsgBox GoodData("abcd")
MsgBox GoodData(-123)
MsgBox GoodData(11.99)
MsgBox GoodData(100.555)
MsgBox GoodData(100.55)
End Sub

[dannywinters]

Hi Paul,

The function seems to be working. How would I incorporate an input box that would then use the GoodData function to test if their inputted value was correct?

[Paul_Hossler]

Option Explicit


Function GoodData(s As Variant) As Boolean

GoodData = False

If Not IsNumeric(s) Then Exit Function
If s <= 0 Then Exit Function
If Right(s, 3) <> ".55" Then Exit Function

GoodData = True
End Function



Sub test2()
Dim v As Variant

v = Application.InputBox("Enter number > 0 ending in .55", "Input Number")
If GoodData(v) Then
MsgBox "I like it -- " & v
Else
MsgBox "I don't like it -- " & v
End If
End Sub

[dannywinters]

Thanks Paul! It works great. Marked as solved.