Automatically creating the correct number of dated columns

  • Thread starter Struggling of Essex
  • Start date
S

Struggling of Essex

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?
 
D

Don Guillett

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
 
S

Struggling of Essex

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
 
D

Don Guillett

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

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