Caveman1964
Board Regular
- Joined
- Dec 14, 2017
- Messages
- 121
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
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