Input box Data entered need code to state you’ve entered Wrong data try again

[estatefinds]

Sub Rectangle25_Click()
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg As String
IntervalType = "m" ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date for Example: 03/05/2023")
Number = InputBox("Enter number of months to add for Example: -1 -2 -3 for how many months prior to the date entered, and 1 2 3 for how many months forward")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
End Sub

[Paul_Hossler]

I'd add more checks, like making sure the year in in the right range (2022 - 2030 for ex) and that the number of months is reasonable



Option Explicit


Sub Rectangle25_Click()
Dim FirstDate As Variant ' <<<<<<<<<<<<<<<<<
Dim IntervalType As String
Dim Number As Variant ' <<<<<<<<<<<<<<<<<<
Dim Msg As String


IntervalType = "m" ' "m" specifies months as interval.


FirstDate = InputBox("Enter a date for Example: 03/05/2023")

Do While Not IsDate(FirstDate)
MsgBox "Try again"
FirstDate = InputBox("Enter a date for Example: 03/05/2023")
Loop

Number = InputBox("Enter number of months to add for Example: -1 -2 -3 for how many months prior to the date entered, and 1 2 3 for how many months forward")
Do While Not IsNumeric(Number)
MsgBox "Try again"
Number = InputBox("Enter number of months to add for Example: -1 -2 -3 for how many months prior to the date entered, and 1 2 3 for how many months forward")
Loop

Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)


MsgBox Msg
End Sub

[estatefinds]

Thank you!:yes

[Aussiebear]

If the issue has been solved, would you kindly mark it as so by using the Thread Tools options please?

[estatefinds]

Thank you!:yes