How can I make For-Next loop with date?
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. |
All times are GMT +1. The time now is 02:56 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com