Pasting/Using Input Box Value

[hindsight]

I've got a sub that runs a series of calculations, many of which are based off a "MonthEndDate."

Currently, I input a date (like 9/30/05) in cell D4 and the first line of code is:

'This row will be used in many other calculations
Range("D4").Name = "MonthEndDate"

This works fine for me as I know that I've got to enter a date in cell D4, but if someone else is using the spreadsheet they don't know that.

What I'd like to do is, when the sub runs, have an inputbox appear, the user enters a date and that date is used in the calculations. I guess that value has to be pasted somewhere in the workbook for the formulas to work?

This is all I've got... as you can see I'm stuck
Sub test1()

Dim EndDate As Long
EndDate = InputBox("Enter the Month Ending Report Date.", "End Date")

End Sub

Best,

JB

[Vacation's Over]

See Ron de Bruin's Calendar control page at:

http://www.rondebruin.nl/calendar.htm


"hindsight" wrote:

>
> I've got a sub that runs a series of calculations, many of which are
> based off a "MonthEndDate."
>
> Currently, I input a date (like 9/30/05) in cell D4 and the first line
> of code is:
>
> 'This row will be used in many other calculations
> Range("D4").Name = "MonthEndDate"
>
> This works fine for me as I know that I've got to enter a date in cell
> D4, but if someone else is using the spreadsheet they don't know that.
>
> What I'd like to do is, when the sub runs, have an inputbox appear, the
> user enters a date and that date is used in the calculations. I guess
> that value has to be pasted somewhere in the workbook for the formulas
> to work?
>
> This is all I've got... as you can see I'm stuck
> Sub test1()
>
> Dim EndDate As Long
> EndDate = InputBox("Enter the Month Ending Report Date.", "End
> Date")
>
> End Sub
>
> Best,
>
> JB
>
>
> --
> hindsight
> ------------------------------------------------------------------------
> hindsight's Profile: http://www.excelforum.com/member.php...fo&userid=6360
> View this thread: http://www.excelforum.com/showthread...hreadid=478963
>
>

[Gord Dibben]

Sub testing()
Dim EndDate As Long
EndDate = InputBox("Enter The Month Ending Date", "End Date")
With Range("D4")
.Value = EndDate
.Name = "MonthEndDate"
End With
End Sub



Gord Dibben Excel MVP


On Mon, 24 Oct 2005 18:04:01 -0500, hindsight
<[email protected]> wrote:

>
>I've got a sub that runs a series of calculations, many of which are
>based off a "MonthEndDate."
>
>Currently, I input a date (like 9/30/05) in cell D4 and the first line
>of code is:
>
>'This row will be used in many other calculations
>Range("D4").Name = "MonthEndDate"
>
>This works fine for me as I know that I've got to enter a date in cell
>D4, but if someone else is using the spreadsheet they don't know that.
>
>What I'd like to do is, when the sub runs, have an inputbox appear, the
>user enters a date and that date is used in the calculations. I guess
>that value has to be pasted somewhere in the workbook for the formulas
>to work?
>
>This is all I've got... as you can see I'm stuck
>Sub test1()
>
>Dim EndDate As Long
>EndDate = InputBox("Enter the Month Ending Report Date.", "End
>Date")
>
>End Sub
>
>Best,
>
>JB

[hindsight]

Vacation & Gord,

Thanks for your reply's.

Gord - that's what I was looking for.

Vacation, I'll have to follow the link to check out Bruin's page.

Thanks again,

JB