auto.pilot
Well-known Member
- Joined
- Sep 27, 2007
- Messages
- 734
- Office Version
- 365
- Platform
- Windows
My userform has a textbox input for the date and 10 different criteria. Everything is working fine, except I'd like to have some error handling.
The input for TextDateInput should be limited to only a date, using format mm/dd or mm/dd/yyyy. I'd also like to have a checking feature so that users can't input a date that has already been used. My dates are on a sheet called 'ClinicalTracker' in column A.
How can I do this?
Here's what I have so far....
The input for TextDateInput should be limited to only a date, using format mm/dd or mm/dd/yyyy. I'd also like to have a checking feature so that users can't input a date that has already been used. My dates are on a sheet called 'ClinicalTracker' in column A.
How can I do this?
Here's what I have so far....
VBA Code:
Private Sub ButtonSave_Click()
Dim L_Row As Long
L_Row = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Range("A" & L_Row).Value = TextDateInput.Value
Range("B" & L_Row).Value = TxtScreening.Value
Range("C" & L_Row).Value = TxtAssessDiag.Value
Range("D" & L_Row).Value = TextTreatment.Value
Range("E" & L_Row).Value = TextReportsNotesBilling.Value
Range("F" & L_Row).Value = TextFamClientConsultation.Value
Range("G" & L_Row).Value = TextFamClientCounseling.Value
Range("H" & L_Row).Value = TextIEPOther.Value
Range("I" & L_Row).Value = TextInServ.Value
Range("J" & L_Row).Value = TextTraining.Value
Range("K" & L_Row).Value = TextPresentations.Value
End Sub