input box help

[Chavira55]

my workbook works fine, until someone decides to skip answering the nessesary questions off of the boxes,HOW Can I put a critical box if they enter a wrong value or if no data is entered? this is what I have
Sub GetDate()
Dim Message As String, Title As String
Dim Default As String, Myvalue As String

Message = "Please enter next Schedule Date (EXAMPLE xx/xx/xx)"

' Set prompt.
Title = "Date input"
' Set title.
Default = "Enter Date Here!"
' Set default.
' Display message, title, and default value.
Myvalue = InputBox(Message, Title, Default)

Range("D3").Select
ActiveSheet.Unprotect
ThisWorkbook.Sheets("SCHEDULE").Range("D3").Value = Myvalue
Range("D3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("M7").Select
End Sub
any help is apreciated

 

[Legacy 98055]

Hi
I edited your procedure to check for a valid date. If an invalid date was entered, a messagebox will notify the user of their error and show the input box until they get it right...
<pre>
Sub GetDate()
Dim Message As String, Title As String
Dim Default As String, Myvalue As String

ShowDialog:

Message = "Please enter next Schedule Date (EXAMPLE xx/xx/xx)"

' Set prompt.
Title = "Date input"
' Set title.
Default = "Enter Date Here!"
' Set default.
' Display message, title, and default value.
Myvalue = InputBox(Message, Title, Default)

If Not IsDate(Myvalue) Then
MsgBox "You entered an invalid date." & Chr(13) & _
"Please re-enter a date.", vbSystemModal, "Error Entry"
GoTo ShowDialog
End If

Range("D3").Select
ActiveSheet.Unprotect
ThisWorkbook.Sheets("SCHEDULE").Range("D3").Value = Myvalue
Range("D3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("M7").Select
End Sub

</pre>
Tom

 

[Chavira55]

Thank you very, very much!!