Hi GreenInIowa,
You can add the code below to a module in your workbook. The code will loop
through all of the dates between (and including) 7/1/2001 and 8/12/2005, and
add each date to Sheeet1 Column A, starting in Cell A1 and moving down. Then
a message box will display "Done" when it's finished.
Hope that helps.
Regards,
James
Sub DateLoop()
' DECLARATIONS
Dim wkb As Workbook
Dim wks As Worksheet
Dim rng As Range
Dim datStartDate As Date
Dim datEndDate As Date
Dim datCurrent As Date
' INITIALIZE
On Error GoTo ErrHandler
Set wkb = ThisWorkbook
Set wks = wkb.Worksheets("Sheet1")
Set rng = wks.Range("A1")
datStartDate = #7/1/2001#
datEndDate = #8/12/2005#
' MAIN BODY
For datCurrent = datStartDate To datEndDate
rng.Value = datCurrent
Set rng = rng.Offset(1, 0)
Next datCurrent
MsgBox "DONE"
CleanUp:
Set wkb = Nothing
Set wks = Nothing
Set rng = Nothing
Exit Sub
WrapUp:
GoSub CleanUp
Return
ErrHandler:
MsgBox "Error Number: " & Err.Number & vbCrLf & vbCrLf &
Err.Description, _
vbOKOnly + vbInformation, "ConditionalShading()"
GoSub WrapUp
End Sub
"GreenInIowa" wrote:
> Hi,
>
> I am trying to make a loop, starting date 7/1/2001 and ending date
> 8/12/2005, which would write the results starting with Cells(1,1). By the
> way, I would like to increment it with a day was wondering how I can do this?
>
> Thanks.
Bookmarks