Go To Statement

[elgringo56]

I dont understand the go to statement, but I need to use it. I am running inside a next i loop. I am testing a cell for a blank condition using a Select Case Statement. If I find the cell is blank, I want to go to the "next i" end of the loop and bypass a lot of code. but I cant seem to figgure out how this works. Can anyone help me on this?

 

[elgringo56]

For i = 1 To LoopRange
Range("AA6").Select
Selection.Copy
Range("AB6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AA9").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("AB5:AB6"), CopyToRange:=Range("AP9:BB9"), Unique:=False
Select Case Range("X1").Value
Case Is = ""
GoTo Blank
Case Else
Range("BE10:BE61").Select
Selection.Copy
Range("BB10:BB61").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AP9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("AP9").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("AP10").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AP10:BB509").Select
Selection.ClearContents
Blank:
Next i

 

[zacemmel]

That doesn't work ?

 

[elgringo56]

Nope, I get a compile error at the next i. says that there is no for statement above.

 

[elgringo56]

If I remove the Blank: and the go to part, the loop runs ok

 

[zacemmel]

It has something to do with your "cases."

 

[elgringo56]

Is it possible that a GoTo cant be used inside a For i= loop?

 

[elgringo56]

let me play with that for a bit, see if that may be it

 

[zacemmel]

No, goto can be used in a for i loop. The problem is with the cases, take them out and you will see that the "goto" works just fine.

 

[elgringo56]

TestCell = Range("AP10").Value
If TestCell Is "" Then GoTo Blank
End If

Is there any possibility this would work? Again, I am trying something I know nothing about

 

[elgringo56]

Nope, doesn't work either, says type mismatch on the ""