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
donaldb@281.com
"Struggling of Essex" <StrugglingofEssex@discussions.microsoft.com> wrote in
message news:54D22DFD-9909-42FF-B717-EEA768F8E8B1@microsoft.com...
> 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
> donaldb@281.com
> "Struggling of Essex" <StrugglingofEssex@discussions.microsoft.com> wrote in
> message news:54D22DFD-9909-42FF-B717-EEA768F8E8B1@microsoft.com...
> > 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
donaldb@281.com
"Struggling of Essex" <StrugglingofEssex@discussions.microsoft.com> wrote in
message news:BF809717-79E9-464F-A7C3-21A1D2809660@microsoft.com...
> 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
> > donaldb@281.com
> > "Struggling of Essex" <StrugglingofEssex@discussions.microsoft.com>
wrote in
> > message news:54D22DFD-9909-42FF-B717-EEA768F8E8B1@microsoft.com...
> > > 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?
> >
> >
> >