Userform textbox date input

[ipbr21054]

Hi,

I would like that when i open the userform the dat would automatically be shown in textbox 1

I thought the below code was correct but upon opening the form textbox 1 is still empty.

ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 1).Value = TextBox1.Text = Format(Now(), "MM/DD/YY")

 

[kvngrn]

Hi,

On the code that will show the userform try
'Load your Userform
Load frm

frmManagerTool.txtPriorite.Value = 1

 

[kvngrn]

'Load your form
Load frmManagerTool

'Set the default value
frmUserform.txtInputBox.Value = Today()

user the names of your form and inputbox

 

[ipbr21054]

If like this then i see not defined message

Private Sub CommandButton1_Click()UserForm1.Show.txtInputBox1.Value = Today()


End Sub

 

[ipbr21054]

This works on the userform main sheet.

Private Sub UserForm_Initialize()TextBox1.Value = Now
TextBox1 = Format(TextBox1.Value, "dd/mm/yyyy")
End Sub

 

[kvngrn]

here is some code I'm using to setup the default value of 2 text box as 1 when the userform is loaded.

Sub Show_UserForm()


Load frmManagerTool

frmManagerTool.txtPriorite.Value = 1
frmManagerTool.txtQuantite.Value = 1

frmManagerTool.Show




End Sub

then update with the name of your userform (mine is frmMAnagerTool ) and textbox (mine is txtPriority and Quantity)

 

[ipbr21054]

Can you advise on the code that i am using.

My form was called UserForm & the code that was in use is shown below,this entered the dat in TextBox 1 no problem.

Private Sub UserForm1_Initialize()TextBox1.Value = Now
TextBox1 = Format(TextBox1.Value, "dd/mm/yyyy")
TextBox2.SetFocus

End Sub

I have now changed the name of the form to Postage Transfer Form.
So i then edited the code to reflex in this as shown below.

Private Sub PostageTransferSheet_Initialize()TextBox1.Value = Now
TextBox1 = Format(TextBox1.Value, "dd/mm/yyyy")
TextBox2.SetFocus


End Sub

When the form is now open there is no date shown in Text Box 1 ?

 

[kvngrn]

try with that code:
Private Sub PostageTransferSheet_Initialize()

Me.TextBox1.Value = Format(Now,"DD/MM/YYYY")

End Sub

works for me.

 

[ipbr21054]

Not for me
If i change it back to UserForm1 it works ???

 

[kvngrn]

On vb Editor double click on the display of the userform

on the top left corner in vb editor choose from the dropdown list Userform and then form the top left corner choose Initialized.

the name might be " Private SUb Userform_Initialized

then try the code above. You have to make sure to use the name setup in the userform you can see them in the properties tab