Don't get the Do Loop syntax or something 1

[swtrader]

Here's a portion of my code that I need to loop. Whether I put the "Loop" before or after the "End If", I get the error, "Loop without Do".

Do While rTC > 1
If InStr(StringToSearch, SearchTerm) > 0 Then
'put the Code in the cell to the left of the transaction detail
MsgBox "SearchTermWasFound"
Range("H1").Copy Destination:=Range("B" & rTC)
Range("B" & rTP, "E" & rTP).Copy Destination:=Worksheets("TransactionsSource").Range("B" & rTS, "E" & rTS)
rTC = rTC - 1
Loop
End If

???

 

[SkipVought]

Hi,

If you structure you BLOCKS, ie Do...Loop, If...Else...End If, the rule is that no structure can break another structure.

So your If...Else...End If structure, must reside TOTALLY within the Do...Loop structure.

Do While rTC > 1
    If InStr(StringToSearch, SearchTerm) > 0 Then
        'put the Code in the cell to the left of the transaction detail
        MsgBox "SearchTermWasFound"
        Range("H1").Copy Destination:=Range("B" & rTC)
        Range("B" & rTP, "E" & rTP).Copy Destination:=Worksheets("TransactionsSource").Range("B" & rTS, "E" & rTS)
        rTC = rTC - 1
    End If
Loop

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[swtrader]

Simple enough. Thanks!

swtrader
-- If you don't know where you're going, you'll always know when you're not there.