If-Then VBE

I cannot test your code, but I think if you add an "Else" condition, then everything between the "Then" and the "Else" should work according to the test.

If...Then
Your code...Else GoTo myEnd
other parts of your macro not related to the "If" test
myEnd:

End Sub

This should work. In some structures I have found that a target also helps, like:

myEnd:
End

End Sub

I hope this helps. JSW

I'm not sure if that would work in the for loop I'm also embedded in. The whole macro thus far is:

It wouldn't compile with the else statement in there...

Thanks again,
Oaktree

Sub GetData2()
PasteRow = 3
For LookupRow = 3 To Sheets("Log").Range("Counter").Value + 2
If Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 1).Value = Range("DOTWeek").Value _
And Sheets("Log").Range("A3").Offset(LookupRow - 3, 0) = Range("DOTYear").Value _
And Sheets("Log").Range("A3").Offset(LookupRow - 3, 2) = Range("DOTIsDOT").Value _
Then Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 0).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 1)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 1).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3,
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 2).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 6)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 3).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 12)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 4).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 3)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 5).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 4)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 6).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 13)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, 7).Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 14)
Sheets("DOT & Non-DOT Reports").Range("A8").Offset(PasteRow - 3, .Value = Sheets("Log").Range("FirstYear").Offset(LookupRow - 3, 15)
PasteRow = PasteRow + 1
Else: GoTo MyEnd
End If
MyEnd:
End

Next LookupRow
End Sub

Re you looking to nest the statements like this?

If Sheets("Log").Range("FirstYear").Offset(Row - 3, 1).Value = Range("DOTWeek").Value Then
If Sheets("Log").Range("A3").Offset(Row - 3, 0) = Range("DOTYear").Value Then
If Sheets("Log").Range("A3").Offset(Row - 3, 2) = Range("DOTIsDOT").Value Then ' your conditions
Sheets("Reports").Range("A8").Offset(Row - 3, 0).Value = Sheets("Log").Range("FirstYear").Offset(Row - 3, 1)
Sheets("Reports").Range("A8").Offset(Row - 3, 1).Value = Sheets("Log").Range("FirstYear").Offset(Row - 3,
Else
End If
Else
End If
Else
End If


Yours in EXCELent Frustration
KniteMare

One error is that you are using the "one-liner" version of if/then:

If This Then That

This version doesn't need an End If

What you want to use is:

If This Then
This
That
The other
End if

Your original code thinks the only thing associated with the If statement is the first line after it (since you use a continuation). The if test is finished by the time you get to the second line.

I'm also not sure why you are using an else statement just to branch out of the If. You could eliminate it and get the same results.

Next, I see an End statement where it looks like there should be a Next. Could just be a typo.

Finally, this board converts 8) to a smiley face. You may want to check the disable smiles on posts with code in them...

K
This message was edited by kkknie on 2002-06-21 10:55

Thanks for the help. I was missing the EndIf at the end. But, hey, at least I only wasted a few hours trying to figure that one out. Seems to work now!

Thanks, guys,

Oaktree