Adding a default todays date to VB Excel Form

robert_harper_2000

I would like as the heading says lol add a default value of todays date

Private Sub txtdate_Change()

End Sub


I've tried =date()

What is it?

Mr_Frugal

Try....

=now()

and then format the cell to whichever date format you prefer.

HTH.

Mr_F.

robert_harper_2000

Thanks but it isn't that.... this is for the visual basic program form.

I think it needs something fancy nothing that something simple would do it lol

Cheers anyway

tomstickland

textbox.text=date(date_format) I guess. VB help not installed on my home machine so I'll have to check at work tomorrow.
Look in VB help.

Chippy_Minton

Private Sub UserForm_Initialize()
txtDate.Text = Date
End Sub

robert_harper_2000

Once again, you do it again!

lol Cheers guys... although another quick prob no big deal ...

My users need to click on the add button once (which enters all the info except the customer number) and twice for the customer number.

I want a one click does it all

That includes a clear function to show the user it has been entered in .. CHEERS :beer:

tomstickland

What add button methods are listed then?
ie: Add_Button_Click

Putting in break points by clicking on the left hand side of the code window can help you see whats happening.

Chippy_Minton

robert_harper_2000 wrote:

That includes a clear function to show the user it has been entered in

That was answered in your other thread.

Put

txtpet.text = ""
txtqty.text = ""

etc.

after the statements which transfer the textbox values.

robert_harper_2000

I tired adding it

Private Sub cmdAdd_click_Click()

'Declare variable intNext as an integar'
Dim intNext As Integer

'Set the value of intNext to be the number of rows in Dataset'
intNext = Range("Dataset").Rows.Count + 1

'Transfer the values in the form into the spreadsheet'
Range("A" & intNext) = txtNumber.Value
Range("B" & intNext) = txtpet.Value
Range("C" & intNext) = txtqty.Value
Range("D" & intNext) = txtprice.Value
Range("E" & intNext) = txtstaff.Value
Range("F" & intNext) = Txtname.Value
Range("G" & intNext) = txtAddress.Value
Range("H" & intNext) = txtphone.Value
Range("I" & intNext) = txtdate.Value
Range("J" & intNext) = txtcomments.Value

'Runs the nextNumber procedure to display the next available number'
Call NextNumber

'Move the cursor to txttitle'
txtpet.SetFocus

End Sub


I added it under the Range("J" & intNext) = txtcomments.Value
txtnumber.text = ""
txtpet.text = ""

etc but it doesn't accept it .. .any ideas?