Programming to put in dates

  • Thread starter Thread starter Haas
  • Start date Start date
H

Haas

Hi all! I was wondering if you can help me with a problem I'm having -
I'm a beginner so any help would be truly appreciated.

What code can I write to solve this problem?:

In cell B1, I have an inception year for a contract (i.e., 1985); in
the cell right below it, namely B2, I have the ending date (2003).
Now, starting from cell A5, I want to automatically have the years
going from 1985 to 2003 (or whatever the beginning year is and the
ending year.) I know I can have a calculation put into the cells, but
would rather run a macro because I will need to enter more info later.

Can anyone help? please?

Example

Beginning Year 1985
Ending YEar 2005



1985
1986
1987
1988
1989
etc..

Thanks!

Haas
 
The following should work for you (only fix the line
breaks):

Do
x = x + 1
Range("A5").Offset(x - 1, 0).Value = _
Range("B1").Value + x - 1
Loop Until Range("A5").Offset(x - 1, 0).Value = _
Range("B2").Value

HTH
 
Sub fill2()
For i = Range("B1").Value To Range("B2").Value
Range("A5").Offset(i - Range("B1").Value, 0).Value = i
Next i

End Sub
 
Thank you for all your help...both answers provided alternative means for a
solution for the same problem.

This group is great!

Haas
 
Back
Top