Automatically creating the correct number of dated columns
 

I wish to set up a cashflow spread sheet that has a basic data front sheet.
This basic data would include a commencement date and a completion date for
the cashflow. Typically these cashflows would be 36 - 60 months long,
therefore requiring the requisit number of columns to be created and headed
with the date reference; namely January 05, February 05, ect. etc.

Can anyone help?

try this

Sub setmonths()
Dim sd As Date
Dim ed As Date
sd = InputBox("Enter start date")
ed = InputBox("Enter stop date")
For i = 1 To DateDiff("m", sd, ed) + 1
Cells(1, i) = sd - 30 + (i * 30)
Cells(1, i).NumberFormat = "mmm yy"
Next i
End Sub

--
Don Guillett
SalesAid Software

"Struggling of Essex" wrote in
message ...
I wish to set up a cashflow spread sheet that has a basic data front
sheet.
This basic data would include a commencement date and a completion date
for
the cashflow. Typically these cashflows would be 36 - 60 months long,
therefore requiring the requisit number of columns to be created and
headed
with the date reference; namely January 05, February 05, ect. etc.

Can anyone help?

Don,

Thanks for this steer, however I need a little more guidance. If I input the
start date and end date on sheet 1, do I place the code on the sheet upon
which I which to create the cash flow?

Thanks

"Don Guillett" wrote:

try this

Sub setmonths()
Dim sd As Date
Dim ed As Date
sd = InputBox("Enter start date")
ed = InputBox("Enter stop date")
For i = 1 To DateDiff("m", sd, ed) + 1
Cells(1, i) = sd - 30 + (i * 30)
Cells(1, i).NumberFormat = "mmm yy"
Next i
End Sub

--
Don Guillett
SalesAid Software

"Struggling of Essex" wrote in
message ...
I wish to set up a cashflow spread sheet that has a basic data front
sheet.
This basic data would include a commencement date and a completion date
for
the cashflow. Typically these cashflows would be 36 - 60 months long,
therefore requiring the requisit number of columns to be created and
headed
with the date reference; namely January 05, February 05, ect. etc.

Can anyone help?

just change to
sd=range("a1")
ed=

You do not place the code ON the sheet. You put it into a macro module.

--
Don Guillett
SalesAid Software

"Struggling of Essex" wrote in
message ...
Don,

Thanks for this steer, however I need a little more guidance. If I input
the
start date and end date on sheet 1, do I place the code on the sheet upon
which I which to create the cash flow?

Thanks

"Don Guillett" wrote:

try this

Sub setmonths()
Dim sd As Date
Dim ed As Date
sd = InputBox("Enter start date")
ed = InputBox("Enter stop date")
For i = 1 To DateDiff("m", sd, ed) + 1
Cells(1, i) = sd - 30 + (i * 30)
Cells(1, i).NumberFormat = "mmm yy"
Next i
End Sub

--
Don Guillett
SalesAid Software

"Struggling of Essex"
wrote in
message ...
I wish to set up a cashflow spread sheet that has a basic data front
sheet.
This basic data would include a commencement date and a completion
date
for
the cashflow. Typically these cashflows would be 36 - 60 months long,
therefore requiring the requisit number of columns to be created and
headed
with the date reference; namely January 05, February 05, ect. etc.

Can anyone help?