Problem Creating a Date Range

[coolroaming]

I'm trying to create a date range in Excel. I use a userform to enter
start and end date, using control source for the userform fields to pu
the dates in a worksheet in A2 and a cell called A1Enddate.

I then execute the following code:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 15/04/2004 by blcutler
'
Sheets("AutumnHT1").Select

Range("A2").Select

Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological
Date:= _
xlWeekday, Step:=1, Stop:=Range("A1Enddate"), Trend:=False

End Sub


I get the following error:

Run time error 1004

DataSeries method of range class failed

Any ideas of what may be happening? There is defintely data put in th
cells (A2 and A1Enddate) on AutumnHT1 by the userform. The Userfor
executes on a different sheet hence the Sheets("AutumnHT1").Selec

 

[BrianB]

Your code works OK for me.

The only thing I suspect is a possible a mis-spelling o
Stop:=Range("A1Enddate").

Also, this is a bit lazy, and might be better fully qualified as :-
Stop:=ActiveSheet.Range("A1Enddate").Valu

 

[Dave Peterson]

See one more reply at your other post.

I'm trying to create a date range in Excel. I use a userform to enter a
start and end date, using control source for the userform fields to put
the dates in a worksheet in A2 and a cell called A1Enddate.

I then execute the following code:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 15/04/2004 by blcutler
'
Sheets("AutumnHT1").Select

Range("A2").Select

Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological,
Date:= _
xlWeekday, Step:=1, Stop:=Range("A1Enddate"), Trend:=False

End Sub

I get the following error:

Run time error 1004

DataSeries method of range class failed

Any ideas of what may be happening? There is defintely data put in the
cells (A2 and A1Enddate) on AutumnHT1 by the userform. The Userform
executes on a different sheet hence the Sheets("AutumnHT1").Select