For Loop - If / Or

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Richard - 18 Mar 2008 14:44 GMT

Hi

I have created a loop, which has an or in the if argument

For i = 2 To FinalRow
If DATEDIFF("d", Cells(i, 6), Now) < 8 Or DATEDIFF("d", Cells(i, 6),
Now) = "" Then
Sheets("Project List").Cells(i, 1).Copy
Destination:=ActiveWorkbook.Sheets("Slide").Range("B1")

Can someone please explain why this isn't working. I am trying to loop
through a range of data and perform actions only on those where cells(i,6)
are either blank or the datediff is less than 8 ie a week or less

Many thanks in advance
Richard

Reply to this Message

Bob Phillips - 18 Mar 2008 16:16 GMT

Shouldn't it be

For i = 2 To FinalRow
If DATEDIFF("d", Cells(i, 6), Now) < 8 Or Cells(i,6).Value = "" Then
Sheets("Project List").Cells(i, 1).Copy
Destination:=ActiveWorkbook.Sheets("Slide").Range("B1")

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Hi
>
[quoted text clipped - 12 lines]
> Many thanks in advance
> Richard

Reply to this Message

Dave Peterson - 18 Mar 2008 16:19 GMT

First, using datediff with days is kind of overkill. You could just subtract
one from the other. The difference will be in days.

with activesheet
for i = 2 to finalrow
if .cells(i,6).value = "" _
or (date - .cells(i,6).value < 8) then
'do the work
end if
next i
end with

> Hi
>
[quoted text clipped - 12 lines]
> Many thanks in advance
> Richard

Signature

Dave Peterson

Reply to this Message