Hi all,
I want to create an input box that asks users for the date to use in the
spreasheet, then I want this date to populate to a worksheet named "Summary"
in cell A4.
Your help in appreciated...

FJinSA

This will work:

Sub InputDate()
Dim dt As String

dt = InputBox("Please enter the date")
Worksheets("Summary").Range("A4") = dt

End Sub

Regards


Alex
"FJinSA" wrote:

Hi all,
I want to create an input box that asks users for the date to use in the
spreasheet, then I want this date to populate to a worksheet named "Summary"
in cell A4.
Your help in appreciated...

Try

Dim Res As String
Res = InputBox("Enter a date")
If IsDate(Res) Then
Worksheets("Summary").Range("a4").Value = Res
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"FJinSA" wrote in message
...
Hi all,
I want to create an input box that asks users for the date to
use in the
spreasheet, then I want this date to populate to a worksheet
named "Summary"
in cell A4.
Your help in appreciated...

Works like a charm....thanks

"Alex" wrote:

FJinSA

This will work:

Sub InputDate()
Dim dt As String

dt = InputBox("Please enter the date")
Worksheets("Summary").Range("A4") = dt

End Sub

Regards


Alex
"FJinSA" wrote:

Hi all,
I want to create an input box that asks users for the date to use in the
spreasheet, then I want this date to populate to a worksheet named "Summary"
in cell A4.
Your help in appreciated...

This should do the trick:

Sub InputDate()
Sheets("Summary").Range("A4").Value = InputBox("Type the date below.",
"Date", Date)
End Sub

FJinSA Wrote:
Hi all,
I want to create an input box that asks users for the date to use in
the
spreasheet, then I want this date to populate to a worksheet named
"Summary"
in cell A4.
Your help in appreciated...


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=541200

This should do the trick:

Sub InputDate()
Sheets("Summary").Range("A4").Value = InputBox("Type the date below.",
"Date", Date)
End Sub

FJinSA Wrote:
Hi all,
I want to create an input box that asks users for the date to use in
the
spreasheet, then I want this date to populate to a worksheet named
"Summary"
in cell A4.
Your help in appreciated...


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=541200