Resolve date entry issue from TextBoxes into ws

[underpressure]

TextBoxes 1, 2, 3 are intended for date of birth entry into a ws.

The ws is formatted as Date mm/dd/yy

ws.Cells(iRow, 4).Value = Me.TextBox1.Value & Me.TextBox2.Value & Me.TextBox3.Value

TextBox entries = 05 12 52
Ws formula bar = 04/26/2040

I can’t figure out a workaround for this issue.

 

[dmt32]

Hi,
try

'TextBox3 = Year
'TextBox1 = Month
'TextBox2 = Day

ws.Cells(iRow, 4).Value = DateSerial(Me.TextBox3.Value, Me.TextBox1.Value, Me.TextBox2.Value)

Note: DateSerial is Entered Year Month Day.


Dave

 

[underpressure]

Dave, thanks for the suggestion.
But, that creates different issues.
I suppose I'll need to rethink the data entry and revise my project.
Appreciate you helping...several times now! I'll drink a beer in your honor.

 

[underpressure]

OK, I fixed it with this:

If TextBox11.Value = "" Then
    ws.Cells(iRow, 11).Value = ""
    Else
    ws.Cells(iRow, 11).Value = Me.TextBox11.Value & "/" & Me.TextBox12.Value & "/" & TextBox13.Value
End If

This fits everything in the project except when I’m calling for another UserForm to be populated from the worksheet.

I can’t figure out the correct nomenclature for:
UserFormUpdate.TextBox11, 12, and 13 need to translate the date from Cells.(iRow, 11)

iRow 11 = date - i.e. 09/25/76

so that Textbox11.value = 09
Textbox12.value = 25, and
Textbox13.value = 76

I’ve tried some Left, Mid, and Right statements but without success.

 

[Fluff]

Have a look at the Day, Month & Year functions

 

[underpressure]

Thanks, Fluff...

Can Const currDate = a worksheet cell?
For example, this doesn’t work:
Const currDate = "ws.Cells(iRow, 11).Value"

 

[Fluff]

Not that I'm aware of.