View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Rominall Rominall is offline
external usenet poster
 
Posts: 36
Default 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?