Need VBA input box for date and if not msgbox requiring date

[Caveman1964]

I tried this but doesn't work.
it will say, not a data even when putting in a date and doesn't clear what they put in text box form. It is a user form.
If they put nothing, i have a user form comes up for that but can't figure out this date thing. They have to enter a date.
Any help would be much appreciated

Private Sub entcomprecdatebutton_Click()
Sheets("Do Not Alter").Unprotect "1"
Sheets("Data Collection").Unprotect "1"
Sheets("Complaint Entry").Unprotect "1"


Sheets("Complaint Entry").Select
Range("E6").Select
If entcompdatetextbox.Value = "" Then
missingcompnum.Show
Exit Sub
End If


If IsDate(mbox) Then
dte = CDate(mbox)
Range("E6") = dte
Else: msgbox "This isn't a date, try again."


End If


ActiveCell = entcompdatetextbox.Value
Unload Me
entdatecrmform.Show


End Sub

 

[TheRobRush]

I am not 100% sure what you are asking but here is the code for my userform date that requires entry before going forward

Private Sub CommandButton1_Click()

' Created by Rob Rush 2018
Application.ScreenUpdating = False

' Checks that a valid date has been entered

If IsDate(Trim(TextBox1.Text)) = False Then
MsgBox "Please enter the correct date"
Else
' Changes Date format to one use by board
TextBox1.Text = Format(TextBox1.Text, "mm/dd/yyyy")

' Shows all sheets and selects Board Creator. Also puts date in place
Worksheets("BOARD GENERATOR").Visible = True
Worksheets("CONTROL PANEL").Visible = True
Worksheets("Ticket Leads").Visible = True
Worksheets("Admissions Leads").Visible = True
Worksheets("UBO Leads").Visible = True
Worksheets("Booth 1").Visible = True
Worksheets("Booth 2").Visible = True
Worksheets("Booth 3").Visible = True
Worksheets("Booth 4").Visible = True
Worksheets("Will Call").Visible = True
Worksheets("Admissions Hosts").Visible = True
Worksheets("UBO Associates").Visible = True
Worksheets("Ambassadors").Visible = True
Worksheets("EET").Visible = True
Worksheets("Strollers").Visible = True
Worksheets("Dispatchers").Visible = True
Worksheets("Ambassador Leads").Visible = True
Worksheets("Tickets").Visible = True
Worksheets("UBO").Visible = True
Worksheets("Plaza").Visible = True
Worksheets("Dispatch").Visible = True
Worksheets("Rentals").Visible = True


Sheets("BOARD GENERATOR").Select
Range("D8").Select
Range("D8").Value = TextBox1.Value
UserForm3.Hide
Application.ScreenUpdating = True
End If


End Sub

 

[Caveman1964]

Thank You!.....I will try that in just a bit...this looks like it will work for me. Will let you know.

 

[Caveman1964]

it did bring the message box up if there was not date and was just text....but when i clicked ok on the message, it still put the values in the cell and moved on to next form.
I'll keep trying something.....thank you for spending the time to send to me!

 

[Akuini]

I tried this but doesn't work.
it will say, not a data even when putting in a date and doesn't clear what they put in text box form. It is a user form.
If they put nothing, i have a user form comes up for that but can't figure out this date thing. They have to enter a date.
Any help would be much appreciated

Maybe something like this:

Private Sub CommandButton1_Click()

If IsDate(TextBox1) Then
    ActiveCell = CDate(TextBox1)
Else
    MsgBox "You must insert date"
    TextBox1.SetFocus
    TextBox1 = ""
End If
End Sub