Verify date by week.
Okay I import a txt file that has data by week, but if the week has no
entries it's not there so I need to add that week to the file so I can copy
it over into another
worksheet. I can't seem to get the right combination of syntax/formula
correct.
There should always be data in 12/29/07 row.
This is what I started out with.
For a = 53 to 2 step -1
Range("A"+Cstr(a)+"").activate
DateCurr = activecell.value
DatePrev = activecell.offset(-1,0).value
If DateCurr < DatePrev + 7 then
selection.entirerow.insert
Range("A"+Cstr(a)+"").value = DateCurr + 7
Next a
Do I have to do something with date() function to make this work or do I
force column a format to date?
|