Tharabai
07-27-2015, 06:25 AM
I have used the below code to generate the dates within the date range (H3:I3)
Sub GenerateDates1()
Dim FirstDate As Date
Dim LastDate As Date
Dim NextDate As Date
FirstDate = Range("H3").Value
LastDate = Range("I3").Value
NextDate = FirstDate
Range("H4").Select
Do Until NextDate >= LastDate
NextDate = DateAdd("d", NextDate, 1)
ActiveCell.Value = NextDate
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Can someone help me. I need to check all the date range in the column H and I.
Very Urgent… very grateful if someone can provide me the coding.
-Tharabai
Sub GenerateDates1()
Dim FirstDate As Date
Dim LastDate As Date
Dim NextDate As Date
FirstDate = Range("H3").Value
LastDate = Range("I3").Value
NextDate = FirstDate
Range("H4").Select
Do Until NextDate >= LastDate
NextDate = DateAdd("d", NextDate, 1)
ActiveCell.Value = NextDate
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Can someone help me. I need to check all the date range in the column H and I.
Very Urgent… very grateful if someone can provide me the coding.
-Tharabai