If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Userform Date entry issues

Thread starter RasGhul
Start date Oct 30, 2017
Tags

cdate date function ssheet ssheet.cellsnr

RasGhul

Well-known Member

Oct 30, 2017

Hi Team,

I've been using the following code faithfully on many sheets, but now I'm getting a runtime error on the cdate function as I want the "me.tbdate" textbox to format as a proper date dd/mm/yyyy. for some reason without cdate a standard textbox outputs dates as mmddyy by default.

How can I make the date function work more consistently please?

Code:

Dim ssheet As Worksheet

        Set ssheet = ThisWorkbook.Sheets("Sheet2")


        nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1


'add line entry
        ssheet.Cells(nr, 1) = CDate(Me.tbDate)
        ssheet.Cells(nr, 2) = Me.ComboBox1.Value
        ssheet.Cells(nr, 3) = Me.TextBox1.Value
        ssheet.Cells(nr, 4) = Me.TextBox2.Value

Last edited: Oct 30, 2017