Is there a code that allows a date to be entered and succesive dates to populate?

Right now I have a date in B9 and in B10 I have "=B9+1" which is copied down the column to complete 365 days.

My concern is an inerrant click could delete the formula(s) and disrupt the sequence.

Thanks in advance for the help.

Hi,

Am Wed, 23 Jan 2013 19:24:31 +0000 schrieb Keyrookie:

Is there a code that allows a date to be entered and succesive dates to
populate?

have you tried Start = Edit = Fill = Fill Series = Columns = Linear
= Step Value = 1 = Stop value = 12/31/2013


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Hi again,

Am Wed, 23 Jan 2013 20:53:05 +0100 schrieb Claus Busch:

have you tried Start = Edit = Fill = Fill Series = Columns = Linear
= Step Value = 1 = Stop value = 12/31/2013

sorry, but not Linear. Choose Date


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Claus,
I copied this code exactly as you have it and inserted a date but nothing happened. I then substituted "Linear" for "Choose Date" and still nothing. Am I missing something?

Hi,

Am Thu, 24 Jan 2013 14:48:19 +0000 schrieb Keyrookie:

I copied this code exactly as you have it and inserted a date but
nothing happened. I then substituted "Linear" for "Choose Date" and
still nothing. Am I missing something?

that's no code. That is a step by step guidance to do it in Excel.
Enter the start date e.g. in A1 and follow the steps.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Hi,

Am Thu, 24 Jan 2013 14:48:19 +0000 schrieb Keyrookie:

I copied this code exactly as you have it and inserted a date but
nothing happened. I then substituted "Linear" for "Choose Date" and
still nothing. Am I missing something?

if you want to do it with VBA then try (modify to suit):

Sub Test()
Dim StopVal As Long
Dim myYear As Integer

myYear = 2013
StopVal = DateSerial(myYear, 12, 31)
[A1] = DateSerial(myYear, 1, 1)
Range("A1").DataSeries Rowcol:=xlColumns, _
Type:=xlChronological, Date:=xlDay, Step:=1, _
Stop:=StopVal, Trend:=False
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Claus,

Thank you for your help, however I still can't get it to work. I copied the VBA code you gave and nothing happened. I then tried modifications with no results.

Since the VBA code shows the Range as A1, I entered 2013-1-1 in A1 expecting the column to populate with succesive dates. It did not happen. I then entered data into column B thinking the code needed adjacent data to activate, yet nothing happened.

Apparantly I'm missing something so could you please guide me, step by step, through the process?

Hi,

Am Fri, 25 Jan 2013 14:28:00 +0000 schrieb Keyrookie:

Apparantly I'm missing something so could you please guide me, step by
step, through the process?

in your workbook press Alt+F11. In VBA-Editor choose Insert = Module.
Copy the code into the code module. Back in Excel = View = View
Macros. Choose the macro by name and rund the macro.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2