User Forms and Date Formats

[Mustang]

Hi there,

I have two problems with some user forms i am trying to create.

Firstly the following code takes the entries from the data form into a
worksheet
ws.Cells(iRow, 2).Value = Me.txtstdt.Value
ws.Cells(iRow, 3).Value = Me.txtendt.Value

both txtstdt and txtendt are dates which are to be dd/mm/yy, however appear
on my worksheet as mm/dd/yy. Can anyone help me format them correctly? The
code appears to overwrite the cell formatting.

Secondly I have a job number layed out as 12-3456 which is entered into a
form and this code puts it into another worksheet

ws.Cells(iRow, 1).Value = Me.txtjobno.Value

My problem here is that it formats it as a date even though my worksheet
formattin is and should be set to general.

Any ideas very welcome!

Thanks

 

[Dave Peterson]

with ws.Cells(iRow, 2)
'just an unambiguous date for testing, change it when you're happy it's ok
.numberformat = "mmmm dd, yyyy"

'cdate() uses the windows setting (mdy order) for the user
'and that may not be what you (the developer) expects!
.Value = cdate(Me.txtstdt.Value)
end with

And I'd just format that other cell as text first.

with ws.Cells(iRow, 1)
.numberformat = "@"
.Value = Me.txtjobno.Value
end with

or start the entry with an apostrophe:
ws.Cells(iRow, 1).Value = "'" & Me.txtjobno.Value
so that it would be entered as text.

 

[Mustang]

Thank you for your response.

I have tried the following (my VB knowledge is minimal)...

ws.Cells(iRow, 2).Value = Me.txtstdt.Value
With ws.Cells(iRow, 2).NumberFormat = "mm,dd,yyyy"
End With
ws.Cells(iRow, 3).Value = Me.txtendt.Value
With ws.Cells(iRow, 3).NumberFormat = "mm,dd,yyyy"
End With
and it still does not work. I am not sure I have put the code in correctly.

Thanks

 

[Dave Peterson]

Try using the suggested code as written.

Just replace your existing single line with that group of 4.

Then it's almost the same for the second textbox.

 

[Mustang]

That is great, thanks very much for your help.

Try using the suggested code as written.

Just replace your existing single line with that group of 4.

Then it's almost the same for the second textbox.