Between Dates Criteria
See if this code is bettedr. Itried to figurre out what you where attempting
to execute in a better format.
Sub Test1()
RowCount = 1
Do While Range("D" & RowCount) < ""
FirstDate = Range("D" & RowCount)
SecondDate = Range("E" & RowCount)
If FirstDate = Range("D1") And _
SecondDate <= Range("D2") Then
Exit Do
End If
RowCount = RowCount + 1
Loop
Range("G3:G5").Copy _
Destination:=Range("D" & (RowCount + 2))
End Sub
"AirgasRob" wrote:
I want to be able to do something while inbetween dates. Start date is in D1
and End date is in D2. Across row 1 starting in G1 is dates (01/01/09,
02/01/09, etc...)
Sub Test1()
Range("G3:G5").Select
Selection.Copy
Range("G1").Select
Do While ((ActiveCell) = Range("D1"))
ActiveCell.Offset(0, 1).Select
If ((ActiveCell) <= Range("D2")) Then
Exit Do
End If
Loop
ActiveCell.Offset(2, 0).Select
ActiveSheet.Paste
End Sub
|