Hi all,

HYCH with this

Am using the form below, but did not want the date entered into
textbox2, would prefer that the current date is displayed and have the
textbox disabled..

I know how to accomplish the disabled bit, but am a little stuck with
regards the date issue,
tried to format "=today()" but to no avail,

Would it require a 'userform initiate sub' command to accomplish
this ?

code attached


Private Sub CmdAdd_Click()
Dim ws As Worksheet
Set ws = Worksheets("All Deals")

ws.Cells(2500, 1).Value = Me.TextBox1.Value
ws.Cells(2500, 2).Value = Format(Me.TextBox2.Value, "today()")
ws.Cells(2500, 3).Value = Me.TextBox3.Value

Me.TextBox1.Value = ""
Me.TextBox3.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus


Unload Me

End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub




Steve

In VBA:

Sub routine()
Range("A1").Value = Date
End Sub

--
Gary''s Student - gsnu2007


"K1KKKA" wrote:

Hi all,

HYCH with this

Am using the form below, but did not want the date entered into
textbox2, would prefer that the current date is displayed and have the
textbox disabled..

I know how to accomplish the disabled bit, but am a little stuck with
regards the date issue,
tried to format "=today()" but to no avail,

Would it require a 'userform initiate sub' command to accomplish
this ?

code attached


Private Sub CmdAdd_Click()
Dim ws As Worksheet
Set ws = Worksheets("All Deals")

ws.Cells(2500, 1).Value = Me.TextBox1.Value
ws.Cells(2500, 2).Value = Format(Me.TextBox2.Value, "today()")
ws.Cells(2500, 3).Value = Me.TextBox3.Value

Me.TextBox1.Value = ""
Me.TextBox3.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus


Unload Me

End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub




Steve

with ws.Cells(2500, 2)
.numberformat = "mm/dd/yyyy"
.Value = date
end with

If you really want the cell to hold a formula (that will change every day):

with ws.Cells(2500, 2)
.numberformat = "mm/dd/yyyy"
.formula = "=today()"
end with



K1KKKA wrote:

Hi all,

HYCH with this

Am using the form below, but did not want the date entered into
textbox2, would prefer that the current date is displayed and have the
textbox disabled..

I know how to accomplish the disabled bit, but am a little stuck with
regards the date issue,
tried to format "=today()" but to no avail,

Would it require a 'userform initiate sub' command to accomplish
this ?

code attached

Private Sub CmdAdd_Click()
Dim ws As Worksheet
Set ws = Worksheets("All Deals")

ws.Cells(2500, 1).Value = Me.TextBox1.Value
ws.Cells(2500, 2).Value = Format(Me.TextBox2.Value, "today()")
ws.Cells(2500, 3).Value = Me.TextBox3.Value

Me.TextBox1.Value = ""
Me.TextBox3.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus

Unload Me

End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub

Steve

--

Dave Peterson