Day of week in an excel form

[mecerrato]

I have an excel form that I enter a date and after tabbing to the next field I would like a label to show the day of the week. I am able to create a label to the right of the date field but cannot figure out where or how to put the LabelClosingDay = Weekday(TextBoxClosingDate) so that it calculates the day after tabbing from the date field.

 

[My Aswer Is This]

Assuming the Textbox you're entering the date in is
TextBox1 and the label is Label2 try this.
Modify Textbox and label names to meet your needs.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo M
Label2.Caption = Weekday(TextBox2.Value)
Exit Sub
M:
MsgBox "You entered " & TextBox2.Value & vbNewLine & "That is not a proper Date"
End Sub

 

[mecerrato]

Assuming the Textbox you're entering the date in is
TextBox1 and the label is Label2 try this.
Modify Textbox and label names to meet your needs.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo M
Label2.Caption = Weekday(TextBox2.Value)
Exit Sub
M:
MsgBox "You entered " & TextBox2.Value & vbNewLine & "That is not a proper Date"
End Sub

This kinda works, but it is giving me a number rather than a day like Monday or Tuesday
Here is the code with the correct txtbox and label names

Private Sub TextBoxClosingDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo M
LabelClosingDay.Caption = Weekday(TextBoxClosingDate.Value)
Exit Sub
M:
MsgBox "You entered " & TextBoxClosingDate.Value & vbNewLine & "That is not a proper Date"
End Sub

 

[My Aswer Is This]

Glad to see you have it working for you.
Yes, I was not sure if you want 3 or Tuesday.

It's always good to see how users can see how the scripts work and can modify them to their needs.

I also added the part about On Error
That is so if someone enters something that is not a proper date you will get a popup message and not have the script lockup.

 

[mecerrato]

Glad to see you have it working for you.
Yes, I was not sure if you want 3 or Tuesday.

It's always good to see how users can see how the scripts work and can modify them to their needs.

I also added the part about On Error
That is so if someone enters something that is not a proper date you will get a popup message and not have the script lockup.

Thanks but can you tell me how I can make it show the day and not the number?

 

[My Aswer Is This]

Thanks but can you tell me how I can make it show the day and not the number?

OK I will get back with you.
do you want like Monday or Mon.

 

[mecerrato]

OK I will get back with you.
do you want like Monday or Mon.

Monday, Tuesday, Wednesday, etc ... is good, thank you so much

 

[My Aswer Is This]

Try this modify names of controls:

I now have dddd Which means like Wednesday.
If you want like Wed
change to dd if you want Wed

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo M
Label2.Caption = Format(TextBox2.Value, "dddd")

Exit Sub
M:
MsgBox "You entered " & TextBox2.Value & vbNewLine & "That is not a proper Date"
End Sub

 

[mecerrato]

Try this modify names of controls:

I now have dddd Which means like Wednesday.
If you want like Wed
change to dd if you want Wed

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo M
Label2.Caption = Format(TextBox2.Value, "dddd")

Exit Sub
M:
MsgBox "You entered " & TextBox2.Value & vbNewLine & "That is not a proper Date"
End Sub

Thank you very much!
on a side note, do you have a resource for adding an easy date picker to this form. It seems like allt he date pickers I have googled require a lot of coding

 

[My Aswer Is This]

Thank you very much!
on a side note, do you have a resource for adding an easy date picker to this form. It seems like allt he date pickers I have googled require a lot of coding

From what I've learned your version of Excel is a part of Office 365. And that version of Excel does not support Date Picker
My version also does not support Date Picker